问题就是:当我启动了一个Delphi的exe后,当此exe还没关闭之前,当再次启动同一个exe时,出提示信息,并且不让此exe启动!还望大家多多指教,谢谢!
解决方案 »
- 在sql server 应用系统中,如果其中一台服务器坏了,怎样才能防止数据丢失,并在最短的时间内恢复系统?
- fastreport如何控制检索参数?
- 请问用delphi做corba时,若是局域网,则要在客户端加上代理,如果在internet上呢?
- 如何模拟键盘的按键操作!!!!!!!!急,高分!!!!
- 198分求电视剧《寻秦记》的下载地址!
- delphi线程中用adoconnection连接数据库,怎么解决,谢谢!
- 如何将实数转化成字符串,有没有现成的函数
- 如何改变TComboBox下拉按钮的图标?
- 怎样控制DBGRID网格的颜色?
- Delphi 中有没有 JavaScript 的 ParseInt() 函数???
- QuickRep时的字段为什么少了?
- 谁知道DELPHI7的install express哪可以找到啊?我的装了怎么说我没相应版本的?
if (GetLastError() =ERROR_ALREADY_EXISTS) then // a second one is running
halt;
第一次调用时注册成功, GetLastError = 0;
第二次调用时注册同名时, GetLastError = ERROR_ALREADY_EXISTS;
是在FormCreate中写.
var
MutexHandle:THandle;begin
MutexHandle:=windows.CreateMutex(nil,true,'你的窗体名如:Form1');
if mutexHandle<>0 then
begin
if GetLastError=windows.ERROR_ALREADY_EXISTS then
begin
closeHandle(Mutexhandle); //关闭互斥区
halt; //终止本程序的运行
end;
end;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
showwindow(application.handle, SW_HIDE); {隐藏句柄}
Application.ShowMainForm:=false; {隐藏窗体}
Application.Run;
end.