One Hat Cyber Team

Your IP : 172.16.0.254

Server IP : 58.26.163.33

Server : Windows NT DGPENSV2LPKMN 10.0 build 14393 (Windows Server 2016) AMD64

Server Software : Apache/2.4.46 (Win64) OpenSSL/1.1.1h PHP/7.3.25

PHP Version : 7.3.25

Buat File | Buat Folder

Dir : C:/xampp7/src/xampp-control-panel/

View File Name : uBaseModule.pas

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.