title image


Smiley Re: icons aus exe extrahieren


procedure TForm1.ExtractFileIcon(Datei: string; Anz: TPaintBox);

var

ico: TIcon;

i : Integer;

begin

ico := TIcon.Create;

try

for i := 0 to 10 do

begin

ico.Handle := ExtractIcon(Handle, PChar(Datei), i);

DrawIcon(Anz.Canvas.Handle, 0, i * 50, ico.Handle);

end;

finally

ico.Free;

end;

end;









procedure TForm1.Button1Click(Sender: TObject);

begin

ExtractFileIcon('C:\Programme\Cloudmark\SpamNet\SpamNet.dll', PaintBox1);

end;



Hier gehts im neuen Fenster zu meiner Homepage

ICQ:89594453
MSN:ensacom@hotmail.com
Skypeensacom


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: