Извлечение из 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 (Тетрис) 4 477 • TDictionary Custom Sort 6 508 • Fast Watermark Sources 6 296 • 3D Designer 9 240 • Sik Screen Capture 6 632 • Patch Maker 7 006 • Айболит (remote control) 7 015 • ListBox Drag & Drop 5 886 • Доска для игры Реверси 97 155 • Графические эффекты 7 214 • Рисование по маске 6 516 • Перетаскивание изображений 5 383 • Canvas Drawing 5 758 • Рисование Луны 5 467 • Поворот изображения 4 994 • Рисование стержней 3 548 • Paint on Shape 2 814 • Генератор кроссвордов 3 686 • Головоломка Paletto 2 971 • Теорема Монжа об окружностях 3 774 • Пазл Numbrix 2 489 • Заборы и коммивояжеры 3 173 • Игра HIP 2 138 • Игра Go (Го) 2 074 • Симулятор лифта 2 449 • Программа укладки плитки 2 116 • Генератор лабиринта 2 594 • Проверка числового ввода 2 268 • HEX View 2 597 • Физический маятник 2 211