Извлечь основную иконку EXE-файлаDelphi , Графика и Игры , ICOИзвлечь основную иконку EXE-файла
Оформил: DeeCo procedure TForm1.Button1Click(Sender: TObject); var Icon: TIcon; FileInfo: SHFILEINFO; begin Icon := TIcon.Create; try // Get the Icon SHGetFileInfo(PChar('Filename.exe'), 0, FileInfo, SizeOf(FileInfo), SHGFI_ICON); icon.Handle := FileInfo.hIcon; DestroyIcon(FileInfo.hIcon); // Save the Icon to a file: icon.SaveToFile('IconFromExe.ico'); // Set the Icon as Application Icon (temporary) Application.Icon := icon; finally Icon.Free; end; end; Статья Извлечь основную иконку EXE-файла раздела Графика и Игры ICO может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |