Code: Select all
SendMessage("YOUR_PROGRAMMNAME_HERE", "DO_SOMETHING", "Argument1")
code=GetLastError()
If code=0
SystemRequest("Error!", "Program is already running","End")
End
EndIf
CreatePort("YOUR_PROGRAMMNAME_HERE")
Code: Select all
SendMessage("YOUR_PROGRAMMNAME_HERE", "DO_SOMETHING", "Argument1")
code=GetLastError()
If code=0
SystemRequest("Error!", "Program is already running","End")
End
EndIf
CreatePort("YOUR_PROGRAMMNAME_HERE")