Почитайте!

Нас читают

Статьи о программировании и не только

Mail.Ru

Rambler's Top100

Programming Blogs - BlogCatalog Blog Directory


Диалог «Выбор иконки»

Delphi FAQ >> Диалоги

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

Function PickIconDialog(Handle:THandle; FileName:PChar; FileNameSize:integer; var IconIndex:integer):Boolean;  stdcallexternal '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;


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