TypeAndRun.dpr

program TypeAndRun;
uses
  Forms,
  Classes,
  Windows,
  SysUtils,
  frmConsoleUnit in 'frmConsoleUnit.pas' {frmTARConsole},
  ForAll in 'ForAll.pas',
  Configs in 'Configs.pas',
  Static in 'Static.pas',
  frmSettingsUnit in 'frmSettingsUnit.pas' {frmSettings},
  frmAboutUnit in 'frmAboutUnit.pas' {frmAbout},
  Plugins in 'Plugins.pas',
  frmTypeDownDropUnit in 'frmTypeDownDropUnit.pas' {frmTypeDropDown},
  Settings in 'Settings.pas',
  frmHintUnit in 'frmHintUnit.pas' {frmHint};

{$R *.res}
{$R XPTheme.RES}

begin
	Application.Initialize;

	// Èíèöèàëèçàöèÿ ìàññèâîâ ñòðîê ïåðåä çàíåñåíèåì â íèõ êîíôèãà
	ConfigStr:=TStringList.Create;
	HistoryStr:=TStringList.Create;
	Options:=TSettings.Create;
	tmpAliasStr:=TStringList.Create;

  // Ñîçäàåì ñåìàôîð è ñìîòðèì, ñîçäàëñÿ ëè îí
	CreateSemaphore(nil, 0, 1, 'TypeAndRunSemaphore');
	if GetLastError = Error_Already_Exists then begin
    // Åñëè íå ñîçäàëñÿ, è ïàðàìåòð êîììàíäíîé ñòðîêè íå ïóñòîé, òî äîáàâëÿåì àëèàñ
		if ParamCount <> 0 then begin
      //Application.CreateForm(TfrmAbout, frmAbout);
      Application.CreateForm(TfrmTARConsole, frmTARConsole);
			Application.CreateForm(TfrmHint, frmHint);
			ActivatePrevInst;
    end;
		Application.Terminate;
    Halt;
  end;

  ParseCmdLine(1);

	Application.CreateForm(TfrmTARConsole, frmTARConsole);
  //Application.CreateForm(TfrmSettings, frmSettings);
	//Application.CreateForm(TfrmAbout, frmAbout);

  // Îáðàáîòêà ñîáûòèé àêòèâèçàöèè/äåàêòèâèçàöèè ïðèëîæåíèÿ
	Application.OnDeactivate:=frmTARConsole.AppDeActivate;
	Application.OnActivate:=frmTARConsole.AppActivate;

  // ×òåíèå âñåõ íàñòðîåê
	Options.ReadSettings;
  ReadConfig(Program_Config);
  ReadHistory(Program_History);
  Options.SystemAliases.ReadSystemAliases;
  ReadPlugins(Program_Plugin);
  LoadPlugins;

  // Óñòàíîâêà íà÷àëüíûõ çíà÷åíèé îòìåí
  UndoMax:=0;
	SetLength(Undo, UndoMax);
	SetLength(UndoCur, UndoMax);
	SetLength(UndoCurLength, UndoMax);

  ApplySettings;

  ParseCmdLine(2);

  if Options.Config.CDA_Startup then begin
  	ReturnDeadAliases;
  	CheckDeadAliases;
  end;

  if Options.Show.ShowConsoleOnStart then ShowCon;

  Application.Run;
end.