delphi 判断exe重复执行

标签：互斥   不能   read   als   phi   打开   执行   判断   exit   

var
hAppMutex: THandle; //声明互斥变量
begin
　　hAppMutex := CreateMutex(nil, false,‘WMS‘);// WMS应用程序名称
　　if ((hAppMutex <> 0) and (GetLastError() = ERROR_ALREADY_EXISTS)) then
　　begin
　　      MessageBox(APPLICATION.handle,‘程序已经运行，不能同时打开多个工程！‘,‘提示‘,MB_OK);
　　exit;
end;

delphi 判断exe重复执行

标签：互斥   不能   read   als   phi   打开   执行   判断   exit   

原文地址：http://www.cnblogs.com/yangxuming/p/6758845.html