Извлечение иконки из EXE/DLL-файла
|
|
var MyIcon: TIcon; begin MyIcon := TIcon. Create; try MyIcon.Handle := ExtractIcon(hInstance, 'MYPROG.EXE', 0) {Здесь можно что-нибудь сделать с иконкой} finally MyIcon.Free; end; end; Имейте в виду, что средний параметр должен иметь тип PChar. |