While 1
$hFile = FileOpen("C:\STAMP", 2)
FileClose($hFile)
If FileExists("C:\STAMP") Then
$ahCallBack = _CallBack_Init("_Function", 1100)
MsgBox(0, '', 'CONTROLLARE STAMPANTE')
_CallBack_Free($ahCallBack)
If FileDelete("C:\STAMP") Then ExitLoop
EndIf
Sleep(10)
WEnd
MsgBox(0, '', 'FileDelete')
Func _Function()
SoundPlay("C:\Windows\media\tada.wav")
EndFunc ;==>_Function
Func _CallBack_Init($sFuncName, $iTime, $sParam = "")
Local $hCallBack = DllCallbackRegister($sFuncName, "int", $sParam)
Local $aTimer = DllCall("user32.dll", "uint", "SetTimer", _
"hwnd", 0, "uint", 0, "int", $iTime, "ptr", DllCallbackGetPtr($hCallBack))
Local $ahCallBack[2] = [$hCallBack, $aTimer[0]]
Return $ahCallBack
EndFunc ;==>_CallBack_Init
Func _CallBack_Free($ahCallBack)
If $ahCallBack[0] <> -1 Then DllCallbackFree($ahCallBack[0])
If $ahCallBack[1] <> -1 Then DllCall("user32.dll", "int", "KillTimer", "hwnd", 0, "uint", $ahCallBack[1])
EndFunc ;==>_CallBack_Free