1
2 //---------------------------------------------------------------------------
3
4 #include <vcl.h>
5 #include <ShellApi.hpp>
6 #pragma hdrstop
7
8 #include "Unit1.h"
9 //---------------------------------------------------------------------------
10 #pragma package(smart_init)
11 #pragma resource "*.dfm"
12 TForm1 *Form1;
13 //---------------------------------------------------------------------------
14 __fastcall TForm1::TForm1(TComponent* Owner)
15 : TForm(Owner)
16 {
17 }
18 //---------------------------------------------------------------------------
19
20 void __fastcall TForm1::Button1Click(TObject *Sender)
21 {
22
23
24 HICON *LargeIcon ;
25 HICON *SmallIcon ;
26 int IconCount;
27 int i;
28 AnsiString FileName;
29
30 // draw a stripe with all large icons contained in the file
31 // and below of that a stripe with all small icons.
32
33 FileName = "C:\\WINNT\\RegEdit.exe";
34 IconCount = ExtractIconEx(FileName.c_str(), -1, LargeIcon, SmallIcon, 0);
35 for(i = 0;i< IconCount-1;i++){
36 ExtractIconEx(FileName.c_str(), i, LargeIcon, SmallIcon, 1);
37 DrawIcon(Canvas->Handle, 5 + i * 36, 5, LargeIcon);
38 DrawIconEx(Canvas->Handle, 5 + i * 36, 50, SmallIcon,
39 GetSystemMetrics(SM_CXSMICON), GetSystemMetrics(SM_CYSMICON), 0, 0,
40 DI_NORMAL);
41 }
42 }
43 //---------------------------------------------------------------------------
44
|
