Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.07.21;
Скачать: CL | DM;

Вниз

Как зарегистрировать тип файла?   Найти похожие ветки 

 
Cr@zy-EyE ©   (2003-07-09 12:34) [0]

Как зарегистрировать тип файла из программы(через реестр, например)? Сразу еще вопрос по реестру: Как считать список имен параметров в текущем ключе?


 
Skier ©   (2003-07-09 12:36) [1]

>Cr@zy-EyE © (09.07.03 12:34)
1)

> Как зарегистрировать тип файла из программы(через реестр,
> например)? Сразу еще вопрос по реестру

В FAQ было (или здесь или на "Королевстве", точно не помню...)
2)

> Как считать список имен параметров в текущем ключе?

см. TRegistry


 
Babay ©   (2003-07-09 12:41) [2]

вот насчет регистрации, где взял непомню но вроде работало...

function RegisterFileType(ExeFile, FileType, Extension, IconFile: String): Integer;
var
AReg: TRegistry;
Error: Integer;
begin
Error:= erOK;
AReg:= TRegistry.Create; // Open Registry
try
AReg.RootKey:= HKEY_CLASSES_ROOT;
AReg.OpenKey("", false);
AReg.OpenKey("."+Extension, true); //Create Key .Extension
AReg.WriteString("", Extension+"_file");
AReg.CloseKey;

AReg.OpenKey(Extension+"_file", true);
AReg.WriteString("", FileType);
AReg.OpenKey("DefaultIcon", true);
AReg.WriteString("", IconFile);
AReg.CloseKey;

AReg.OpenKey(Extension+"_file", true);
AReg.OpenKey("shell", true);
AReg.OpenKey("open", true);
AReg.OpenKey("command", true);
AReg.WriteString("", """+ExeFile+"""+""%1"");
AReg.CloseKey;
except
inc(Error, erRegistry);
end;

AReg.Free;
RegisterFileType:= Error;
end;



Страницы: 1 вся ветка

Текущий архив: 2003.07.21;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.02 c
7-68099
reticon
2003-05-09 18:15
2003.07.21
блокировка клавиатуры


1-67912
Mishenka
2003-07-07 19:56
2003.07.21
Свойство Enabled для UpDown...


1-67845
Kiril
2003-07-07 19:59
2003.07.21
Вопрос по синхронизации потоков...


14-67995
Кен
2003-06-29 05:45
2003.07.21
Как проще всего преобразовать программу в компонент ?


14-68035
Makhanev A.S.
2003-07-03 05:37
2003.07.21
Сидеть по ночам: ДА или НЕТ?