Форум: "Основная";
Текущий архив: 2003.12.19;
Скачать: [xml.tar.bz2];
ВнизКак ассоцировать расширение файла с моей программой. Найти похожие ветки
← →
maxXP (2003-12-07 18:39) [0]Как ассоциировать расширение файла с моей программой.
← →
TUser (2003-12-07 18:52) [1]Регистрировать в реестре. Посмотри, как их описывают в HKLM\Software\classes
← →
Dred2k (2003-12-07 19:38) [2]Примерно так:
function AppRegisterFileType(Ext : String; AppName : String; AppDesc : String; AppEXE : String; AppOpenParams : String; IconID : Integer) : Boolean;
var tmpReg : TRegistry;
begin
tmpReg := TRegistry.Create;
try
try
with tmpReg do begin
RootKey := HKEY_CLASSES_ROOT;
OpenKey(Ext, True);
WriteString("", AppName);
CloseKey;
OpenKey(AppName, True);
WriteString("", AppDesc);
CloseKey;
OpenKey(AppName + "\Shell\Open\Command", True);
WriteString("", AppEXE + " " + AppOpenParams);
CloseKey;
OpenKey(AppName + "\DefaultIcon", True);
WriteString("", AppEXE + "," + IntToStr(IconID));
CloseKey;
end;
Result := True;
except
Result := False;
end;
finally
tmpReg.Free;
end;
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.12.19;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c