Диалоговое окно замены иконки

← →
spROOT13 (2003-03-09 15:00) [0]

Здравствуйте, Мастера!

Вопрос такой:
Как вызвать стандартное окно выбора иконки(такое как в свойствах ярлыка)?
И чтобы после нажатия кнопки OK , путь к выбранному значку
записывался в какую-нибудь переменную.

Заранее спасибо!

← →
spROOT13 (2003-03-09 15:23) [1]

Что никто не знает? Может компонент какой посоветуете?

Function SHChangeIconDialog(hOwner:THandle;szFilename:AnsiString;
Reserved:Integer;var lpIconIndex:integer):dword;stdcall;
external "shell32.dll" index 62;

procedure TForm1.Button1Click(Sender: TObject);
var fMame:AnsiString;IconIndex:integer{пустой?};
begin
fMame:="shell32.dll";
SHChangeIconDialog(form1.Handle,fMame,0,IconIndex);
end;

Диалоговое окно замены иконки Найти похожие ветки