我想在delphi中防止同时执行两个程序实例，应该怎么办呢？在线等。。。。。

Question

我想在delphi中防止同时执行两个程序实例，应该怎么办呢？

Answer 1

hmutex := createmutex(nil, false, '高新技术企业信息网络管理系统');
  ret := getlasterror;
  { 判断是否已经运行该管理系统   }
  if ret <> error_already_exists then
  begin
  end  else
  begin
    application.MessageBox('本程序已经在运行', '警告!!', mb_ok);
    releasemutex(hmutex);
  end;

Answer 2

http://218.56.11.178:8020/web/index.aspx->下载基地->例程-经典应用->禁止启动程序两次