Icon Extract zu PNG

[geskill]

Hi,
ich hoffe das ist was du suchst:

Delphi-Quellcode:

function IconFromFile(const Filename: String; IconNr: Word): HICON;
var
  buffer: array[0..2*MAX_PATH]of Char;
begin
  StrPCopy(buffer, Filename);
  Result := ExtractAssociatedIcon(HInstance, buffer, IconNr);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Image1.Picture.Icon.Handle := IconFromFile('C:\WINDOWS\NOTEPAD.EXE',0);
end;