DELPHI 使程序只能运行一次

S3_Leo

procedure TForm1.FormCreate(Sender: TObject);
var
  errno:integer;
  hmutex:hwnd;
begin
  hmutex:=createmutex(nil,false,pchar(application.Title));
  errno:=getlasterror;
  if errno=error_already_exists then
  begin
    ShowMessage('程序已经在运行了');
    Application.Terminate;
  end;
end;