unit_main.pas

VirtualDesktopSources虚拟桌面源代码

unit Unit_Main;

interface

uses
  Windows,Classes,SvcMgr,activex, ExtCtrls;

type
  TService_Desktop = class(TService)
    Timer_Check: TTimer;
    procedure ServiceStart(Sender: TService; var Started: Boolean);
    procedure Timer_CheckTimer(Sender: TObject);
    procedure ServiceStop(Sender: TService; var Stopped: Boolean);
  private
  public
    function GetServiceController: TServiceController; override;
    { Public declarations }
  end;

var
  Service_Desktop: TService_Desktop;

implementation

uses Unit_Thread,ShellApi;

{$R *.DFM}

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

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

procedure TService_Desktop.ServiceStart(Sender: TService;
  var Started: Boolean);
begin
  Timer_Check.Enabled:=True;
end;

procedure TService_Desktop.ServiceStop(Sender: TService;
  var Stopped: Boolean);
begin
  Timer_Check.Enabled:=False;
end;

procedure TService_Desktop.Timer_CheckTimer(Sender: TObject);
begin
   Timer_Check.Enabled:=False;
   with TThreadDesktop.Create do
   try
     FreeOnTerminate:=True;
     WaitFor;
   except end;
   Timer_Check.Enabled:=True;
end;

end.