delphi 判断exe是否已经打开

    

  在你的工程源代码里写入下面代码：


      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