home *** CD-ROM | disk | FTP | other *** search
/ PC World Plus! (NZ) 2001 June / HDC50.iso / Runimage / Delphi50 / Bin / DCLSTD50.BPL / 0 / RCDATA / SERVICE < prev    next >
Text File  |  1999-08-11  |  675b  |  48 lines
  1. program %s;
  2.  
  3. uses
  4.   SvcMgr;
  5.  
  6. {$R *.RES}
  7.  
  8. begin
  9.   Application.Initialize;
  10.   Application.Run;
  11. end.
  12. |unit %s;
  13.  
  14. interface
  15.  
  16. uses
  17.   Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs;
  18.  
  19. type
  20.   T%s = class(T%s)
  21.   private
  22.     { Private declarations }
  23.   public
  24.     function GetServiceController: TServiceController; override;
  25.     { Public declarations }
  26.   end;
  27.  
  28. var
  29.   %1:s: T%1:s;
  30.  
  31. implementation
  32.  
  33. {$R *.DFM}
  34.  
  35. procedure ServiceController(CtrlCode: DWord); stdcall;
  36. begin
  37.   %1:s.Controller(CtrlCode);
  38. end;
  39.  
  40. function T%1:s.GetServiceController: TServiceController;
  41. begin
  42.   Result := ServiceController;
  43. end;
  44.  
  45. end.
  46. |
  47. |
  48.