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 : uHelp.pas

unit uHelp;

interface

uses
  GnuGettext, Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms,
  Dialogs, StdCtrls, Buttons, Vcl.ExtCtrls, uTools;

type
  TfHelp = class(TForm)
    lblMainProg: TLabel;
    bHelpClose: TBitBtn;
    lblSecondProg: TLabel;
    lblHelpEng: TLabel;
    lblHelpGer: TLabel;
    lblHelpEngLink: TLabel;
    lblHelpGerLink: TLabel;
    bReadMe: TButton;
    procedure bHelpCloseClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure lblHelpEngLinkClick(Sender: TObject);
    procedure lblHelpGerLinkClick(Sender: TObject);
    procedure OpenReadme(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  fHelp: TfHelp;

implementation

{$R *.dfm}

procedure TfHelp.bHelpCloseClick(Sender: TObject);
begin
  Close;
end;

procedure TfHelp.OpenReadme(Sender: TObject);
begin
  if Config.Language = 'en' then
    ExecuteFile('readme_en.txt','','', SW_SHOW);
  if Config.Language = 'de' then
    ExecuteFile('readme_de.txt','','', SW_SHOW);
end;

procedure TfHelp.FormCreate(Sender: TObject);
begin
  TranslateComponent(Self);
end;

procedure TfHelp.lblHelpEngLinkClick(Sender: TObject);
var
  App: string;
begin
  if Config.BrowserApp <> '' then
  begin
    App := Config.BrowserApp;
    ExecuteFile(App, lblHelpEngLink.Caption, '', SW_SHOW);
  end
  else
  begin
    ExecuteFile(lblHelpEngLink.Caption, '', '', SW_SHOW);
  end;
end;

procedure TfHelp.lblHelpGerLinkClick(Sender: TObject);
var
  App: string;
begin
  if Config.BrowserApp <> '' then
  begin
    App := Config.BrowserApp;
    ExecuteFile(App, lblHelpGerLink.Caption, '', SW_SHOW);
  end
  else
  begin
    ExecuteFile(lblHelpGerLink.Caption, '', '', SW_SHOW);
  end;
end;

end.