Проблема Запуск игры [РЕШЕНО]

[ExPlayer]

Всем доброго времени суток! Хочу сделать launcher (Delphi 7) для "Back to The Future" (от Talltale Games), но есть одна загвоздка:
при запуске эпизода игра ругается:
и

Делал 2-я способами:

ShellExecute(Handle, nil, 'Episode 1\BackToTheFuture101.exe', nil, nil, SW_SHOWMAXIMIZED);

и

WinExec('Episode 1\BackToTheFuture101.exe', SW_SHOW);

В обоих случаях результат один и тот же.

Помогите, пожалуйста, разобраться, как запустить этот exe'шник.

 

[Krinkels]

Попробуй задать еще и рабочую папку, должно помочь

 

[ExPlayer]

Krinkels, при указании пути:

ShellExecute(Handle, nil, 'Episode 1\BackToTheFuture101.exe', nil, 'Episode 1\', SW_SHOWNORMAL);

Просто тишина, т.е. ошибки конечно нет, но и игра не запускается)))

Upd. при полном указании пути к exe'шнику и папки, всё работает, НО как это пофиксить (ведь пути у всех пользователей разные)?

 

[Avengerz13]

ExPlayer,

filename := PChar('"'+ExtractFileDir(Application.ExeName)+'Episode 1\BackToTheFuture101.exe"');;
ShellExecute(handle,'open',PChar(filename), '','',SW_SHOWNORMAL);

http://www.delphibasics.co.uk/RTL.asp?Name=ExtractFileDir

 

[ExPlayer]

Avengerz13, спасибо за пример, но всё тоже самое - тишина. Ошибки нет, игра не запускается

Upd. Всё, решил проблему

Оказывается можно было проще сделать:

var
dir:string;
begin
dir:=GetCurrentDir;
ShellExecute(Handle, nil, PChar(dir + '\Episode 1\BackToTheFuture101.exe'), nil, PChar(dir + '\Episode 1\'), SW_SHOWNORMAL);

Спасибо за помощь

 

[Avengerz13]

ExPlayer, выложите исходники.

 

[ExPlayer]

Avengerz13, уже решил проблему, спасибо за помощь