Forum: Object-Pascal / Delphi-Language
Delphi
by schwa226,
7. Jul 2009
Danke, aber dann sieht das Icon so aus:
http://www.bilder-space.de/thumb/07.07hAjFxN410fJHEWC.JPG
Mit der funktion:
function GetIconBitmap(MyIcon : TIcon): TBitmap;
var ABitmap: TBitmap;
begin
ABitmap := TBitmap.Create;
ABitmap.width := 32;
Forum: Object-Pascal / Delphi-Language
Delphi
by schwa226,
5. Jul 2009
Hi,
ich weis es gibt sicher schon viele Themen dazu, aber ich bekomme es trotzdem einfach nicht auf die Reihe.
Ich lade mir mit diesem Code:
Filter:=0;
MyIcon:=TIcon.Create;
MyIcon.Transparent := True;
MyIcon.Handle:=ExtractAssociatedIcon(hInstance, PChar('c:\windows\notepad.exe'), Filter);
Image1.canvas.draw(0,0,MyIcon);