关闭

使程序只有一个实例

283人阅读 评论(0) 收藏 举报
判断应用程序进否正在运行:
function fAppIsRun : boolean;
var
  hMutex: THandle;
begin
  result := false;
  hMutex:=CreateMutex(nil,false,'PCBERP');
  if (hMutex > 0) and (GetLastError = ERROR_ALREADY_EXISTS) then
    result := true;
end; 
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:77827次
    • 积分:1445
    • 等级:
    • 排名:千里之外
    • 原创:58篇
    • 转载:27篇
    • 译文:1篇
    • 评论:6条
    最新评论