Советы по Delphi
Извлечение иконки из EXE/DLL-файла
| varMyIcon: TIcon;beginMyIcon := TIcon. Create;tryMyIcon.Handle := ExtractIcon(hInstance, 'MYPROG.EXE', 0){Здесь можно что-нибудь сделать с иконкой}finallyMyIcon.Free;end;end; |
Имейте в виду, что средний параметр должен иметь тип PChar. [000479]
