如何檢查程序已經運行

定义函数:
Function Long GetLastError() Library 'kernel32.dll'

如下判断：

string ls_AppName

IF Handle(GetApplication())>0 THEN
ls_AppName=GetApplication().AppName
CreateMutexA(0,TRUE,ls_AppName)
IF GetLastError()=183 THEN RETURN TRUE//已运行.
END IF

RETURN FALSE//未运行.