判断应用程序是否重复启动

[JETQIU]

各位大侠，可不可以提供一个能判断pb中判断程序是否重复启动的方法啊？

[hzhxxx]

//*******************************************************//
// function : 判断程序是否运行
// parm : (none)
//return : true is running or false is not running
//auther : hzh
//date : 2002.04.29
//******************************************************//

//相关 win32 api

private :
Function ULong CreateMutexA(ULong lpsa, Boolean fInitialOwner, String lpszMutexName) Library 'kernel32.dll'
Function uint GetModuleFileNameA(ulong hModule,ref string lpFilename,ulong nSize) Library "kernel32.dll"


string ls_AppName

application ga_app
ga_app = getapplication()

ls_AppName = ga_app.AppName

CreateMutexA(0,TRUE,ls_AppName)

IF GetLastError()=183 THEN RETURN TRUE

RETURN FALSE

[mittee]

findwindowA(0,"yourwindow_name") //api function

[banalman]

下面的代码根据应用的主窗口来判断的。

string ls_sversion,ls_cversion,ls_exedir1
datetime ldt_sversiondate,ldt_cversiondate

datetime ldt_date
ulong l_handle, lu_class
int li_retu
string ls_debug,ls_exe

l_handle = FindWindowA(lu_class,gs_system_name ) // FindWindowA
if l_handle > 0 then
li_retu=MessageBox("提示","应用程序已经运行,不必多次启动！",exclamation!,YesNo!,1)
if li_retu=1 then Halt Close
end if

Open(w_splash)