Zitat von
Doc Morelli:
procedure TForm1.Button1Click(Sender: TObject);
var Icon : TIcon;
begin
Icon := TIcon.Create;
Icon := (GetIconFromFile('C:\Windows\explorer.exe', 0));
Icon.SaveToFile('C:\icon.ico');
Icon.Free;
end;[/delphi]
Ich kann dir nicht bei deinem Problem helfen, allerdings hast du hier ein fettes Speicher Leck. Das Icon :=TIcon.Create ist überflüssig, da ja TIcon schon in der Funktion erstellt wird.