怎样使Delphi的exe文件不能多重启动？急啊！！

[sinumade]

怎样使Delphi的exe文件不能多重启动？急啊！！

[pankun]

方法很多啊，最简单的是在程序启动时建个互斥对象。

[pingshx]

h:hwnd;
h:=findwindow('你主窗口的标题',nil);
if h<>null then application.terminate;
application.createform(……………………）
…………………………………………………………
application.run;

编译时把主窗口关了！
互斥对象也可以！

[sinumade]

呵呵，能不能讲得详细些，

[星之瀚海]

建立一个互斥内核对象就行了
在应用程序开始时,如下方法:
var hnd:Handle;
hnd := CreateMutex(nil, True, '{631BCE72-D32A-42B9-9F70-FAB5106F5630}');
if GetLastError = ERROR_ALREADY_EXISTS then Halt;

[sinumade]

Thanks!