zoukankan
html css js c++ java
防止再次运行同一个应用程序
防止同时打开多个应用程序的实例,也就是同时只有一个程序在运行,再运行同一个程序时,会自动关闭,以下代码放在项目的.dpr(项目文件)中的Application.Initialize;上面。
代码如下
var
hMutex: DWORD;
Ret: Integer;
{以上代码要放在begin..end上}
hMutex :
=
0
;
try
hMutex :
=
CreateMutex(nil, False,
'
eShapeOfClient
'
);
//
TRUE 标明该进程拥有此 Mutex 对象eShapeOfClient为自己的程序文件名或自己定义的任意名称
Ret :
=
GetLastError;
if
(Ret
=
ERROR_ALREADY_EXISTS) then
//
Mutex 对象是否存在
begin
ReleaseMutex(hMutex);
Application.Terminate;
//
退出程序
end
else
if
hMutex
=
ERROR_INVALID_HANDLE then
begin
InfoDlg(
'
此程序正在运行,关闭后请重新再试!
'
);
//InfoDlg函数是自己定义的,通常用MessgeBox来代替
Application.Terminate;;
end;
finally
ReleaseMutex(hMutex);
end;
以上代码没有任何问题,但在运行第二个程序关闭时,也就是Application.Terminate; 会有屏闪,如果改成Exit;好像没有问题。
查看全文
相关阅读:
20155203 《深入理解计算机系统》第五章学习总结
2017-2018-1 20155203 20155204 实验五 通讯协议设计
20155203 《信息安全系统设计基础》第十一周学习总结
2017-2018-1 20155203 20155204 实验四 外设驱动程序设计
课上第六章测试(补)
20155203 《信息安全系统设计基础》第九周学习总结
2017-2018-1 20155203 实验三 实时系统
mypwd的编译和测试
第二周 第三周 课下实践补交
课上测试 补交及重做 深刻的教训
原文地址:https://www.cnblogs.com/sonicit/p/827382.html
最新文章
2017-2018-1 20155304 实验五 通讯协议设计
课下测试补交(ch01、ch02、ch07)
2017-2018-1 20155304 《信息安全系统设计基础》第十一周学习总结
2017-2018-1 20155304 20155332 实验四 外设驱动程序设计
实现mypwd
2017-2018-1 20155304 《信息安全系统设计基础》第九周学习总结
2017-2018-1 20155304 实验三 实时系统
2017-2018-1 20155304 《信息安全系统设计基础》第八周学习总结
2017-2018-1 学号20155209 《信息安全系统设计基础》第十五周学习总结
2017-2018-1 学号20155209 《信息安全系统设计基础》第十周学习总结
热门文章
2017-2018-1 学号20155209 《信息安全系统设计基础》第十四周学习总结
2017-2018-1 20155209 实验五 通讯协议设计
2017-2018-1 学号20155209 《信息安全系统设计基础》第十三周学习总结
实验四外设驱动程序设计
2017-2018-1 学号20155209 《信息安全系统设计基础》第十一周学习总结
2017-2018-1 20155209 实现mypwd
2017-2018-1 20155209 实验三 实时系统
2017-2018-1 学号20155209 《信息安全系统设计基础》第九周学习总结
20155203 《信息安全系统设计基础》课程总结
20155203 《信息安全系统设计基础》第十四周学习总结
Copyright © 2011-2022 走看看