Как просто и быстро зарегистрировать расширение?

← →
@Ujin (2002-10-06 15:41) [0]

Как просто и быстро зарегистрировать раширение и асоциировать его со своей программкой?

← →
@Ujin (2002-10-06 15:46) [1]

Ни кто не в курсе?

← →
Ученик (2002-10-06 16:00) [2]

http://delphibase.endimus.com/?action=viewfunc&topic=sysiface&id=10189

← →
Avsam (2002-10-06 18:35) [3]

Посмотри ветку реестра HKEY_CLASSES_ROOT или
HKEY_LOCAL_MACHINE\SOFTWARE\Classes

← →
brestmarket (2002-10-07 01:15) [4]

Ребята, по указанной ссылке пример без иконки - как еще и иконку определенному типу сопоставить?

← →
Внук (2002-10-07 09:25) [5]

Ну ленивые :))
Посмотрите у себя в реестре по расширению, например, .doc (Word.Document.X), подраздел DefaultIcon

← →
Viktor Kushnir (2002-10-08 07:35) [6]

Лучше Notepad и .txt я на нем разбирался.

← →
turusov (2002-10-08 07:52) [7]

//Регистрировать иконку ассоциации. Иконка в ресурсах
procedure RegisterAssociatedIcon(const IconResourceName, TypeFileName: shortstring);
var
i: TIcon;
TempStr: string;
R: TRegIniFile;
S: String;
begin
i:= TIcon.Create;
try
SetLength(S,Length(IconResourceName)+5);
S:=Copy(IconResourceName, 1, 256);
i.Handle:= LoadIcon(hInstance,PChar(s));
TempStr:= IncludeTrailingBackslash(_GetWindowsDirectory)+IconResourceName+".ico";
i.SaveToFile(TempStr);
finally
i.Free;
end;

R:= TRegIniFile.Create("");
try
with R do begin
RootKey:= HKEY_CLASSES_ROOT;
WriteString("."+IconResourceName,"",IconResourceName);
WriteString(IconResourceName,"",TypeFileName);
WriteString(IconResourceName+"\DefaultIcon","",TempStr);
end;//with
finally
R.Free;
end;
end;

function _GetWindowsDirectory: string;
var
pcWindowsDirectory: PChar;
dwWDSize : DWORD;
begin
dwWDSize:= MAX_PATH + 1;
GetMem(pcWindowsDirectory, dwWDSize); // allocate memory for the string
try
if Windows.GetWindowsDirectory(pcWindowsDirectory, dwWDSize) <> 0 then Result:= pcWindowsDirectory
else Result:= "";
finally
FreeMem(pcWindowsDirectory); // now free the memory allocated for the string
end;
end;
Если что упустил обращайся

← →
turusov (2002-10-08 07:57) [8]

Использую, даже, в
procedure Register;
begin
RegisterComponents("Turusov", [TNsDublicateApplication]);
RegisterPropertyEditor(TypeInfo(string), TNsTextMessage,
"OutputFileName",TNsFilenameProperty);
RegisterPropertyEditor(TypeInfo(string), TNsMicrosoftAgentControl2,
"AgentFileName",TNsFilenameProperty);
RegisterAssociatedIcon(ag_ini, TNsDublicateApplication.ClassName);
end;

← →
REA (2002-10-08 11:54) [9]

А для чего? Инсталляторы это делают.

Как просто и быстро зарегистрировать расширение? Найти похожие ветки