StrictImport pub.win32Graphics(800,600)Const ResourceName:String = "MYICON" ' Make sure this matches the resource name that you choose in Resource HackerLocal icon:Int = LoadIconW(GetModuleHandleW(Null), ResourceName)SendMessageW(GetActiveWindow(), WM_SETICON, 0, icon) ' While Not AppTerminate() If KeyDown(KEY_ESCAPE) Exit Cls DrawText icon,0,0 FlipWend
StrictImport pub.win32Import "icon_import.o"Graphics(800,600)Local icon:Int = LoadIconW(GetModuleHandleW(Null), Short Ptr(101)) ' Use the ordinal number in the resource fileSendMessageW(GetActiveWindow(), WM_SETICON, 0, icon)While Not AppTerminate() If KeyDown(KEY_ESCAPE) Exit Cls DrawText icon,0,0 FlipWend
V-- hereSendMessageW(GetActiveWindow(), WM_SETICON, 1 , icon)