Извлечение из EXE-файла иконки и рисование ее в TImage

Delphi , Программа и Интерфейс , EXE файл

Сперва для получения дескриптора иконки используйте вызов API ExtractIcon, затем назначьте (assign) ее TImage.

Далее смотри электронную документацию.

Here is the translation of the provided text into Russian:

Пример кода на Delphi для извлечения иконки из файла EXE и отображения ее на компоненте TImage:

procedure ExtractIconFromExe;
var
  IconHandle: HICON;
  IconInfo: TIconInfo;
begin
   // Загрузка файла EXE
  IconHandle := LoadLibrary('путь_к_вашему_файлу_exe.exe');

   // Получение количества иконок в файле EXE
  IconInfo := GetIconInfo(IconHandle, 0);
  if IconInfo.hIcon > 0 then
  begin
     // Извлечение иконки
    IconHandle := ExtractIcon(Handle, PChar('путь_к_вашему_файлу_exe.exe'), 0);

     // Создание нового компонента TImage
    ImgIcon := TImage.Create(Self);
    ImgIcon.Parent := Self;

     // Назначение иконки компоненту TImage
    ImgIcon.Picture.Assign(GetIcon(IconHandle));
  end;
end;

В этом примере мы сначала загружаем файл EXE с помощью функции LoadLibrary. Затем получаем количество иконок в файле EXE с помощью функции GetIconInfo. Если есть хотя бы одна иконка, мы извлекаем ее с помощью функции ExtractIcon и храним ее handle в переменной IconHandle.

Затем создаем новый компонент TImage и назначаем извлеченную иконку ему с помощью метода Picture.Assign. Функция GetIcon используется для преобразования handle иконки в объект TBitmap, который может быть назначен свойству Picture компонента TImage. Обратите внимание, что вам нужно заменить 'путь_к_вашему_файлу_exe.exe' на реальный путь к вашему файлу EXE.

Также убедитесь, что включили в проекте unit Windows API (Windows.pas) для использования этих функций.

Извлечение из EXE-файла иконки и рисование ее в TImage происходит с помощью вызова API ExtractIcon, после чего дескриптор иконки назначается TImage.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: EXE файл ::