Question

怎么设置可以让一个程序只能打开一次，（既系统中只能同时运行该程序的一个例程）

Answer 1

参考下面一段法度榜样program project1;uses Forms, .....{$R *.RES}如许可以让用户本身决定是否再运行一次本法度榜样。begin CreateMutex(Nil,false,'project1'); if GetLastError = ERROR_ALREADY_EXISTS then windows, begin if Application.MessageBox('法度榜样eExs正在运行,是否再别的打开一个？','project1',4)=IDNO then begin SendMessage(HWND_BROADCAST,RegisterWindowMessage('eExs'),0,0); Halt(0); end; end; Application.Initialize; Application.CreateForm(Tfrmmain, frmmain); Application.Run;end.

Answer 2

翻以前的帖子，应用体系原子就可以，很简单。起首，检查如不雅原子存在。。。不然，定义原子。。。持续你的法度榜样