PROGRAM AB_Rus_Launcher;
uses
  Windows,
  SysUtils,
  APIHook in 'APIHook.pas';

CONST
    APP_TITLE = 'AB_Rus_Launcher v1.0';

PROCEDURE Err (Mes: STRING);
BEGIN
    Windows.MessageBox(0, PCHAR(Mes), APP_TITLE, Windows.MB_ICONSTOP);
    HALT;
END; // .procedure Err

VAR
    ExePath: STRING;                        // Ïóòü ê èñïîëíÿåìîìó ôàéëó
    DllPath: STRING;                        // Ïóòü ê âíåäðÿåìîé DLL
    PInfo: TProcessInformation;    // Èíôîðìàöèÿ î ïðîöåññå

BEGIN
    //IF ParamCount = 0 THEN BEGIN
    //    Err('Íå óêàçàí ïóòü ê èñïîëíÿåìîìó ôàéëó');
    //END; // .if
    //IF ParamCount = 1 THEN BEGIN
    //    Err('Íå óêàçàí ïóòü ê âíåäðÿåìîé DLL');
    //END; // .if
    //ExePath:=ParamStr(1);
    ExePath := 'h3blade.exe';
    IF NOT SysUtils.FileExists(ExePath) THEN BEGIN
        Err('Óêàçàííûé ôàéë "'+ExePath+'" íå ñóùåñòâóåò');
    END; // .if
    //DllPath:=ParamStr(2);
    DllPath := 'AB_Rus_Fixes.dll';
    IF NOT SysUtils.FileExists(DllPath) THEN BEGIN
        Err('Óêàçàííûé ôàéë "'+DllPath+'" íå ñóùåñòâóåò');
    END; // .if
    APIHook.RunProcessWithHookDll(ExePath, DllPath, PInfo);
END.