Icon aus Exe funktioniert nur auf Button?

[Flodding]

Zitat:

Delphi-Quellcode:

        with form1 do begin

AIcon := TIcon.Create;
try
if GetIconFromFileA('c:\windows\explorer.exe', 0, AIcon) then 
canvas.Draw(0, 0, AIcon);
finally
AIcon.Free;
end;

        Programmpfada[a] := ADirectory + '\' + SS.Name;

ich habs doch in der with drinne...