摘要： procedure Tloginform.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 application.MessageBox(' 您已经打开了该软件'+#13#13+' 请 不要再尝试'+#13#13+'您只能运行一... 阅读全文