怎样控制该程序已经启动,就不准这个程序在启动,请写上源代码,谢谢!!!!
解决方案 »
- 同样代码(读取资源文件里的txt)D2010结果是乱码,D7里正常?
- delphi 2007 到底有没有和2006一样的 for .net 应用开发,哪位安装了的费神解答一下,刚查了网上说d2007没有for .net 了
- 急:如何使cxdbtextedit的值不被清除??
- FastReport 问题。。。。。
- 出售群发软件的源码,多线程,无需SMTP服务器,1000+封/分钟
- sql语句求救!!!!!!!!!!!!!!!!!!!! 急!!!!!!!!!!!!!!
- 请问如何在 DELPHI 2010 显示 PDF 文件
- 怎样把Image中的bmp图象去掉
- 如何判断一个字符串是否是常数
- DBGrid的MouseDown事件为什么没有发生?怎样让它发生?
- 请问在MIDAS 中怎么传送ORACLE 中的BLOB类开数据。
- 大家好,我们工作赛马的网站正式开通,请参观!
这是最为简单的一种方法。在程序运行前用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.
三、全局原子法
我们也可以利用向系统添加全局原子的方法,来防止多个程序实例的运行。全局原子由Windows 系统负责维持,它能保证其中的每个原子都是唯一的,管理其引用计数,并且当该全局原子的引用计数为0时,从内存中清除。我们用GlobalAddAtom 函数向全局原子添加一个255个字节以内的字符串,用GlobalFindAtom来检查是否已经存在该全局原子,最后在程序结束时用GlobalDeleteAtom函数删除添加的全局原子。示例如下:
Uses Windows
const iAtom=‘SingleApp’;
begin
if GlobalFindAtom(iAtom)=0 then
begin
GlobalAddAtom(iAtom);
Application.Initialize;
Application.CreateForm(TForm1,Form1);
Application.Run;
GlobalDeleteAtom(GlobalFindAtom(iAtom));
end
else
MessageBox(0,‘You can not run a second copy of this App’,‘’,mb_OK);
end.
利用全局原子的引用计数规则,我们还可以判断当前共运行了该程序的多少个实例:
var i:Integer;
begin
I:=0;
while GlobalFindAtom(iAtom)<>0 do
begin
GlobalDeleteAtom(GlobalFindAtom(iAtom));
i:=i+1;
end;
ShowMessage(IntToStr(I));
end;
const
MUTEX = 'MUTEX_HOUSESYS';
begin
Application.Initialize;
if OpenMutex(MUTEX_ALL_ACCESS, False, pChar(MUTEX)) = 0 then
CreateMutex(nil, True, pChar(MUTEX))
else
Exit;
winAPI?