Hi,
hab es gerade mal mit
Delphi-Quellcode:
if OpenDialog1.Execute then
begin
ico := TIcon.Create;
ico.Handle := ExtractIcon(Application.Handle, PChar(OpenDialog1.FileName), 0);
end;
Probiert und hatte keine Probleme. Versuch mal die Funktion. Sorry für den unschönen Code, hab nur gerade kein Lust es schön zu machen.
Gruß Der Unwissende