Запуск exe с готовыми настройками

[Shouldercannon]

Пытаюсь запустить lithtech.exe с готовыми настройками. Проблема возникла при указании пути на файл. Если путь указать с помощью OpenDialog всё нормально, если написать самому то игра начинается запускаться и тут же слетает (окно появляется и тут же исчезает). Если же нужный файл лежит в одной папке с lithtech.exe, то запуск производится нормально даже по указанному в Edit пути.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    OpenDialog1: TOpenDialog;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Path: string;

implementation

{$R *.dfm}

const CMDL_MAIN     : String = 'lithtech.exe -windowtitle "Aliens versus Predator 2 - Shouldercannon"';
      CMDL_REZES    : String = ' -rez AVP2.rez -rez sounds.rez -rez Alien.rez -rez Marine.rez -rez Predator.rez -rez Multi.rez -rez AVP2dll.rez -rez AVP2l.rez -rez AVP2p.rez -rez AVP2p1.rez -rez AVP2SP.rez';
      CMDL_SETTINGS : String = ' +DisableMusic 0 +DisableSound 0 +DisableMovies 1 +EnableTripBuf 1 +DisableHardwareCursor 0 +enableretaillevels 1';
      CMDL_NETWORK  : String = ' +gsa 1 +gsa_ip {%IP%} +gsa_port {%PORT%}';

procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDialog1.Execute;
Edit1.Text:=(ExtractFilePath(OpenDialog1.FileName));
end;

procedure TForm1.Button2Click(Sender: TObject);
var ExPath : String;
    List:TStringList;
begin
Path:=Edit1.Text;

if not FileExists(Path+'lithtech.exe') then begin
ShowMessage('File not found '+ Path+'lithtech.exe');
exit;
end;

ExPath := Path + CMDL_MAIN + CMDL_REZES + CMDL_SETTINGS + CMDL_NETWORK;

ShowMessage(ExPath);

WinExec(pchar(ExPath), SW_SHOW);
end;

end.

[0nni]

Задай рабочую директорию перед запуском.

[Shouldercannon]

Задай рабочую директорию перед запуском.

Тобишь сразу прописать путь если да, то это я делал.

[0nni]

перед выполнением WinExec напиши

ChDir();

в качестве параметра используй путь к папке с программой.
Либо через ShellExecute(), тоже с заданием рабочей папки.

[Shouldercannon]

Огромное спасибо! Работает.