delphi 判断exe重复执行

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重复执行

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