Forum: Win32/Win64 API (native code)
Delphi
by Der_Unwissende,
16. Nov 2005
Sorry, hab natürlich dein Problem nur etwas falsch verstanden. Dachte du bekommst generell nur 16x16 oder 32x32 (dachte halt auch an die größeren 48x48 usw) und hab deshalb nicht gesehen, dass du mit ExtractIconEx, diese beiden Icons hast.
Na ja, dann musst du es so machen (sorry, wieder nicht all zu schön, könnte ein FreeHandle fehlen!)
var ico : TIcon;
i : Integer;
iconCount :...
Forum: Win32/Win64 API (native code)
Delphi
by Der_Unwissende,
16. Nov 2005
Hi,
hab es gerade mal mit
if OpenDialog1.Execute then
begin
ico := TIcon.Create;
ico.Handle := ExtractIcon(Application.Handle, PChar(OpenDialog1.FileName), 0);
end;