控制只运行一份程序的另一个方法
2007-02-28 11:26
225 查看
将以下代码加到 工程文件中 即 .dpr 文件中
const iAtom='you exe name'; //如jzl
VAR
Mutex:THandle;
begin
Mutex:=CreateMutex(NIL,True,'you exe name');
IF GetLastError <> ERROR_ALREADY_EXISTS THEN
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end
else
MessageBox(0,'已经有一个程序在本机运行!','提示',mb_OK+MB_ICONINFORMATION);
ReleaseMutex(Mutex);
const iAtom='you exe name'; //如jzl
VAR
Mutex:THandle;
begin
Mutex:=CreateMutex(NIL,True,'you exe name');
IF GetLastError <> ERROR_ALREADY_EXISTS THEN
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end
else
MessageBox(0,'已经有一个程序在本机运行!','提示',mb_OK+MB_ICONINFORMATION);
ReleaseMutex(Mutex);
相关文章推荐
- 运行一份命令行程序的具体方法!
- VC++ 控制另一个程序开始运行并等待完成
- vc++ 在程序中运行另一个程序的方法
- vc++ 在程序中运行另一个程序的方法
- java线程控制,当stop按钮就停止,当start按钮就开始运行,当按stop时程序又停止的实现方法
- VBA编程“由于另一个程序正在运行中,此操作无法完成.”解决方法.
- 控制程序运行不超过指定个数实例的一种方法
- vc++ 在程序中运行另一个程序的方法
- Eclipse运行多个程序时控制台的切换
- 检测Python程序运行时间和内存占用的方法
- C#获取当前程序运行路径的方法集合
- Android程序首次运行自动创建桌面快捷方式的方法
- CentOS提示"另一个目前运行的程序正在访问软件信息"
- hadoop权威指南第四章StreamCompressor程序的运行方法与问题总结
- C#判断程序是否是管理员权限运行的方法代码示例
- 安装sql server 2000时出现:以前的某个程序安装已在安装计算机上创建挂起的文件操作.运行安装程序之前必须重新启动计算机.的解决方法
- vs2005 运行程序 出现没有找到MSVCP80D.dll 解决方法
- Delphi中,让程序只运行一次的方法
- 用eclipse运行java程序显示找不到main class,网上的方法都试了,还是不行,有没有知道怎么解决的呀!
- 提高程序运行效率的方法