Тип файла

[dmitriegorovih]

Всем Добрый вечер! Решил создать эту тему потому что в инете много статей как «Согласовать» расширение со своей программой но все приводят расширения такие как mp3 , bmp. А как зарегистрировать новый формат? Так как если формат уже зарегистрирован, то после перезагрузки винды он меняет значок и направление запуска программы, а если новый формат то после перезагрузки не чего не меняется, может, кто знает, как решить данную закавыку?

[GunSmoker]

Знает.

Найти официальную документацию и следовать ей.

Ну или, как вариант, сравнить то, что вы делаете, с тем что написано в официальной документации.

[DomiNick]

Оно в реестре... Я вот создавал батник по примеру...

[dmitriegorovih]

GunSmoker

Найти официальную документацию и следовать ей.

Это вы имеете веду стандартную справку делфи или что?
DomiNick это конечно вам спасибо но не то
Кстати я заметел что под разделом например ".ext/openwithprogids" туда Windows не записывает он записывает ".ext" как имя а параметр будет уже то что в "openwithprogids"

[Johnson]

uses ..., Registry, ...;
....

procedure TMainForm.FormCreate(Sender: TObject);
begin
RegFile:=TRegIniFile.Create;
RegFile.RootKey:=HKEY_CLASSES_ROOT;
if  (RegFile.ReadString('J-Bot.Document\Shell\Open\Command','','')<>(Application.ExeName+' "%1" ')) or // проверка на уже имеющееся в реестре объявление...
    (RegFile.ReadString('J-Bot.Document\DefaultIcon','','')<>(ExtractFilePath(Application.ExeName)+'J-Bot.ico,0')) or
    (RegFile.ReadString('.jbot','','')<>'J-Bot.Document')
    then begin // если нет в реестре - заносим
  RegFile.WriteString('.jbot','','J-Bot.Document');
  RegFile.WriteString('J-Bot.Document','','Файл настроек Lineage II J-Bot');
  RegFile.WriteString('J-Bot.Document\DefaultIcon','',ExtractFilePath(Application.ExeName)+'J-Bot.ico,0');
  RegFile.WriteString('J-Bot.Document\Shell\Open\Command','',Application.ExeName+' "%1" ');
  SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_FLUSH, NiL, NiL); // оповещаем систему о том, что одно из сопоставлений файлов смнилось
end;
RegFile.CloseKey;
RegFile.Free;
end;

я делаю так...

[GunSmoker]

Сообщение от dmitriegorovih

GunSmoker
Это вы имеете веду стандартную справку делфи или что?

Я имею в виду MSDN - Microsoft Developers Network.

Вас интересует раздел Implementing a Custom File Format вместе с подразделами.

Читайте. Пользы будет в сто крат больше, чем от бездумного копирования говно-кода. Особенно если вы не понимаете, как это будет/должно работать.

[dmitriegorovih]

GunSmoker Я свами от части согласен и отчасти не согласен по поводу говно кода как бы то не было смешно но я проверяю код потому что новичку могут потсунуть утку ну например что лучше setpixels или pixels[x,y] с первого взгляда особо не отличается но setpixels работает в 10 раз быстрее pixels[x,y] и я не чего не преувеличиваю у меня график отрисовывался с pixels[x,y] 10 секунд, а с setpixels 1 секунду теперь почему я не согласен потому что на форуме могут подсказать то что не написано не в одном пособии, решение задачи совсем альтернативными путями
Да кстати почетал я статью с переводом чёто вообще не понятно
Johnson Проверил ваш способ не работает

[Johnson]

Johnson Проверил ваш способ не работает

значит не правильно поняли как он работает и неправильно изменили. этот код стоит в моей программе и работает без ошибок.
смотрите для чего проверки и как заношу в реестр.

изменять нужно лишь отмеченые денные:


if (RegFile.ReadString('J-Bot.Document\Shell\Open\Command','','' )<>(Application.ExeName+' "%1" ')) or // проверка на уже имеющееся в реестре объявление...
(RegFile.ReadString('J-Bot.Document\DefaultIcon','','')<>(Ext ractFilePath(Application.ExeName)+'J-Bot.ico,0')) or
(RegFile.ReadString('.jbot','','')<>'J-Bot.Document')
then begin // если нет в реестре - заносим
RegFile.WriteString('.jbot','','J-Bot.Document');
RegFile.WriteString('J-Bot.Document','','Файл настроек Lineage II J-Bot');
RegFile.WriteString('J-Bot.Document\DefaultIcon','',ExtractFi lePath(Application.ExeName)+'J-Bot.ico,0');
RegFile.WriteString('J-Bot.Document\Shell\Open\Command','',Ap plication.ExeName+' "%1" ');
SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_FLUSH, NiL, NiL); // оповещаем систему о том, что одно из сопоставлений файлов смнилось
end;


соответственно нужно чтоб был файл иконки рядом с вашей программой, или указать другой путь к иконке

[GunSmoker]

Сообщение от dmitriegorovih

Да кстати почетал я статью с переводом чёто вообще не понятно

Хорошее начало. Теперь можно изложить здесь, чего непонятно, и начать разбираться.

Это, если вы хотите нормально сделать.

Или же вы можете искать решения, собранные на коленке:

Сообщение от dmitriegorovih

Johnson Проверил ваш способ не работает

Которые в своё время создавались ровно так же - бездумным копированием ответов с форумов.

(а самое первое решение было выбрано экспериментированием)

[Johnson]

бездумным копированием ответов с форумов

прошу оставить голословные обвинения при себе. это копия из моего исходника. и бездумно я не копирую, в худшем случае привожу ссылку на пост.