Res_Ctrl.au3

SUBMITTED BY: Guest

DATE: May 28, 2013, 6:20 a.m.

FORMAT: Text only

SIZE: 16.8 kB

Raw Download

HITS: 1797

Report
  1. #include <Constants.au3>
  2. #include <WindowsConstants.au3>
  3. #include <WinAPI.au3>
  4. #include <Memory.au3>
  5. #include "Resource.au3"
  7. Global $Global_BackGroundArray[4][1]
  9. Func ResCtrlCreatePic($L,$T,$W,$H,$ResType,$ResName, _
  10. $ResLanguage = -1,$ModuleName = "",$Style = 0,$ExStyle = 0)
  12. $ImageHandle = ResGetImage($ResType,$ResName,$ResLanguage,$ModuleName)
  13. if @error Then Return SetError(1,0,0)
  14. $ImageType = @extended
  16. $ControlID = CtrlCreatePic($ImageHandle,$ImageType,$L,$T,$W,$H,$Style,$ExStyle)
  17. if @error Then Return SetError(2,0,0)
  19. Return SetError(0,$ImageType,$ControlID)
  21. EndFunc
  23. Func ResCtrlCreatePicEx($L,$T,$W,$H,$Text,$ResType,$ResName,$ResLanguage = -1, _
  24. $ModuleName = "",$Style = 0,$ExStyle = 0,$FontColor=0,$FontSize=8.5,$FomtWeight=400 _
  25. ,$FontAttribute=2,$Fontname="",$FontQuality=2)
  27. $ImageHandle = ResGetImage($ResType,$ResName,$ResLanguage,$ModuleName)
  28. if @error Then Return SetError(1,0,0)
  29. $ImageType = @extended
  31. $ControlID = CtrlCreatePicEx($ImageHandle,$ImageType,$L,$T,$W,$H,$Text,$Style, _
  32. $ExStyle,$FontColor,$FontSize,$FomtWeight,$FontAttribute,$Fontname,$FontQuality)
  33. if @error Then Return SetError(2,0,0)
  35. Return SetError(0,$ImageType,$ControlID)
  37. EndFunc
  39. Func ResCtrlCreate_Button($L,$T,$W,$H,$ResType,$ResName, _
  40. $ResLanguage = -1,$ModuleName = "",$Style = 0,$ExStyle = 0,$ReSize = False)
  42. $ImageHandle = ResGetImage($ResType,$ResName,$ResLanguage,$ModuleName)
  43. if @error Then Return SetError(1,0,0)
  44. $ImageType = @extended
  46. if ($ReSize) Then
  47. $SizeArray = GetImageSize($ImageHandle)
  48. if @error Then
  49. DeleteObj($ImageHandle,$ImageType)
  50. Return SetError(2,0,0)
  51. EndIf
  52. $W = $SizeArray[0]
  53. $H = $SizeArray[1]
  54. EndIf
  56. $ControlID = CtrlCreate_Button($ImageHandle,$ImageType,$L,$T,$W,$H,$Style,$ExStyle)
  57. if @error Then Return SetError(3,0,0)
  59. Return SetError(0,$ImageType,$ControlID)
  61. EndFunc
  63. Func ResSetBackGroundBmp($hWnd,$ResType,$ResName,$ResLanguage = -1 _
  64. ,$ModuleName = "",$DeletOldImage = True)
  66. $hImage = ResGetImage($ResType,$ResName,$ResLanguage,$ModuleName)
  67. if @error Then Return SetError(1,0,False)
  68. Local $ImageType = @extended
  69. if ($ImageType <> 1) Then DeleteObj($hImage,$ImageType)
  71. $SizeArray = GetImageSize($hImage)
  72. if @error Then
  73. DeleteObj($hImage,$ImageType)
  74. Return SetError(2,0,False)
  75. EndIf
  76. $BmpWidth = $SizeArray[0]
  77. $BmpHeight = $SizeArray[1]
  79. SetBackGroundBmp($hWnd,$hImage,$BmpWidth,$BmpHeight,$DeletOldImage)
  80. if @error Then
  81. DeleteObj($hImage,$ImageType)
  82. Return SetError(3,0,False)
  83. EndIf
  85. Return SetError(0,0,True)
  87. EndFunc
  89. Func ResSndPlaySound($ResType,$ResName,$ResLanguage = -1,$ModuleName = "",$LOOP = False)
  90. $ByteStruct = ResGet($ResType,$ResName,$ResLanguage,$ModuleName)
  91. if @error Then Return SetError(1,0,False)
  92. $LPVOID = DllStructGetPtr($ByteStruct)
  93. SndPlaySound($LPVOID,$LOOP)
  94. if @error Then Return SetError(2,0,False)
  95. Return SetError(0,0,True)
  96. EndFunc
  98. Func CtrlCreatePic($ImageHandle,$ImageType,$L,$T,$W,$H,$Style = 0,$ExStyle = 0)
  100. Local $SS_ICON_RES = 0x00000003,$SS_ENHMETAFILE_RES = 0x0000000F
  101. Local $SS_BITMAP_RES = 0x0000000E,$SS_REALSIZECONTROL_RES = 0x00000040
  103. Switch $ImageType
  104. Case 1 ;BITMAP
  105. $ImageStyle = BitOR($Style,$SS_BITMAP_RES,$SS_REALSIZECONTROL_RES)
  106. Case 4 ;ENHMETAFILE
  107. $ImageStyle = BitOR($Style,$SS_ENHMETAFILE_RES,$SS_REALSIZECONTROL_RES)
  108. Case 3,5 ;INCON OR CURSOR
  109. $ImageStyle = BitOR($Style,$SS_ICON_RES,$SS_REALSIZECONTROL_RES)
  110. Case Else
  111. Return SetError(1,0,0)
  112. EndSwitch
  114. $ControlID = GUICtrlCreateLabel("",$L,$T,$W,$H,$ImageStyle,$ExStyle)
  115. CtrlSetImage($ControlID,$ImageHandle,$ImageType)
  116. if @error Then Return SetError(2,0,0)
  117. Return SetError(0,$ImageType,$ControlID)
  119. EndFunc
  121. Func CtrlCreatePicEx($ImageHandle,$ImageType,$L,$T,$W,$H,$Text,$Style = 0,$ExStyle = 0, _
  122. $FontColor=0,$FontSize=8.5,$FomtWeight=400,$FontAttribute=0,$Fontname="",$FontQuality=2)
  124. Local $SS_BITMAP_RES = 0x0000000E,$SS_REALSIZECONTROL_RES = 0x00000040
  125. Local $SS_ICON_RES = 0x00000003,$SS_CENTER_RES = 0x01,$SS_CENTERIMAGE_RES = 0x0200
  126. Local $SS_ENHMETAFILE_RES = 0x0000000F
  128. Switch $ImageType
  129. Case 1 ;BITMAP
  130. $ImageStyle = BitOR($Style,$SS_BITMAP_RES,$SS_REALSIZECONTROL_RES)
  131. Case 4 ;ENHMETAFILE
  132. $ImageStyle = BitOR($Style,$SS_ENHMETAFILE_RES,$SS_REALSIZECONTROL_RES)
  133. Case 3,5 ;INCON OR CURSOR
  134. $ImageStyle = BitOR($Style,$SS_ICON_RES,$SS_REALSIZECONTROL_RES)
  135. Case Else
  136. Return SetError(1,0,0)
  137. EndSwitch
  139. $ControlID1 = GUICtrlCreateLabel("",$L,$T,$W,$H,$ImageStyle,$ExStyle)
  140. CtrlSetImage($ControlID1,$ImageHandle,$ImageType)
  141. if @error Then
  142. GUICtrlDelete($ControlID1)
  143. Return SetError(2,0,0)
  144. EndIf
  146. $ControlID2 = GUICtrlCreateLabel($Text,$L,$T,$W,$H,BitOR($SS_CENTER_RES,$SS_CENTERIMAGE_RES))
  147. GUICtrlSetColor(-1,$FontColor)
  148. GUICtrlSetBkColor(-1,-2);-2 $GUI_BKCOLOR_TRANSPARENT
  149. GUICtrlSetFont(-1,$FontSize,$FomtWeight,$FontAttribute,$Fontname,$FontQuality)
  150. Return SetError(0,$ImageType,$ControlID1)
  152. EndFunc
  154. Func DeletePicEx($ControlID)
  155. GUICtrlDelete($ControlID)
  156. GUICtrlDelete($ControlID + 1)
  157. EndFunc
  159. Func SetPosPicEx($ControlID,$L,$T,$W,$H)
  160. GUICtrlSetPos($ControlID,$L,$T,$W,$H)
  161. GUICtrlSetPos($ControlID + 1,$L,$T,$W,$H)
  162. EndFunc
  164. Func SetStatePicEx($ControlID,$State)
  165. GUICtrlSetState($ControlID,$State)
  166. GUICtrlSetState($ControlID + 1,$State)
  167. EndFunc
  169. Func SetStylePicEx($ControlID,$Style,$ExStyle)
  170. GUICtrlSetStyle($ControlID,$Style,$ExStyle)
  171. EndFunc
  173. Func CtrlCreate_Button($ImageHandle,$ImageType,$L,$T,$W,$H,$Style = 0,$ExStyle = 0)
  175. Local $BS_ICON_RES = 0x0040,$BS_BITMAP_RES = 0x0080
  177. Switch $ImageType
  178. Case 1 ;BITMAP
  179. $ImageStyle = BitOR($Style,$BS_BITMAP_RES)
  180. Case 3 ;ICON
  181. $ImageStyle = BitOR($Style,$BS_ICON_RES)
  182. Case Else
  183. Return SetError(1,0,0)
  184. EndSwitch
  186. $ControlID = GUICtrlCreateButton("",$L,$T,$W,$H,$ImageStyle,$ExStyle)
  187. CtrlSetImage($ControlID,$ImageHandle,$ImageType)
  188. if @error Then Return SetError(2,0,0)
  189. Return SetError(0,$ImageType,$ControlID)
  191. EndFunc
  193. Func CtrlSetImage($ControlID,$ImageHandle,$ImageType,$DeletOldImage = False)
  195. ;$ImageType
  196. ;$ImageType = 1 ==> BITMAP
  197. ;$ImageType = 3 ==> ICON
  198. ;$ImageType = 4 ==> ENHMETAFILE
  199. ;$ImageType = 5 ==> CURSOR
  200. ;$ControlID Of STATIC Control Or Button Control
  202. Local $ControHandle = $ControlID,$STM_SETIMAGE_RES = 0x0172,$IMAGE_ENHMETAFILE_RES = 3
  203. Local $IMAGE_BITMAP_RES = 0,$IMAGE_ICON_RES = 1,$IMAGE_CURSOR_RES = 2 , $RthImage = 0
  204. Local $BM_SETIMAGE_RES = 0xF7
  206. if Not IsHWnd($ControlID) Then $ControHandle = GUICtrlGetHandle($ControlID)
  207. Local $Class = _WinAPI_GetClassName($ControHandle)
  209. Select
  210. Case $Class == "Button"
  211. Switch $ImageType
  212. Case 1 ;BITMAP
  213. if ($DeletOldImage) Then $OldImage = CtrlGetOldImage($ControlID)
  214. Local $OldImageType = @extended
  215. $RthImage = _SendMessage($ControHandle,$BM_SETIMAGE_RES,$IMAGE_BITMAP_RES,$ImageHandle)
  216. if ($DeletOldImage And $OldImage <> $ImageHandle _
  217. And $OldImage) Then DeleteObj($OldImage,$OldImageType)
  218. Case 3 ;ICON
  219. if ($DeletOldImage) Then $OldImage = CtrlGetOldImage($ControlID)
  220. Local $OldImageType = @extended
  221. $RthImage = _SendMessage($ControHandle,$BM_SETIMAGE_RES,$IMAGE_ICON_RES,$ImageHandle)
  222. if ($DeletOldImage And $OldImage <> $ImageHandle _
  223. And $OldImage) Then DeleteObj($OldImage,$OldImageType)
  224. Case Else
  225. Return SetError(3,0,False)
  226. EndSwitch
  227. Case $Class == "Static"
  228. Switch $ImageType
  229. Case 1 ;BITMAP
  230. if ($DeletOldImage) Then $OldImage = CtrlGetOldImage($ControlID)
  231. Local $OldImageType = @extended
  232. $RthImage = _SendMessage($ControHandle,$STM_SETIMAGE_RES,$IMAGE_BITMAP_RES,$ImageHandle)
  233. if ($DeletOldImage And $OldImage <> $ImageHandle _
  234. And $OldImage) Then DeleteObj($OldImage,$OldImageType)
  235. Case 4 ;ENHMETAFILE
  236. if ($DeletOldImage) Then $OldImage = CtrlGetOldImage($ControlID)
  237. Local $OldImageType = @extended
  238. $RthImage = _SendMessage($ControHandle,$STM_SETIMAGE_RES,$IMAGE_ENHMETAFILE_RES,$ImageHandle)
  239. if ($DeletOldImage And $OldImage <> $ImageHandle _
  240. And $OldImage) Then DeleteObj($OldImage,$OldImageType)
  241. Case 3 ;ICON
  242. if ($DeletOldImage) Then $OldImage = CtrlGetOldImage($ControlID)
  243. Local $OldImageType = @extended
  244. $RthImage = _SendMessage($ControHandle,$STM_SETIMAGE_RES,$IMAGE_ICON_RES,$ImageHandle)
  245. if ($DeletOldImage And $OldImage <> $ImageHandle _
  246. And $OldImage) Then DeleteObj($OldImage,$OldImageType)
  247. Case 5 ;CURSOR
  248. if ($DeletOldImage) Then $OldImage = CtrlGetOldImage($ControlID)
  249. Local $OldImageType = @extended
  250. $RthImage = _SendMessage($ControHandle,$STM_SETIMAGE_RES,$IMAGE_CURSOR_RES,$ImageHandle)
  251. if ($DeletOldImage And $OldImage <> $ImageHandle _
  252. And $OldImage) Then DeleteObj($OldImage,$OldImageType)
  253. Case Else
  254. Return SetError(3,0,False)
  255. EndSwitch
  256. if IsHWnd($ControlID) Then $ControlID = _WinAPI_GetDlgCtrlID($ControlID)
  257. $ControHandle = GUICtrlGetHandle($ControlID + 1)
  258. if ($ControHandle) Then _WinAPI_RedrawWindow($ControHandle,0,0,$RDW_INVALIDATE)
  259. Case Else
  260. Return SetError(2,0,False)
  261. EndSelect
  263. if ($RthImage) Then DeleteObj($RthImage,$ImageType)
  264. Return SetError(0,0,True)
  266. EndFunc
  268. Func CtrlGetOldImage($ControlID)
  270. ; Return $OldImage Or Zero
  271. ;$ImageType = @extended
  272. ;$ImageType = 1 ==> BITMAP
  273. ;$ImageType = 3 ==> ICON
  274. ;$ImageType = 4 ==> ENHMETAFILE
  275. ;$ImageType = 5 ==> CURSOR
  277. Local $ControHandle = $ControlID,$STM_GETIMAGE_RES = 0x0173,$IMAGE_ENHMETAFILE_RES = 3
  278. Local $IMAGE_BITMAP_RES = 0,$IMAGE_ICON_RES = 1,$IMAGE_CURSOR_RES = 2 , $OldImage = 0
  279. Local $BM_GETIMAGE_RES = 0x00F6
  280. if Not IsHWnd($ControlID) Then $ControHandle = GUICtrlGetHandle($ControlID)
  281. Local $Class = _WinAPI_GetClassName($ControHandle)
  282. Select
  283. Case $Class == "Button"
  284. $OldImage = _SendMessage($ControHandle,$BM_GETIMAGE_RES,$IMAGE_BITMAP_RES,0)
  285. if ($OldImage) Then Return SetError(0,1,$OldImage)
  286. $OldImage = _SendMessage($ControHandle,$BM_GETIMAGE_RES,$IMAGE_ICON_RES,0)
  287. if ($OldImage) Then Return SetError(0,3,$OldImage)
  288. Return SetError(1,0,0)
  289. Case $Class == "Static"
  290. $OldImage = _SendMessage($ControHandle,$STM_GETIMAGE_RES,$IMAGE_BITMAP_RES,0)
  291. if ($OldImage) Then Return SetError(0,1,$OldImage)
  292. $OldImage = _SendMessage($ControHandle,$STM_GETIMAGE_RES,$IMAGE_ICON_RES,0)
  293. if ($OldImage) Then Return SetError(0,3,$OldImage)
  294. $OldImage = _SendMessage($ControHandle,$STM_GETIMAGE_RES,$IMAGE_CURSOR_RES,0)
  295. if ($OldImage) Then Return SetError(0,5,$OldImage)
  296. $OldImage = _SendMessage($ControHandle,$STM_GETIMAGE_RES,$IMAGE_ENHMETAFILE_RES,0)
  297. if ($OldImage) Then Return SetError(0,4,$OldImage)
  298. Return SetError(1,0,0)
  299. Case Else
  300. Return SetError(2,0,0)
  301. EndSelect
  302. EndFunc
  304. Func SetBackGroundBmp($hWnd,$hBmpImage,$BmpWidth,$BmpHeight,$DeletOldImage = True)
  305. Local $GuiTest = False , $UBound = UBound($Global_BackGroundArray)
  306. For $i = 0 To $UBound - 1
  307. if ($Global_BackGroundArray[$i][0] = $hWnd) Then
  308. $GuiTest = True
  309. ExitLoop
  310. EndIf
  311. Next
  312. if ($GuiTest = False) Then ReDim $Global_BackGroundArray[$UBound + 1][4]
  313. if ($DeletOldImage) And ($Global_BackGroundArray[$i][1]) _
  314. Then _WinAPI_DeleteObject($Global_BackGroundArray[$i][1])
  315. $Global_BackGroundArray[$i][0] = $hWnd
  316. $Global_BackGroundArray[$i][1] = $hBmpImage
  317. $Global_BackGroundArray[$i][2] = $BmpWidth
  318. $Global_BackGroundArray[$i][3] = $BmpHeight
  319. GUIRegisterMsg($WM_ERASEBKGND,"WM_ERASEBKGND")
  320. _WinAPI_RedrawWindow($hWnd)
  321. EndFunc
  323. Func RemoveBackGroundBmp($hWnd,$DeletImage = True)
  324. Local $GuiTest = False , $UBound = UBound($Global_BackGroundArray)
  325. Local $NewBackGroundArray[$UBound - 1][4]
  326. For $i = 0 To $UBound - 1
  327. if ($Global_BackGroundArray[$i][0] = $hWnd) Then
  328. $GuiTest = True
  329. ExitLoop
  330. EndIf
  331. Next
  332. if ($GuiTest = True) Then
  333. For $i = 0 To $UBound - 1
  334. if ($Global_BackGroundArray[$i][0] = $hWnd) Then ContinueLoop
  335. $NewBackGroundArray[$i][0] = $Global_BackGroundArray[$i][0]
  336. $NewBackGroundArray[$i][1] = $Global_BackGroundArray[$i][1]
  337. $NewBackGroundArray[$i][2] = $Global_BackGroundArray[$i][2]
  338. $NewBackGroundArray[$i][3] = $Global_BackGroundArray[$i][3]
  339. Next
  340. $Global_BackGroundArray = $NewBackGroundArray
  341. Else
  342. Return SetError(1,0,False)
  343. EndIf
  344. _WinAPI_RedrawWindow($hWnd)
  345. Return SetError(0,0,True)
  346. EndFunc
  348. Func WM_ERASEBKGND($hWnd, $Msg, $wParam, $lParam)
  349. Local $GuiTest = False , $UBound = UBound($Global_BackGroundArray)
  350. Local $BGhWnd = WindowFromDC($wParam)
  351. if Not @error Then
  352. For $i = 0 To $UBound - 1
  353. if ($Global_BackGroundArray[$i][0] = $BGhWnd) Then
  354. $GuiTest = True
  355. ExitLoop
  356. EndIf
  357. Next
  358. if ($GuiTest) Then
  359. $Pos = WinGetClientSize($BGhWnd)
  360. $hdc = _WinAPI_CreateCompatibleDC($wParam)
  361. $HGDIOBJ = _WinAPI_SelectObject($hdc,$Global_BackGroundArray[$i][1])
  362. StretchBlt($wParam,0,0,$Pos[0],$Pos[1],$hdc,0,0,$Global_BackGroundArray[$i][2], _
  363. $Global_BackGroundArray[$i][3],$SRCCOPY)
  364. $HGDIOBJ = _WinAPI_SelectObject($hdc,$HGDIOBJ)
  365. _WinAPI_DeleteDC($hdc)
  366. Return True
  367. EndIf
  368. EndIf
  369. EndFunc
  371. Func SndPlaySound($Ptr,$LOOP = False)
  372. ;File Type Or Format File.wav
  373. Local $SND_MEMORY = 4, $SND_ASYNC = 1 ,$SND_SYNC = 0,$SND_NODEFAULT = 2 , _
  374. $SND_LOOP = 0x0008 , $SND_NOSTOP = 0x0010 ,$SND_FILENAME = 0x00020000
  375. Local $fuSound = BitOR($SND_MEMORY,$SND_ASYNC,$SND_NODEFAULT)
  376. if ($LOOP) Then $fuSound = BitOR($fuSound,$SND_LOOP)
  377. $BOOL = DllCall("winmm.dll", "int", "sndPlaySound","ptr",$Ptr,"UINT",$fuSound)
  378. If @error Or $BOOL[0] = 0 Then Return SetError(1,0,False)
  379. Return SetError(0,0,True)
  380. EndFunc
  382. Func DeleteObj($Object,$ObjectType)
  383. Switch $ObjectType
  384. Case 1
  385. if (_WinAPI_DeleteObject($Object)) Then Return True
  386. Case 2
  387. if (DeleteMetaFile($Object)) Then Return True
  388. Case 3
  389. if (_WinAPI_DestroyIcon($Object)) Then Return True
  390. Case 4
  391. if (DeleteEnhMetaFile($Object)) Then Return True
  392. Case 5
  393. if (DestroyCursor($Object)) Then Return True
  394. EndSwitch
  395. Return SetError(1,0,False)
  396. EndFunc
  398. Func StretchBlt($hdcDest,$nXOriginDest,$nYOriginDest,$nWidthDest,$nHeightDest,$hdcSrc,$nXOriginSrc, _
  399. $nYOriginSrc,$nWidthSrc,$nHeightSrc,$dwRop)
  400. $Rt = DllCall("Gdi32.dll" ,"BOOL","StretchBlt","ptr",$hdcDest,"int",$nXOriginDest,"int",$nYOriginDest,"int",$nWidthDest , _
  401. "int",$nHeightDest,"ptr",$hdcSrc,"int",$nXOriginSrc,"int",$nYOriginSrc,"int",$nWidthSrc,"int",$nHeightSrc,"DWORD",$dwRop)
  402. if @error Or $Rt[0] = 0 Then Return SetError(1,0,0)
  403. Return SetError(0,0,$Rt[0])
  404. EndFunc
  406. Func WindowFromDC($hDC)
  407. $HWND = DllCall("User32.dll","ptr","WindowFromDC","ptr",$hdc)
  408. if @error Or $HWND[0] = 0 Then Return SetError(1,0,0)
  409. Return SetError(0,0,$HWND[0])
  410. EndFunc
  412. Func GetImageSize($hBmp)
  413. Local $ntagBITMAPINFO = "DWORD biSize;LONG biWidth;LONG biHeight;USHORT biPlanes;" & _
  414. "USHORT biBitCount;DWORD biCompression;DWORD biSizeImage;LONG biXPelsPerMeter;" & _
  415. "LONG biYPelsPerMeter;DWORD biClrUsed;DWORD biClrImportant;BYTE RGBQUAD[4]"
  416. Local $vBITMAPINFO = DllStructCreate($ntagBITMAPINFO)
  417. DllStructSetData($vBITMAPINFO,"biSize",(DllStructGetSize($vBITMAPINFO) - 4))
  418. Local $hDC = _WinAPI_CreateCompatibleDC(0)
  419. if @error Then
  420. _WinAPI_DeleteDC($hDC)
  421. Return SetError(1,0,0)
  422. EndIf
  423. _WinAPI_GetDIBits($hDC,$hBmp,0,0,0,DllStructGetPtr($vBITMAPINFO),0)
  424. if @error Then
  425. _WinAPI_DeleteDC($hDC)
  426. Return SetError(2,0,0)
  427. EndIf
  428. _WinAPI_DeleteDC($hDC)
  429. Local $biWidth = DllStructGetData($vBITMAPINFO,"biWidth")
  430. Local $biHeight = DllStructGetData($vBITMAPINFO,"biHeight")
  431. Local $SizeArray[2]
  432. $SizeArray[0] = $biWidth
  433. $SizeArray[1] = $biHeight
  434. Return $SizeArray
  435. EndFunc
  437. Func DeleteMetaFile($hmf)
  438. $BOOL = DllCall("Gdi32.dll","BOOL","DeleteMetaFile","ptr",$hmf)
  439. if @error Or $BOOL[0] = 0 Then Return SetError(1,0,False)
  440. Return SetError(0,0,True)
  441. EndFunc
  443. Func DeleteEnhMetaFile($hemf)
  444. $BOOL = DllCall("Gdi32.dll","BOOL","DeleteEnhMetaFile","ptr",$hemf)
  445. if @error Or $BOOL[0] = 0 Then Return SetError(1,0,False)
  446. Return SetError(0,0,True)
  447. EndFunc
  449. Func DestroyCursor($hCursor)
  450. $BOOL = DllCall("User32.dll","BOOL","DestroyCursor","ptr",$hCursor)
  451. if @error Or $BOOL[0] = 0 Then Return SetError(1,0,False)
  452. Return SetError(0,0,True)
  453. EndFunc
comments powered by Disqus