如何避免程序运行两次(100分)

如何避免程序运行两次

放到你的程序的DRR里。
var
hMutex: HWND;
Ret: Integer;
begin
Application.Title := '你的程序名称;
hMutex := CreateMutex(nil, False, '你的程序名称');
Ret := GetLastError;
if Ret <> ERROR_ALREADY_EXISTS then
begin
Application.Initialize;
// 你创建的一些窗口
end
else
begin
SysUtils.beep;
MessageBox(0, '已运行!', '提示!', MB_ICONERROR);
end;
ReleaseMutex(hMutex)
end.

全文检索, 有很多...
http://www.delphibbs.com/delphibbs/dispq.asp?lid=415602

hMutex := CreateMutex(nil,False,PChar(‘MyMutex’));
iRet := GetLastError;
if iRet <>ERROR_ALREADY_EXISTS then
begin
..........
Application.Run;
end;
else
Application.MessageBox(PChar(PROGRAMALREADYRUNNING),PChar(WARNING),MB_OK);

ReleaseMutex(hMutex);

var
passform: Tpassform;
yzcs:integer=0;
mHandle: THandle;
PreviousInstanceWindow:HWND;
Project: string;
AppName:string;

//以下代码放到主窗体代码最后一个end前

initialization
Project := 'mzsf'; //此处字符串可根据情况自己定义
mHandle := CreateMutex(nil, True, PChar(Project));
if GetLastError = ERROR_ALREADY_EXISTS then
begin
AppName:=Application.Title;
Application.ShowMainForm := false;
Application.Title := 'destroy me';
PreviousInstanceWindow := FindWindow(nil,pchar(AppName));
if PreviousInstanceWindow <> 0 then
if IsIconic(PreviousInstanceWindow) then
ShowWindow(PreviousInstanceWindow,SW_RESTORE)
else
SetForegroundWindow(PreviousInstanceWindow);
Application.Terminate;
end;
finalization
if mHandle <> 0 then
CloseHandle(mHandle);

ddr 是什么意思？
我把这一段加在create事件中，程序运行两次后出现提示框。但还是运行了两次！

这问题看到很多……

这是一个比较简单的防止程序执行两次的方法
implementation
var hnd: THandle;

initialization
hnd := CreateMutex(nil, True, 'irgendwaseinmaliges');
if GetLastError = ERROR_ALREADY_EXISTS then Halt;

finalization
if hnd <> 0 then CloseHandle(hnd);
end.

通用的方法：
procedure TfrmMain.FormCreate(Sender: TObject);
var
ZAppName: array[0..127] of char;
Hold: String;
Found: HWND;
begin
//只允许有一个实例运行，如果已经有一个在运行则激活它
Hold := Application.Title; //取得程序的标题
Application.Title := 'OnlyOne' + IntToStr(HInstance); // 暂时修改窗口标题
StrPCopy(ZAppName, Hold); // 原窗口标题
Found := FindWindow(nil, ZAppName); // 查找窗口
Application.Title := Hold; // 恢复窗口标题
if Found<>0 then begin
// 若找到则激活已运行的程序并结束自身
ShowWindow(Found, SW_RESTORE);
Application.Terminate;
end;

end;

就是在你的程序在加入一个互斥句柄，一旦发现程序运行了一次后，
就禁止程序再次运行
hMutex := CreateMutex(nil, False, 'app.exe');
Ret := GetLastError;
在程序中可以采用cjsam的观点

单实例运行综合篇
Windows 下一个典型的特征就是多任务，我们可以同时打开多个窗口进行操作，也可以同时运行程序的多个实例，比如可以打开许多个资源管理器进行文件的移动复制操作。但有时出于某种考虑（比如安全性），我们要做出一些限制，让程序只能够运行一个实例。在Delphi编程中，笔者总结出了以下几种方法：

一、 查找窗口法
这是最为简单的一种方法。在程序运行前用FindWindow函数查找具有相同窗口类名和标题的窗口，如果找到了，就说明已经存在一个实例。在项目源文件的初始化部分添加以下代码：（这里介绍的几种方法均需在项目源文件中添加Windows单元，以后不再重复了）

Program OneApp
Uses
Forms,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,'已有一个实例运行！','',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;

多人接受答案了。