Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Получение иконки из ICO, EXE, DLL 2

Delphi , Графика и Игры , ICO

Получение иконки из ICO, EXE, DLL 2

Сначала в разделе interface пишем такой код:


type ThIconArray = array[0..0] of hIcon;
type PhIconArray = ^ThIconArray;

function ExtractIconExA(lpszFile: PAnsiChar;
  nIconIndex: Integer;
  phiconLarge : PhIconArray;
  phiconSmall: PhIconArray;
  nIcons: UINT): UINT; stdcall;
  external 'shell32.dll' name 'ExtractIconExA';

function ExtractIconExW(lpszFile: PWideChar;
  nIconIndex: Integer;
  phiconLarge: PhIconArray;
  phiconSmall: PhIconArray;
  nIcons: UINT): UINT; stdcall;
  external 'shell32.dll' name 'ExtractIconExW';

function ExtractIconEx(lpszFile: PAnsiChar;
  nIconIndex: Integer;
  phiconLarge : PhIconArray;
  phiconSmall: PhIconArray;
  nIcons: UINT): UINT; stdcall;
  external 'shell32.dll' name 'ExtractIconExA';

Затем по нажатию на кнопку:


procedure TForm1.Button1Click(Sender: TObject);
var
  NumIcons: integer;
  pTheLargeIcons: phIconArray;
  pTheSmallIcons: phIconArray;
  LargeIconWidth: integer;
  SmallIconWidth: integer;
  SmallIconHeight: integer;
  i: integer;
  TheIcon: TIcon;
  TheBitmap: TBitmap;
begin
  NumIcons :=
  ExtractIconEx('C:\Program Files\Borland\Delphi 3\BIN\delphi32.exe',
    -1, nil, nil, 0);
  if NumIcons > 0 then
  begin
    LargeIconWidth := GetSystemMetrics(SM_CXICON);
    SmallIconWidth := GetSystemMetrics(SM_CXSMICON);
    SmallIconHeight := GetSystemMetrics(SM_CYSMICON);
    GetMem(pTheLargeIcons, NumIcons * sizeof(hIcon));
    GetMem(pTheSmallIcons, NumIcons * sizeof(hIcon));
    FillChar(pTheLargeIcons^, NumIcons * sizeof(hIcon), #0);
    FillChar(pTheSmallIcons^, NumIcons * sizeof(hIcon), #0);
    ExtractIconEx('C:\Program Files\Borland\Delphi 3\BIN\delphi32.exe',
      0, pTheLargeIcons, pTheSmallIcons, numIcons);
    {$IFOPT R+}
    {$DEFINE CKRANGE}
    {$R-}
    {$ENDIF}
    for i := 0 to (NumIcons - 1) do
    begin
      DrawIcon(Form1.Canvas.Handle, i * LargeIconWidth, 0, pTheLargeIcons^[i]);
      TheIcon := TIcon. Create;
      TheBitmap := TBitmap.Create;
      TheIcon.Handle := pTheSmallIcons^[i];
      TheBitmap.Width := TheIcon.Width;
      TheBitmap.Height := TheIcon.Height;
      TheBitmap.Canvas.Draw(0, 0, TheIcon);
      TheIcon.Free;
      Form1.Canvas.StretchDraw(Rect(i * SmallIconWidth,
        100, (i + 1) * SmallIconWidth, 100 + SmallIconHeight), TheBitmap);
      TheBitmap.Free;
    end;
    {$IFDEF CKRANGE}
    {$UNDEF CKRANGE}
    {$R+}
    {$ENDIF}
    FreeMem(pTheLargeIcons, NumIcons * sizeof(hIcon));
    FreeMem(pTheSmallIcons, NumIcons * sizeof(hIcon));
  end;
end;

Программный код, используемый для извлечения иконок из исполняемого файла (delphi32.exe в этом случае) и отображения их на форме. Вот разбивка кода:

  1. Секция интерфейса определяет два типа: ThIconArray, который является массивом типа hIcon, и PhIconArray, который является указателем на ThIconArray.

  2. Три функции объявлены:

  3. ExtractIconExA: извлекает иконки из исполняемого файла в формате ANSI.
  4. ExtractIconExW: извлекает иконки из исполняемого файла в формате Unicode.
  5. ExtractIconEx: является алиасом для ExtractIconExA, используемым для извлечения иконок в формате ANSI.

  6. В процедуре Button1Click при нажатии кнопки:

  7. Количество иконок в исполняемом файле получается с помощью ExtractIconEx.
  8. Если есть иконки, то массивы больших и маленьких иконок выделяются.
  9. Иконки извлекаются из исполняемого файла с помощью ExtractIconEx.
  10. Цикл iterates over each icon:
    • Он рисует большую иконку на канвасе формы с помощью DrawIcon.
    • Создает TIcon и TBitmap, устанавливает handle маленькой иконки в текущей иконке, и затем рисует маленькую иконку на TBitmap.
    • TBitmap затем растягивается и рисуется на канвасе формы в конкретной позиции.
  11. Наконец, выделяемая память для больших и маленьких иконок освобождается.

Примечание: Этот код использует встроенные функции и типы Delphi, поэтому он может не работать напрямую в других языках программирования, таких как C++. Кроме того, обработка ошибок минимальна в этом коде, поэтому вам может потребоваться добавить более robust error handling, если вы планируете использовать этот код в производственной среде.

Как получить иконку из файла ICO, EXE или DLL в приложении на языке Delphi.


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


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: ICO ::


реклама



©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru

Время компиляции файла: 2024-06-02 10:20:12
2024-07-13 06:50:57/0.0035231113433838/0