标签:互斥 不能 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;
标签:互斥 不能 read als phi 打开 执行 判断 exit
原文地址:http://www.cnblogs.com/yangxuming/p/6758845.html