- Код: Выделить всё
#Compile Exe
#Include "Win32API.inc"
%ENABLE_DEBUG = 1
Macro DP(st)
#If %ENABLE_DEBUG
Call OutputDebugString(st)
#EndIf
End Macro
Function PBMain() As Long
Local NumMessages As Long
Local x As Long
NumMessages = 5
For x = 1 To NumMessages
DP("This is a Debug Message.")
Sleep 1000
Next
End Function