如何判断程序是否已经执行

最新推荐文章于 2020-11-01 18:04:21 发布

jian704

最新推荐文章于 2020-11-01 18:04:21 发布

阅读量949

点赞数

文章标签： delphi windows forms ide

本文链接：https://blog.csdn.net/jian704/article/details/1736699

版权

bernhn (2003-01-09 10:27:00)

如何判断程序是否已经执行！

雪中漫步 (2003-01-09 10:41:00)

在 Application.Initialize; 之前判断主窗体是否创建了：
if findwindow('tmainform',nil)<>0 then halt;

dedema (2003-01-09 12:38:00)

判断谁的程序啊?
是别人的程序吗?
那要先找出它的主窗口标题.
然后:
if findwindow(nil,'主窗口标题')<>0 then showmessage('己经运行');

41426277 (2003-01-09 12:41:00)

var
hMutex: THandle;

begin
hMutex := CreateMutex(nil, False, '程序名');
if WaitForSingleObject(hMutex, 0) = wait_TimeOut then
begin
MessageBox(Application.Handle, '本程序已运行','警告!', MB_OK);
Exit;
end;

matrox (2003-01-09 12:44:00)

可以看下系统里，该程序的进程是否存在

Dinky (2003-01-09 12:48:00)

　　一、查找窗口法
　　这是最为简单的一种方法。在程序运行前用FindWindow函数查找具有相同窗口类名和标题的窗口，如果找到了，就说明已经存在一个实例。在项目源文件的初始化部分添加以下代码：
　　Program OneApp
　　Uses
　　Forms,Windows;（这里介绍的几种方法均需在项目源文件中添加Windows单元，以后不再重复了）
　　Var Hwnd:Thandle;
　　Begin
　　 Hwnd:=FindWindow(‘TForm1’，‘SingleApp’);
　　 If Hwnd=0 then
　　 Begin
　　 Application.Initialize;
　　 Application.CreateForm(Tform1, Form1);
　　 Application.Run;
　　 End;
　　End;
　　FindWindow()函数带两个参数，其中的一个参数可以忽略，但笔者强烈建议将两个参数都用上，免得凑巧别的程序也在使用相同的类名，就得不到正确的结果了。另外，如果是在Delphi IDE窗口中运行该程序，将一次都不能运行，因为已经存在相同类名和标题的窗口：设计时的窗体。
　　二、使用互斥对象
　　如果觉得查找窗口的方法效率不太高的话，可以使用创建互斥对象的方法。尽管互斥对象通常用于同步连接，但用在这个地方也是非常方便的。仅用了4句代码就轻松搞定。
　　VAR Mutex:THandle;
　　begin
　　 Mutex:=CreateMutex(NIL,True,‘SingleApp’);
　　 IF GetLastError<>ERROR_ALREADY_EXISTS THEN//如果不存在另一实例
　　 BEGIN
　　 Application.CreateHandle;
　　 Application.CreateForm (TExpNoteForm, ExpNoteForm);
　　 Application.Run;
　　 END;
　　 ReleaseMutex(Mutex);
　　end.