刀
刀疤董
Unregistered / Unconfirmed
GUEST, unregistred user!
delphi编写的EXE应用程序是放在server2000服务器上,[red]不同的远程登录运行同一个程序,我现在想A用户打开了EXE应用程序后,B、C。。。。用户在打开该应用程序的时候,会提示【已打开】[/b[/red]]。begin CreateMutex(nil, True, 'TEST'); if GetLastError = ERROR_ALREADY_EXISTS then begin MessageBox(0, PChar('TEST程序已经在运行中!'), '警告', MB_ICONINFORMATION); Halt; end; ////////////////////////////////////////////////////////////////////系统初始化 Application.Initialize; Application.CreateForm(Tmain, main); Application.Run; //////////////////////////////////////////////////////////////////////////////end.以上代码在同一用户中运行多个该应用程序时有效,在跨用户运行该应用程序不能达到效果。