Перед разделом 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;
Вы можете скачать клипы бесплатно без регистрации