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

uses ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
var
  IconIndex: word;
  h: hIcon;
begin
  IconIndex := 0;
  h := ExtractAssociatedIcon(hInstance,
    'C:\WINDOWS\NOTEPAD.EXE', IconINdex);

  DrawIcon(Form1.Canvas.Handle, 10, 10, h);
end;

Похожие по теме исходники

Erase self EXE

EXE/PE Properties

Binary Search Images in EXE

Разбиение файла на части

Текст внутри файла

Рисование кривой звука

Рисование математических формул

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 166 • TDictionary Custom Sort 3 340 • Fast Watermark Sources 3 093 • 3D Designer 4 849 • Sik Screen Capture 3 348 • Patch Maker 3 554 • Айболит (remote control) 3 662 • ListBox Drag & Drop 3 016 • Доска для игры Реверси 81 711 • Графические эффекты 3 946 • Рисование по маске 3 250 • Перетаскивание изображений 2 631 • Canvas Drawing 2 754 • Рисование Луны 2 584 • Поворот изображения 2 191 • Рисование стержней 2 169 • Paint on Shape 1 569 • Генератор кроссвордов 2 237 • Головоломка Paletto 1 767 • Теорема Монжа об окружностях 2 232 • Пазл Numbrix 1 685 • Заборы и коммивояжеры 2 057 • Игра HIP 1 282 • Игра Go (Го) 1 230 • Симулятор лифта 1 475 • Программа укладки плитки 1 218 • Генератор лабиринта 1 548 • Проверка числового ввода 1 366 • HEX View 1 497 • Физический маятник 1 358