如何让编辑成的EXE在操作系统里只允许一个进程?

Question

我想让我的EXE在操作系统里只存在一个已经运行的,该怎么做?我是一个菜鸟,什么都不懂,若有人知道请告诉我,说得详细点,十分感谢!

Answer 1

create事件里加入这个函数的使用
procedure ExeRunInfo;
var
  mh: THandle;
begin
  Application.title := 'ExeName';
  mh := Createmutex(nil, false, 'ExeName');
  if Getlasterror = error_already_exists then
  begin
    Closehandle(mh);
    Application.Terminate;
  end;
  Application.BringToFront;
  Setwindowlong(application.Handle, gwl_exstyle, ws_ex_toolwindow);
end;