соответствие файлов приложению

← →
pavlov (2003-04-15 14:03) [0]

Привет, всем!

У меня такой вопрос:
как поставить в соответствие файлы с определенным
расширением какой-либо программе?
ну что бы при запуске файла запускалось бы соответствующее
ему приложение?
Как это делается?

Заранее благодарен!

← →
Phantomouse © (2003-04-15 14:26) [1]

Вручную можно сделать это выбрав в Моем Компьютере пункт свойства папки --- типы файлов и т.д.

← →
Cobalt © (2003-04-15 16:03) [2]

посмотри в разделе реестра HKEY_CLASSES_ROOT\.txt, а затем HKEY_CLASSES_ROOT\txtfile
Надеюсь, ты многое поймешь.

я делаю так

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;

соответствие файлов приложению Найти похожие ветки