恒上集团IT部

持之以恒,天天向上

使程序只有一个实例
判断应用程序进否正在运行:
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; 
阅读更多
文章标签: function
个人分类: Delphi技术专题
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

不良信息举报

使程序只有一个实例

最多只允许输入30个字

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭