VPF::Новый тип файла - Форум программистов

Budy

Дата 6.2.2004, 23:11 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 616
Регистрация: 6.2.2004
Где: Екатеринбург

Репутация: 1
Всего: 2

Приветствую!
Как сожно из своей программы зарегестрировать тип файла (напр. ".oho") и присвоить ему иконку программы.

--------------------

Как ты назовешь свой корабль, так на нем и напишут
user posted image

mmv

Дата 7.2.2004, 02:01 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 31
Регистрация: 28.1.2004
Где: г. Воронеж

Репутация: нет
Всего: нет

Тип файла (из FAQ):

Код

Uses Registry; 

procedure RegisterFileType(FileType,FileTypeName, Description,ExecCommand:string); 
begin 
  if (FileType='') or (FileTypeName='') or (ExecCommand='') then exit;  
  if FileType[1]<>'.' then FileType:='.'+FileType;  
  if Description='' then Description:=FileTypeName;  
  with Treginifile.create do  
    try  
      rootkey := hkey_classes_root;  
      writestring(FileType,'',FileTypeName);  
      writestring(FileTypeName,'',Description);  
      writestring(FileTypeName+'\shell\open\command','',ExecCommand+' "%1"');  
    finally  
     free;   
   end;  
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  RegisterFileType('txt','TxtFile', 'Plain text','notepad.exe');   
end;

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »