推荐内容
var
myMutex:Thandle;
begin
myMutex:=CreateMutex(nil,false,'hkOneCopy');
if WaitForSingleObject(myMutex,0)<>wait_TimeOut then
messagebox(0,'a','a',0)
else
exit;
end.
myMutex:Thandle;
begin
myMutex:=CreateMutex(nil,false,'hkOneCopy');
if WaitForSingleObject(myMutex,0)<>wait_TimeOut then
messagebox(0,'a','a',0)
else
exit;
end.
上一篇：通过进程名称取进程PID 下一篇：键盘记录核心源码
评论列表