Class TfrmMain (unit Control)

Inherits from

TForm

Constructors



Functions

procedure cmdStartClick(Sender: TObject);


procedure cmdStopClick(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure FormCreate(Sender: TObject);


Properties

Events

Variables

cmdStart : TButton;


cmdStop : TButton;


stsMessage : TStatusBar;


schSCManager : SC_HANDLE;


schService : SC_HANDLE;

Private declarations

ssStatus : TServiceStatus;



Constructors


Functions


procedure cmdStartClick(Sender: TObject);


procedure cmdStopClick(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure FormCreate(Sender: TObject);


Properties


Events


Variables


cmdStart : TButton;


cmdStop : TButton;


stsMessage : TStatusBar;


schSCManager : SC_HANDLE;


schService : SC_HANDLE;

Private declarations


ssStatus : TServiceStatus;