Wie bekomme ich das mit einer Anwendung verknüpfte Icon?

In diesem Beispiel wird das icon der Programms Notepad.exe auf ein Form gezeichnet:

uses ShellApi;

var IconIndex : word;
    h : hIcon;

begin
  IconIndex := 0;
  h :=ExtractAssociatedIcon(hInstance, 'C:\WINDOWS\NOTEPAD.EXE', IconIndex);
  DrawIcon(Form1.Canvas.Handle, 10, 10, h);

Delphi 1

Delphi 2

Delphi 3

Delphi 4

nicht getestet

Version nicht betroffen

getestet

siehe auch:

Delphi FAQ