Форум: "WinAPI";
Текущий архив: 2015.09.13;
Скачать: [xml.tar.bz2];
ВнизКак вытащить иконки из exe? Найти похожие ветки
← →
vv_fran (2010-05-12 16:24) [0]Как из одного приложения вытащить иконки других приложений тоже написанных на Дельфи? Хочу создать приложение из которых бы запускались бы другие программы. При запуске она из *.ini файла считывала бы проги, которые она будет запускать и строила ТаскБар и иконками этих программ.
← →
tesseract © (2010-05-12 17:05) [1]А есть ли разница? См ExtractIcon.
← →
vv_fran (2010-05-12 17:07) [2]ок, спасибо.
← →
SD Software (2010-05-12 18:41) [3]
uses ShlObj, ShellAPI;
procedure GetIcon(Path: String; var Icon: TIcon);
var
FileInfo: TShFileInfo;
ImageList: TImageList;
begin
ImageList := TImageList.Create(nil);
FillChar(FileInfo, Sizeof(FileInfo), #0);
ImageList.ShareImages := True;
ImageList.Handle := SHGetFileInfo(PChar(Path), SFGAO_SHARE, FileInfo, SizeOf(FileInfo), SHGFI_SMALLICON{ - 16x16, SHGFI_LARGEICON - 32x32} or SHGFI_SYSICONINDEX);
ImageList.GetIcon(FileInfo.iIcon, Icon);
ImageList.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
TmpIcon: TIcon;
begin
TmpIcon:= TIcon.Create;
GetIcon("C:\Windows\system32\calc.exe", TmpIcon);
Image1.Picture.Icon:= TmpIcon;
TmpIcon.Free;
end;
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2015.09.13;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.001 c