;Test file for SaveIcon. 

XIncludeFile "SaveIcon.pbi" 


;Load an icon or cursor - either from file or use one of Windows default icons. 

;UNCOMMENT AS APPROPRIATE. 
;   Define icon=LoadImage_(GetModuleHandle_(0),@"setup.ico",#IMAGE_ICON,0,0,#LR_LOADFROMFILE) 
;   Define cursor=LoadImage_(GetModuleHandle_(0),@"test1.cur",#IMAGE_CURSOR,0,0,#LR_LOADFROMFILE) 
;   Define icon=LoadIcon_(0,#IDI_ASTERISK) 
;   Define cursor=LoadCursor_(0,#IDC_ARROW) 

;Now call the SaveIcon procedure. 

;UNCOMMENT AS APPROPRIATE. 
;   SaveIcon(icon, "test.ico") 
;   SaveIcon(cursor, "test.cur")