实现程序不重复运行(只允许一个)

你需要打开你的工程文件源码,输入如下代码即可


这个是通过互斥来实现只允许一个程序实例运行:





文字代码如下:


var

  MutexHandle: THandle;


begin

  MutexHandle := Windows.CreateMutex(nil, true, 'JingxiCalssVideo');

  if MutexHandle <> 0 then

    if GetLastError = Windows.ERROR_ALREADY_EXISTS then

    begin

      Application.MessageBox('重复登录!', '系统提示', MB_ICONERROR);

      CloseHandle(MutexHandle);

      Halt;

    end;


  Application.Initialize;

  Application.CreateForm(TDataDm, DataDm);

  if not Live3tApp.Initialize then

    Exit;


  Application.Title := Appstr.TitleCaption;

  Application.ShowMainForm := True;

  Application.CreateForm(Tdm, dm);

  Application.CreateForm(TFrmMain, FrmMain);

  Application.Run;

end.



联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678