Re: TBitmap GetIconOfAnApplication (char *ApplicationName);

Article View: borland.public.cppbuilder.nativeapi

Article #9010

Back to borland.public.cppbuilder.nativeapi Previous Next

#9010

From: zoom
Date: Tue, 17 Aug 2004 08:56

18 lines
1348 bytes

> Look at the ExtractIcon() and ExtractAssociatedIcon() functions.
> Gambit

Thank you!...

Following is the code ;
...
void __fastcall TForm9::Button2Click(TObject *Sender)
{
  TIcon *Icon=NULL;
  Icon = new TIcon();
  Icon->Handle =  ExtractIcon(0,"C:\\WINDOWS\\NOTEPAD.EXE", 0);
  SpeedButton1->Glyph->Width = Icon->Width;
  SpeedButton1->Glyph->Height = Icon->Height;
  SpeedButton1->Glyph->Canvas->Draw(0, 0, Icon);
  delete Icon;
}
...

Technical Details

Message-ID: <4121c837@newsgroups.borland.com>

Path:

arc1-ca.pugleaf.net!g2news1.google.com!news2.google.com!proxad.net!fr.ip.ndsoftware.net!newsfeed00.sul.t-online.de!newsfeed01.sul.t-online.de!t-online.de!newsgroups.borland.com!not-for-mail

References: <4121b2ba$1@newsgroups.borland.com> <4121bcb3@newsgroups.borland.com>

Show Full Headers

Complete Article Headers

X-Google-Thread: 10cc67,c50a0e443c049a44
X-Google-Attributes: gid10cc67,public
X-Google-Language: ENGLISH,ASCII-7-bit
From: <zoom>
Newsgroups: borland.public.cppbuilder.nativeapi
References: <4121b2ba$1@newsgroups.borland.com> <4121bcb3@newsgroups.borland.com>
Subject: Re: TBitmap GetIconOfAnApplication (char *ApplicationName);
Date: Tue, 17 Aug 2004 18:56:13 +1000
Lines: 20
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1437
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1441
NNTP-Posting-Host: 211.30.68.31
Message-ID: <4121c837@newsgroups.borland.com>
X-Trace: newsgroups.borland.com 1092732983 211.30.68.31 (17 Aug 2004 01:56:23 -0700)
Path: arc1-ca.pugleaf.net!g2news1.google.com!news2.google.com!proxad.net!fr.ip.ndsoftware.net!newsfeed00.sul.t-online.de!newsfeed01.sul.t-online.de!t-online.de!newsgroups.borland.com!not-for-mail

Reply to Parent Message