判断程序是否已运行的新思路,求其实现的办法?(100分)

panzichan · 2003-03-19

对于防止例程运行多个实例,我们一般采用如下办法: var    hmutex:HWnd;    IntRet:integer; begin   Application.Initialize;   hmutex:=CreateMutex(nil,false,pchar('MsChost'));   IntRet:=GetLastError;   if IntRet<>ERROR_ALREADY_EXISTS then   begin       Application.CreateForm(TForm1, Form1);   Application.Run;   end   else       ReleaseMutex(hmutex); end.      而对于判断某程序是否运行,我们一般用以下方法: 1.用getmodulefilenameex(openprocess(PROCESS_QUERY_INFORMATION OR PROCESS_VM_READ                           ,FALSE,PROCESSSTRUCT.th32ProcessID),0,                           @MODNAME[0],sizeof(modname))   函数来查找进程返回的文件路径名,是否符合条件. 2.或者用函数GetExitCodeProcess(FAppHandle, FAppState);判断    对于以上判断某程序是否运行两方法我都觉得繁琐,是否有API函数在程序中求出由 CreateMutex(nil,false,pchar('MsChost'));建立的互斥对像'MsChost',这样我们就可 知存在'MsChost',从而判断含有'MsChost'的程序已运行,是否有这样的函数? 请各位大虾多多指教....

ysai · 2003-03-19

不明白,使用CreateMutex只要一步,而用OpenMutex判断是否有已经打开的互斥对象,没有 还是得用CreateMutex建立,要用两步呀 The OpenMutex function returns a handle of an existing named mutex object. HANDLE OpenMutex(     DWORD dwDesiredAccess, // access flag     BOOL bInheritHandle, // inherit flag     LPCTSTR lpName // pointer to mutex-object name   &nbsp

; Parameters dwDesiredAccess Specifies the requested access to the mutex object. For systems that support object security, the function fails if the security descriptor of the specified object does not permit the requested access for the calling process. This parameter can be any combination of the following values: Access Description MUTEX_ALL_ACCESS Specifies all possible access flags for the mutex object. SYNCHRONIZE Windows NT only: Enables use of the mutex handle in any of the wait functions to acquire ownership of the mutex, or in the ReleaseMutex function to release ownership. bInheritHandle Specifies whether the returned handle is inheritable. If TRUE, a process created by the CreateProcess function can inherit the handle; otherwise, the handle cannot be inherited. lpName Points to a null-terminated string that names the mutex to be opened. Name comparisons are case sensitive. Return Values If the function succeeds, the return value is a handle of the mutex object. If the function fails, the return value is NULL. To get extended error information, call GetLastError. Remarks The OpenMutex function enables multiple processes to open handles of the same mutex object. The function succeeds only if some process has already created the mutex by using the CreateMutex function. The calling process can use the returned handle in any function that requires a handle of a mutex object, such as the wait functions, subject to the limitations of the access specified in the dwDesiredAccess parameter. The handle can be duplicated by using the DuplicateHandle function. Use the CloseHandle function to close the handle. The system closes the handle automatically when the process terminates. The mutex object is destroyed when its last handle has been closed.

panzichan · 2003-03-19

ysai:     兄弟,能给个实例吗,我的E文很差

我想实现的是,我的一个程序A在判断我的另一个程序B,是否已运行,快点给吧!! 兄弟,我想给分你呢....

小雨哥 · 2003-03-19

给你一个链接： http://www.delphibbs.com/delphibbs/dispq.asp?lid=1685788

panzichan · 2003-03-19

小雨哥:     但我想用判断是否有已经打开的互斥对象的方法,有吗?

小雨哥 · 2003-03-19

互斥对象在建立时给个名字，执行时先试着 Open ，不能 Open 就 Create 就行了。 离线库里有很多介绍。

ysai · 2003-03-19

工程1,只能运行一个实例 program Project1; uses   Forms,   windows,   Unit1 in 'Unit1.pas' {Form1}; {$R *.res} var   hMutex:HWND; begin   Application.Initialize;   hMutex:=CreateMutex(nil,False,'{ECAAA829-31D8-400E-A697-5704137303B7}');   If GetLastError=ERROR_ALREADY_EXISTS Then   begin     ReleaseMutex(hMutex);     Application.Terminate;     exit;   end;   Application.CreateForm(TForm1, Form1);   Application.Run;   ReleaseMutex(hMutex); end. 工程2,如果工程1没有运行则提示并退出 program Project2; uses   Forms,   windows,   Dialogs,   Unit1 in 'Unit1.pas' {Form1}; {$R *.res} begin   Application.Initialize;   if OpenMutex(MUTEX_ALL_ACCESS,False,'{ECAAA829-31D8-400E-A697-5704137303B7}')=0 then   begin     showmessage('请运行工程1');     Application.Terminate;     exit;   end;   Application.CreateForm(TForm1, Form1);   Application.Run; end. 为了不与其它程序冲突,使用了GUID作标识,在DELPHI编辑器中按Ctrl+Shift+G可以生成, 注意两个GUID是相同的.

rocl · 2003-03-20

对于自己写的程序，主窗口的Caption是已知的，如果这个Caption是不变的，那么是不是可以用FindWindow查找窗口，如果找到了，那么就说明已经运行了一个实例。

panzichan · 2003-03-22

感谢ysai

判断程序是否已运行的新思路,求其实现的办法?(100分)

panzichan

Unregistered / Unconfirmed

ysai

Unregistered / Unconfirmed

panzichan

Unregistered / Unconfirmed

小雨哥

Unregistered / Unconfirmed

panzichan

Unregistered / Unconfirmed

小雨哥

Unregistered / Unconfirmed

ysai

Unregistered / Unconfirmed

rocl

Unregistered / Unconfirmed

panzichan

Unregistered / Unconfirmed

Similar threads