#include <minigui.ch> 
  
  
 Procedure MAIN 
 local aIcons := ExtractIconEx( GetStartUpFolder() + "\demo.exe", 0, 0, 0, 1 )  
  
 priv hIcon := aIcons[2] 
  
 SET FONT TO "Ms Sans Serif", 8 
  
 DEFINE WINDOW Main ; 
 	AT 0,0 WIDTH 120 HEIGHT 119 ; 
 	TITLE "Information" ; 
 	MAIN ; 
 	ON PAINT fgDraw() ; 
 	ON RELEASE DestroyIcon( hIcon ) 
  
 	DEFINE LABEL hello 
 		ROW 43 - GetTitleHeight() - GetBorderHeight() 
 		COL 62 
 		VALUE 'Hello' 
 		AUTOSIZE .T. 
 	END LABEL 
  
 	DEFINE BUTTON ok 
 		ROW 83 - GetTitleHeight() - GetBorderHeight() 
 		COL 12 
 		WIDTH 90 
 		HEIGHT 21 
 		CAPTION 'OK' 
 		ACTION ThisWindow.Release 
 		DEFAULT .T. 
 	END BUTTON 
  
 END WINDOW 
 Main.Sizable   := .F.  // NOSIZE 
 Main.MinButton := .F.  // NOMINIMIZE 
 Main.MaxButton := .F.  // NOMAXIMIZE 
 Main.Center 
 Main.Activate 
 Return 
  
  
 Function fgDraw() 
 Drawicon( Application.Handle, 12, 12, hIcon ) 
 Return NIL 
  
  
 #pragma BEGINDUMP 
  
 #include <windows.h> 
 #include "hbapi.h" 
  
 #define SMALL_ICON 16 
  
 HB_FUNC( DRAWICON ) 
 { 
 	HWND hwnd = (HWND) hb_parnl( 1 ); 
 	HDC hdc; 
  
 	hdc   = GetDC( hwnd ); 
   
 	hb_retl( DrawIconEx( (HDC) hdc, hb_parni( 2 ), hb_parni( 3 ), (HICON) hb_parnl( 4 ), SMALL_ICON, SMALL_ICON, 0, 0, DI_NORMAL ) ); 
  
 	ReleaseDC( hwnd, hdc ); 
 } 
  
 HB_FUNC( DESTROYICON ) 
 { 
 	DestroyIcon( (HICON) hb_parnl( 1 ) ); 
 } 
  
 HB_FUNC ( EXTRACTICONEX ) 
 { 
 	HICON iLarge; 
 	HICON iSmall; 
 	UINT  nIcons=hb_parni(5); 
  
 	ExtractIconEx( (LPCSTR) hb_parc( 1 ), 
 					hb_parni( 2 )     , 
 					&iLarge           , 
 					&iSmall           , 
 					nIcons	); 
          hb_reta( 2 ); 
          hb_storvnl( ( LONG ) iLarge, -1, 1 ); 
          hb_storvnl( ( LONG ) iSmall, -1, 2 ); 
 } 
  
 #pragma ENDDUMP

#include "minigui.ch"  
  
  
 Procedure MAIN  
 LOCAL cText, cIcon := System.SystemFolder + "\user32.dll"  
 PRIVAT aIcon := {} 
  
 cText := 'hIcon := ExtractIcon( '+System.SystemFolder + "\user32.dll" + ', nI )'  
 cText += CRLF + 'DrawIcon( Application.Handle, nCol, nRow, hIcon )'  
  
 SET FONT TO "Tahoma", 9  
  
 DEFINE WINDOW Form_1 ;  
 AT 0,0 WIDTH 700 - GetBorderWidth() HEIGHT 300 - GetBorderHeight() ;  
 TITLE "Icons from user32.dll" ;  
 MAIN ;  
 ;//ON INIT fgDraw() ;  
 ON PAINT fgDraw() ;  
 BACKCOLOR { 40,122,237} ;  
 ON RELEASE aEval(aIcon, {|hIcon| DestroyIcon( hIcon ) }) 
  
 @ 10, 10 LABEL Label_Info VALUE cText WIDTH Form_1.Width-20 HEIGHT 42 ;  
 TRANSPARENT FONTCOLOR BLACK SIZE 12 CENTERALIGN  
  
 @ Form_1.Height-90, Form_1.Width-100 BUTTON Button_Exit ;  
 WIDTH 80 HEIGHT 50 ;  
 ICON cIcon ;  
 EXTRACT 3 ;  
 TOOLTIP 'Exit the program' ;  
 ACTION ThisWindow.Release()  
  
 END WINDOW  
 Form_1.Sizable := .F. // NOSIZE  
 Form_1.MinButton := .F. // NOMINIMIZE  
 Form_1.MaxButton := .F. // NOMAXIMIZE  
 Form_1.Center  
 Form_1.Activate  
 Return  
  
 /////////////////////////////////////////////////////////////////////////////////  
 Function fgDraw()  
 LOCAL nI, cStr1, cStr2, cObj1, cObj2  
 LOCAL nRow := 70, nCol  
  
 FOR nI := 0 TO 6 
  
 nCol := 20 + 90*nI 
  
 hIcon := ExtractIcon( System.SystemFolder + "\user32.dll", nI ) 
 aAdd(aIcon, hIcon) 
 Drawicon( Application.Handle, nCol, nRow, hIcon )  
  
 cObj1 := "Lbl1_a"+LTRIM(STR(nI))  
 cStr1 := "nI="+LTRIM(STR(nI))  
 if !_IsControlDefined(cObj1, 'Form_1') 
 @ nRow+40, nCol LABEL &cObj1 OF Form_1 VALUE cStr1 ;  
 WIDTH 100 HEIGHT 12 TRANSPARENT FONTCOLOR BLUE  
 endif 
 cObj2 := "Lbl2_a"+LTRIM(STR(nI))  
 cStr2 := "hIcon="+ CRLF + LTRIM(STR(hIcon))  
 if !_IsControlDefined(cObj2, 'Form_1') 
 @ nRow+55, nCol LABEL &cObj2 OF Form_1 VALUE cStr2 ;  
 WIDTH 120 HEIGHT 28 TRANSPARENT FONTCOLOR RED  
 endif 
  
 IF hIcon == 0 // if no icon  
 EXIT  
 ENDIF  
  
 NEXT  
  
 Return NIL  
  
  
 /////////////////////////////////////////////////////////////////////////////////  
 #pragma BEGINDUMP  
  
 #include <windows.h>  
 #include "hbapi.h"  
  
 #define SMALL_ICON 16  
  
 HB_FUNC( DRAWICON )  
 {  
 HWND hwnd = (HWND) hb_parnl( 1 );  
 HDC hdc;  
  
 hdc = GetDC( hwnd );  
  
 hb_retl( DrawIconEx( (HDC) hdc, hb_parni( 2 ), hb_parni( 3 ), (HICON) hb_parnl( 4 ), SMALL_ICON, SMALL_ICON, 0, 0, DI_NORMAL ) );  
  
 ReleaseDC( hwnd, hdc );  
 }  
  
  
 HB_FUNC( DESTROYICON )  
 {  
 DestroyIcon( (HICON) hb_parnl( 1 ) );  
 }  
  
 #pragma ENDDUMP