Software: Apache. PHP/5.5.15 

uname -a: Windows NT SVR-DMZ 6.1 build 7600 (Windows Server 2008 R2 Enterprise Edition) i586 

SYSTEM 

Safe-mode: OFF (not secure)

C:\dmz\src\xampp-control-panel\   drwxrwxrwx
Free 4.15 GB of 39.52 GB (10.5%)
Detected drives: [ a ] [ c ] [ d ] [ e ] [ f ]
                            Encoder    Tools    Proc.    FTP brute    Sec.    SQL    PHP-code    Update    Feedback    Self remove    Logout    

Viewing file:     uBaseModule.pas (2.25 KB)      -rw-rw-rw-

unit uBaseModule;

interface

uses GnuGettext, Classes, ExtCtrls, StdCtrls, Buttons, SysUtils, uTools,
  uServices;

type
  tBaseModule = class
  public
    bbService: TBitBtn;
    pStatus: tPanel;
    lPID: tLabel;
    lPort: tLabel;
    bStartStop: TBitBtn;
    bAdmin: TBitBtn;
    AutoStart: boolean;

    oldIsRunningByte: byte;
    isRunning: boolean;
    isService: boolean;
    PIDList: tList;

    ModuleName: string;
    procedure Start; virtual; abstract;
    procedure Stop; virtual; abstract;
    procedure Admin; virtual; abstract;
    procedure UpdateStatus; virtual; abstract;

    procedure ServiceInstall; virtual; abstract;
    procedure ServiceUnInstall; virtual; abstract;

    procedure SetServiceButton(isActive: boolean);
    procedure CheckIsService(ServiceName: string);

    procedure AddLog(module, log: string; LogType: tLogType);
    constructor Create(pbbService: TBitBtn; pStatusPanel: tPanel; pPIDLabel, pPortLabel: tLabel; pStartStopButton, pAdminButton: TBitBtn);
    destructor Destroy; override;
  end;

implementation

uses uMain;

{ tBaseModule }

procedure tBaseModule.AddLog(module, log: string; LogType: tLogType);
begin
  fMain.AddLog(module, log, LogType);
end;

procedure tBaseModule.CheckIsService(ServiceName: string);
var
  ServiceStatus: TServiceStatus;
begin
  ServiceStatus := GetServiceStatus(ServiceName);
  isService := ServiceStatus in [ssRunning, ssStopped];
  SetServiceButton(isService);
end;

constructor tBaseModule.Create(pbbService: TBitBtn; pStatusPanel: tPanel; pPIDLabel, pPortLabel: tLabel; pStartStopButton, pAdminButton: TBitBtn);
begin
  PIDList := tList.Create;
  isRunning := false;
  isService := false;

  bbService := pbbService;
  pStatus := pStatusPanel;
  lPID := pPIDLabel;
  lPort := pPortLabel;
  bStartStop := pStartStopButton;
  bAdmin := pAdminButton;

  oldIsRunningByte := 2;

  AutoStart := false;
end;

destructor tBaseModule.Destroy;
begin
  PIDList.Free;
  inherited;
end;

procedure tBaseModule.SetServiceButton(isActive: boolean);
begin
  bbService.Glyph := nil;
  if isActive then
    fMain.ImageList.GetBitmap(11, bbService.Glyph);
  if not isActive then
    fMain.ImageList.GetBitmap(10, bbService.Glyph);
end;

end.