如何让程序只运行一个实例

getdelphi 2003-10-20 09:55:14
我的项目中是用EXE进行各个模块调用的.
请问实现程序运行一个实例?
...全文
57 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
lanshing 2003-10-21
  • 打赏
  • 举报
回复
将下面的代码稍加改动,加入工程文件
var
hMutex: THandle;
begin
hMutex := OpenMutex( MUTEX_ALL_ACCESS, FALSE, 'MyMutex' );
if hMutex<>0 then //已存在实例
begin
CloseHandle( hMutex );
end
else
begin
hMutex := CreateMutex( nil, FALSE, 'MyMutex' );

Application.Initialize;
Application.CreateForm(TMainFrm, MainFrm);
...
end
end
醉马不肖 2003-10-20
  • 打赏
  • 举报
回复
CreateMutex(...)
pankun 2003-10-20
  • 打赏
  • 举报
回复
http://www.csdn.net/develop/read_article.asp?id=20379

1,183

社区成员

发帖
与我相关
我的任务
社区描述
Delphi Windows SDK/API
社区管理员
  • Windows SDK/API社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧