Редакторы Файлов, Меню на файлы Опции

[#$# PaVeL #$#]

Привет всем!
У меня есть такой вопрос:
1. Как на один тип файла прописать, програмно, отдельно редактор и отдельно программу исполняющую его? Чтоб формулировка вопроса стала понятной приведу пример:
Файл *.bmp в меню на этот файл есть следующее:
"Изменить" - Открывается Paint
"Просмотр" - Открывается программа просмотра

Как сделать похожее?

Сразу задам по этой же теме следующее:
2. Как сделать команду по умолчанию (*.bmp по умолчанию "просмотр")?
3. Как сделать особый ситаксис запуска файла по маске (допустим чтоб имя файла указывалось во втором параметре а в первом стояла стандарно строчка "+z")?
4. Как связать с определённым типом файла определённую иконку?

Прошу помощи очень надо, если кто может участок кода!
Заранее спасибо.

Сообщение отредактировано: #$# PaVeL #$# - 17.12.2005 14:48

[Altair]

Fang, а ты перед тем как посылать людей в поиск, научись понимать что им надо!
#$# PaVeL #$#, теюе надо задать файловые ассоциации.
В DRKB все есть

Как зарегистрировать свой пункт в меню для моего типа файлов?

uses  
  Registry;  
    
procedure AddFileMenue(FilePrefix, Menue, Command: string);  
var  
  reg: TRegistry;  
  typ: string;  
begin  
  reg := TRegistry.Create;  
  with reg do  
  begin  
    RootKey := HKEY_CLASSES_ROOT;  
    OpenKey('.' + FilePrefix, True);  
    typ := ReadString('');  
    if typ = '' then  
    begin  
      typ := Fileprefix + 'file';  
      WriteString('', typ);  
    end;  
    CloseKey;  
    OpenKey(typ + '\shell\' + Menue + '\command', True);  
    WriteString('', command + ' "%1"');  
    CloseKey;  
    Free;  
  end;  
end;  

procedure DeleteFileMenue(Fileprefix, Menue: string);  
var  
  reg: TRegistry;  
  typ: string;  
begin  
  reg := TRegistry.Create;  
  with reg do  
  begin  
    RootKey := HKEY_CLASSES_ROOT;  
    OpenKey('.' + Fileprefix, True);  
    typ := ReadString('');  
    CloseKey;  
    OpenKey(typ + '\shell', True);  
    DeleteKey(Menue);  
    CloseKey;  
    Free;  
  end;  
end;  


{ Example}  

procedure TForm1.Button1Click(Sender: TObject);  
begin  
  AddFileMenue('rtf', 'Edit with Notepad', 'C:\Windows\system\notepad.exe');  

  {  
    If you now click with the right mousebutton on a *.rtf-file then  
    you can see a Menuepoint: "Edit with Notepad".  
    When Click on that point Notepad opens the file.  
  }  
end;  


procedure TForm1.Button2Click(Sender: TObject);  
begin  
  {  
   Undo your changes in the Registry:  
  }  

  DeleteFileMenue('rtf', 'Edit with Notepad');  
end;  

Есть еще кое что

Как получить список всех расширений и их ассоциаций?

как ты уже понял все файловые ассоциации храняться в ветке HKEY_CLASSES_ROOT реестра.
работай с ним, скорее всего тебе надо искать информацию по реестру windows...