您的位置:首页 > 其它

互斥对象的使用示例

2006-07-20 17:18 447 查看
var
hMutex: HWND;
Ret: integer;

begin
Application.Initialize;
Application.Title := '神迹之光-免费测试版';
hMutex := CreateMutex(nil, False, '传奇外挂 酷酷神仙版');
Ret := GetLastError;
if Ret <> ERROR_ALREADY_EXISTS then
begin
Application.CreateForm(TFrmMain, FrmMain);
Application.Run;
end
else
ReleaseMutex(hMutex);
end.
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: 
相关文章推荐