Форум: "Система";
Текущий архив: 2003.06.19;
Скачать: [xml.tar.bz2];
Внизсоответствие файлов приложению Найти похожие ветки
← →
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
Надеюсь, ты многое поймешь.
← →
Babay (2003-04-16 06:58) [3]я делаю так
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.06.19;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.009 c