Извлечение иконки из EXE/DLL-файла

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

Имейте в виду, что средний параметр должен иметь тип PChar.

 
« Предыдущая статья   Следующая статья »