unit_main.pas

来自「端口服务程序（ServerService.rar）及常用网络函数及加解密」· PAS 代码 · 共 94 行

unit Unit_Main;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls,
 SvcMgr, Dialogs, IniFiles,Des, Unit_FrmMain, MSNPopUp ;//,VPNConnect,ras;
   //86848138

type
TJKHServiceNT = class(TService)
    MSNPop: TMSNPopUp;
procedure ServiceContinue(Sender: TService; var Continued: Boolean);
procedure ServiceExecute(Sender: TService);
procedure ServicePause(Sender: TService; var Paused: Boolean);
procedure ServiceShutdown(Sender: TService);
procedure ServiceStart(Sender: TService; var Started: Boolean);
procedure ServiceStop(Sender: TService; var Stopped: Boolean);
private
{ Private declarations }
public
function GetServiceController: TServiceController; override;
{ Public declarations }
end;

var
JKHServiceNT: TJKHServiceNT;
FrmMain: TFrmMain;
implementation

{$R *.DFM}

procedure ServiceController(CtrlCode: DWord); stdcall;
begin
   JKHServiceNT.Controller(CtrlCode);
end;

function TJKHServiceNT.GetServiceController: TServiceController;
begin
   Result := ServiceController;
end;

procedure TJKHServiceNT.ServiceContinue(Sender: TService;
var Continued: Boolean);
begin
while not Terminated do
  begin
    Sleep(10);
    ServiceThread.ProcessRequests(False);
  end;
end;

procedure TJKHServiceNT.ServiceExecute(Sender: TService);
begin
while not Terminated do
  begin
    Sleep(100);
    ServiceThread.ProcessRequests(False);
  end;
end;

procedure TJKHServiceNT.ServicePause(Sender: TService;
var Paused: Boolean);
begin
  Paused := True;
end;

procedure TJKHServiceNT.ServiceShutdown(Sender: TService);
begin
   gbCanClose := true;
   FrmMain.Free;
   Status := csStopped;
   ReportStatus();
end;

procedure TJKHServiceNT.ServiceStart(Sender: TService; var Started: Boolean);
begin
     Started := True;
     Svcmgr.Application.CreateForm(TFrmMain, FrmMain);
     gbCanClose := False;
     FrmMain.Hide;
end;

procedure TJKHServiceNT.ServiceStop(Sender: TService;var Stopped: Boolean);

begin
   Stopped := True;
   gbCanClose := True;
   FrmMain.Free;
end;

end.