Mini Kabibi Habibi

Current Path : C:/xampp/src/xampp-control-panel/
Upload File :
Current File : C:/xampp/src/xampp-control-panel/xampp_control3.dpr

// JCL_DEBUG_EXPERT_INSERTJDBG OFF
program xampp_control3;

{$R *.dres}

uses
  Forms,
  ExtCtrls,
  Controls,
  Graphics,
  uMain in 'uMain.pas' {fMain},
  uApache in 'uApache.pas',
  uBaseModule in 'uBaseModule.pas',
  uTools in 'uTools.pas',
  uNetstatTable in 'uNetstatTable.pas',
  uNetstat in 'uNetstat.pas' {fNetstat},
  uConfig in 'uConfig.pas' {fConfig},
  uMySQL in 'uMySQL.pas',
  uFileZilla in 'uFileZilla.pas',
  uMercury in 'uMercury.pas',
  uProcesses in 'uProcesses.pas',
  uHelp in 'uHelp.pas' {fHelp},
  uServices in 'uServices.pas',
  gnugettext in 'gnugettext.pas',
  uLanguage in 'uLanguage.pas' {fLanguage},
  VersInfo in 'VersInfo.pas',
  uConfigUserDefined in 'uConfigUserDefined.pas' {fConfigUserDefined},
  uTomcat in 'uTomcat.pas',
  uLogOptions in 'uLogOptions.pas' {Form1},
  uServiceSettings in 'uServiceSettings.pas' {fServiceSettings},
  uProcesses_new in 'uProcesses_new.pas';//,
  //uExceptionDialog in 'uExceptionDialog.pas' {ExceptionDialog};

{$R *.res}

begin
  AddDomainForResourceString('delphi2006_de_en');
  AddDomainForResourceString('xampp_control');
  gnugettext.textdomain('xampp_control');

  TP_GlobalIgnoreClassProperty(TControl, 'HelpKeyword');
  TP_GlobalIgnoreClassProperty(TNotebook, 'Pages');
  TP_GlobalIgnoreClassProperty(TControl, 'ImeName');
  TP_GlobalIgnoreClass(TFont);

  IniFileName := Application.ExeName;
  IniFileName := copy(IniFileName, 1, length(IniFileName) - 3) + 'ini';

  LoadSettings;

  if Config.Language = '' then
  begin
    Config.Language := GetSystemLangShort;
    Application.CreateForm(TfLanguage, fLanguage);
  fLanguage.ShowModal;
    fLanguage.Free;
    SaveSettings;
  end;
  UseLanguage(Config.Language);

  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TfMain, fMain);
  Application.CreateForm(TfNetstat, fNetstat);
  Application.CreateForm(TfConfig, fConfig);
  Application.CreateForm(TfHelp, fHelp);
  Application.CreateForm(TfLanguage, fLanguage);
  Application.CreateForm(TfConfigUserDefined, fConfigUserDefined);
  Application.CreateForm(TfLogOptions, fLogOptions);
  Application.CreateForm(TfServiceSettings, fServiceSettings);
  Application.Run;

end.