delphi 判断exe是否已经打开

2016-09-12 19:13:17来源:CSDN作者:u010636606人点击

      在你的工程源代码里写入下面代码:
     HMutex:=CreateMutexA(nil,False,'你的窗体名');     if GetLastError=ERROR_ALREADY_EXISTS then     begin        MessageBox(0,'程序已运行,请勿重复运行!','提示',MB_OK+MB_ICONHAND);        ReleaseMutex(HMutex);        exit;

     end;



从百度知道上看到的

http://zhidao.baidu.com/link?url=P9EPqlJIRrnNgpvDF94EXPDWW79XF9o7RJGQdGPqhXxq4R_5BWSRf8iwmjmDyeY_WteerSSKqJIRHoJYBw6OO8Q68E5mkAwPL18-L4ehaqS

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台