|
Registriert seit: 24. Jul 2003
Ort: Kassel
138 Beiträge
Delphi 6 Professional
|
Re: 16x16 Icons verzogen?
21. Aug 2003, 23:57
Hi,
dann versuch es mal mit der API Funktion ExtractIcon.
Delphi-Quellcode:
uses
[...] ShellAPI;
procedure TForm1.Button1Click(Sender: TObject);
var
Ico: TIcon;
begin
Ico:=TIcon.Create;
Ico.Handle:=ExtractIcon(0,'C:\server.ico',0);
Image1.Canvas.Draw(0,0,Ico);
Ico.Free;
end;
Au'revoir,
Aya~
I aim for my endless dreams and I know they will come true!
S: String = #86^)^3^)^4#58#32^(^4^4^0#58#47#47^7^7^7#46^+^/^3^(^)^'^!^9^!#46^$^%;
|