Programalama > DELPHI

Etiketler: hicon, ticon

Ort. 0
Puan ver:
var
 MyIcon:TIcon;
 icoHandle: HIcon;
begin
 MyIcon:=TIcon.Create;
 try
  icoHandle := ExtractIcon(application.handle,'c:\windows\explorer.exe', 0);
  MyIcon.Handle:=icoHandle;
  Image1.Picture.Icon:=MyIcon;
 finally
  MyIcon.free;
 end;
end;


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2018 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.