在同一时间、同一台机器上如何禁止同一个应用程序启动多个实例 ( 积分: 20 )

jsw0525 · 2005-03-16

我的要求是在同一时间、同一台机器上如何禁止同一个应用程序启动多个实例，也就是说只能启动一次，不能启动多个一样的应用程序。我是下面这样写的，可是不行。（注意：如果把他写到一个BUTTON按纽底下，运行时用鼠标点按纽在点第2次的时候可以，但不是我所要的要求），各位大虾帮帮我，谢谢 procedure TForm1.FormCreate(Sender: TObject); var iprgHandle:cardinal; ZAppName:Array[0..127] of char; temptitle:string; begin  temptitle:=application.Title;  application.Title:='cxp';  strpcopy(ZappName,temptitle);  iprgHandle:=Findwindow(nil,zappName);  if iprgHandle&gt;0 then  begin    application.MessageBox('该程序已经运行！！！','警告',mb_ok);    application.Terminate;  end; end;

jsw0525 · 2005-03-16

我的要求是在同一时间、同一台机器上如何禁止同一个应用程序启动多个实例，也就是说只能启动一次，不能启动多个一样的应用程序。我是下面这样写的，可是不行。（注意：如果把他写到一个BUTTON按纽底下，运行时用鼠标点按纽在点第2次的时候可以，但不是我所要的要求），各位大虾帮帮我，谢谢 procedure TForm1.FormCreate(Sender: TObject); var iprgHandle:cardinal; ZAppName:Array[0..127] of char; temptitle:string; begin  temptitle:=application.Title;  application.Title:='cxp';  strpcopy(ZappName,temptitle);  iprgHandle:=Findwindow(nil,zappName);  if iprgHandle&gt;0 then  begin    application.MessageBox('该程序已经运行！！！','警告',mb_ok);    application.Terminate;  end; end;

jsw0525 · 2005-03-16

大虾们，帮忙呀 我在线等待，谢谢，我好急的

Pipi. · 2005-03-16

if(CreateMutex(nil,false,'某个字符串')&lt;&gt;0) then  begin  if(ERROR_ALREADY_EXISTS=GetLastError()) then     前面已经启动了这个程序    else     这是第一个程序启动  end else  系统错误   某个字符串是指你自己写一个独一无二的字符串，可以乱写alpdheui 这个字符串要写乱一点，避免和其他程序使用mutux用的字符串相同 但是要注意它不能包含“/”，样子要和合法的文件名差不多（就是最好不要~!@#$%^之类的符号,但是帮助上也没说这些符号不行，帮助上只说“/”不行，不过只使用字母、数字是肯定好的）

hb_126 · 2005-03-16

同意楼上

shangchao · 2005-03-16

你这也应该可以，出不什么问题？

jsw0525 · 2005-03-16

to

ipi. 老兄，真的太感谢您了。分数马上就给你，首先谢谢您 我对delphi熟悉一点，但是我上面说的这个要求现在单位要求用vc写，我想请问用vc怎么写，你知道吗？不胜感激，分数还可以给你加，谢谢您

jsw0525 · 2005-03-16

而且我想知道，我自己上面那样写为什么不行呢？？？？ 谢谢各位大虾了

qiuqiu133 · 2005-03-16

用FindWindow来判别程序有没有第二次运行光靠windowname是不够的，还得有classname 改成这个就行了  sClassName, sTitle: string; begin  sClassName := application.ClassName;  sTitle := application.Title;  application.Title := SDG12-EWD-23D-GHTF; //更改当前app标题  HW := findwindow(pchar(sClassName), pchar(sTitle));  if HW &lt;&gt; 0 then  begin    application.MessageBox('程序已经运行！','提示',MB_OK);    application.Terminate;  end;  application.Title := sTitle; //恢复app标题   采用pipi临界区互斥的方式也不错

Avalon · 2005-03-16

你的工程启动后实际上有两个window 一个是Form1 一个Project1 project1是看不见的 Findwindow都可以可以找到他们 你的枚举所有窗体看看是不是这样 换句话说 的代码这样改一下 application.Title:='cxp'+temptitle 这样你点多少次程序也关不掉 但这样 iprgHandle:=Findwindow(nil,'Form1'); 或 iprgHandle:=Findwindow('TForm1',nil); 按钮点一次就关了

Pipi. · 2005-03-16

vc这样写: if(CreateMutex(NULL,0,"某个字符串&quot

!=0)  {  if(ERROR_ALREADY_EXISTS==GetLastError())     {     前面已经启动了这个程序     }    else     {     这是第一个程序启动     }   } else  系统错误

jsw0525 · 2005-03-16

TO

ipi., 非常的感谢你，你的方法我试了，可以。请看我里面的注释说明，然后请告诉我，谢谢 if(CreateMutex(NULL,0,"某个字符串&quot

!=0)  {   if(ERROR_ALREADY_EXISTS==GetLastError())     {        MessageBox("前面已经启动了这个程序&quot

;        //在这个地方需要加一句话，退出应用程序，在DELPHI里面是application.Terminate.在VC里面是怎么写的呢？谢谢     }    else     {     MessageBox("这是第一个程序启动&quot

;     }   }  else      MessageBox("系统错误&quot

;

jsw0525 · 2005-03-16

TO：Avalon 你的方法我也试了，确实相当好，谢谢 我现在要用VC做，请将你告诉我的方法用VC写好吗？ 谢谢 我对VC只懂一点皮毛，但是公司要用VC我没办法，为了生存，谢谢您们了

fuzengbin · 2005-03-16

program DZTX; uses  Forms, windows,  main in 'main.pas' {Form1}, {$R *.res} var  MutexHandle: THandle; begin     MutexHandle := CreateMutex(nil, TRUE, 'MysampleAppMutex');   if MutexHandle &lt;&gt; 0 then     begin          if GetLastError = ERROR_ALREADY_EXISTS then          begin               MessageBox(0, '该程序已经运行!','My Program', mb_IconHand);               CloseHandle(MutexHandle);               Halt;          end;     end;     Application.Initialize;     Application.Title := 'My Program';     Application.CreateForm(TForm1, Form1);  Application.Run; end.

jsw0525 · 2005-03-16

to:qiuqiu133;fuzengbin, 请将你们的方法改成VC来实现，我现在需要用VC来实现，谢谢你们。 TO

ipi., 非常的感谢你，你的方法我试了，可以。请看我里面的注释说明，然后请告诉我，谢谢 if(CreateMutex(NULL,0,"某个字符串&quot

!=0)  {   if(ERROR_ALREADY_EXISTS==GetLastError())     {        MessageBox("前面已经启动了这个程序&quot

;        //在这个地方需要加一句话，退出应用程序，在DELPHI里面是application.Terminate.在VC里面是怎么写的呢？谢谢     }    else     {     MessageBox("这是第一个程序启动&quot

;     }   }  else      MessageBox("系统错误&quot

;

Avalon · 2005-03-16

使用CreateMutex要注意这样一个问题 在你程序不正常关闭时这个全局互斥对象肯能没有释放 导致你操作系统不重启就没法启动 所以一定要保证 CloseHandle(MutexHandle); 再退出时的执行 至于VC  好几年不用了

jsw0525 · 2005-03-16

to:qiuqiu133;fuzengbin, 请将你们的方法改成VC来实现，我现在需要用VC来实现，谢谢你们。 我在线等待，谢谢

Pipi. · 2005-03-16

Pipi. · 2005-03-16

#include &lt;stdlib.h&gt; application.Terminate 在vc中用 exit(0); 代替

Pipi. · 2005-03-16

Avalon只知其一不知其二 1、因为CreateMutex只执行一次，而不是不可预知的无限次数，所以不必closehandle了，你要closehandle也没关系，记得必须是程序退出的时候closehandle，而不能过早closehandle 2、即使是程序不正常关闭，mutex也被操作系统释放，不用担心，如果出现使用不了的情况，那除非是操作系统也快完蛋了，马上就要崩溃了，你的程序运行不运行都无所谓了

在同一时间、同一台机器上如何禁止同一个应用程序启动多个实例 ( 积分: 20 )

jsw0525

Unregistered / Unconfirmed

jsw0525

Unregistered / Unconfirmed

jsw0525

Unregistered / Unconfirmed

Pipi.

Unregistered / Unconfirmed

hb_126

Unregistered / Unconfirmed

shangchao

Unregistered / Unconfirmed

jsw0525

Unregistered / Unconfirmed

jsw0525

Unregistered / Unconfirmed

qiuqiu133

Unregistered / Unconfirmed

Avalon

Unregistered / Unconfirmed

Pipi.

Unregistered / Unconfirmed

jsw0525

Unregistered / Unconfirmed

jsw0525

Unregistered / Unconfirmed

fuzengbin

Unregistered / Unconfirmed

jsw0525

Unregistered / Unconfirmed

Avalon

Unregistered / Unconfirmed

jsw0525

Unregistered / Unconfirmed

Pipi.

Unregistered / Unconfirmed

Pipi.

Unregistered / Unconfirmed

Pipi.

Unregistered / Unconfirmed

Similar threads