Программирование на Delphi и не только Диалог «Выбор иконки» | Программирование на Delphi и не только

Delphi FAQ >> Диалоги

Перед разделом var запишите объявление процедуры:

Function PickIconDialog(Handle:THandle; FileName:PChar; FileNameSize:integer; var IconIndex:integer):Boolean;  stdcall;  external ‘shell32.dll’ index 62;

Пример использования:

Procedure TForm1.Button1Click (Sender: TObject);
var   IconIndex: Integer;

begin

  if PickIconDialog (Handle, PChar (‘shell32.dll’), 0, IconIndex) then     ShowMessage (‘Выбрана иконка номер ‘ + IntTOStr (IconIndex));

end;

Вы можете скачать клипы бесплатно без регистрации