How to make the program run only one instance in PB

oopser

How to make the program run only one instance in PB

tiger_mars

app open write
ls_temp ='A random string'
gl_mutex = CreateMutex(0,0,ls_temp)
i = getlasterror()
if I = 183 and handle(GetApplication())> 0 then
messagebox('Message','xx system process is already running!', exclamation!)
return
end if

Function declaration
function ulong CreateMutex (ulong lpMutexAttributes, int bInitialOwner, ref string lpName) library "kernel32.dll" ALIAS FOR "CreateMutexA"
function ulong GetLastError () library "kernel32.dll"
function ulong ReleaseMutex(LONG H) library "kernel32.dll"

unkmass

long ll_winhandle
string ls_class,ls_winTitle
setNull(ls_class)
ls_winTitle = "Program main window name"
//Check if the main window already exists
ll_winhandle = FindWindowA(ls_class,ls_winTitle)
if ll_winhandle> 0 then
BringWindowToTop(ll_winhandle)
halt close
end if

unkmass

Function ulong BringWindowToTop(ulong HWND) Library "user32.dll"
Function ulong FindWindowA (String lpClassName,String lpWindowName) Library "user32.dll"