问题就是:当我启动了一个Delphi的exe后,当此exe还没关闭之前,当再次启动同一个exe时,出提示信息,并且不让此exe启动!还望大家多多指教,谢谢!
解决方案 »
- 关于货币类型问题,在Edit文本框中怎么才可以显示成货币形式:
- 想了解企业对象的分析、设计与开发,大家有没好书介绍???
- DLL调用问题。大家看看,盼解!
- 老生常谈:如何获取IE/Netcape/等浏览器网页内容?
- 重分寻求做报表的思路!!!!!
- 请问:如何在没有安装Delphi6环境的机器上编译一个Delphi源程序?
- 使用ADO连接远程数据库的问题急!!!
- 如何向dbgrid中的写数据
- 关于在RichEdit中显示字符串的怪现象!
- DELPHI里有控件数组吗?
- 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.