1. Уважаемые гости и пользователи форума.
    Администрация настоятельно рекомендует не регистрировать несколько аккаунтов для одного пользователя. При выявлении наличия мультиаккаунтов будут заблокированы все учетные записи данного пользователя.
    Аккаунты, зарегистрированные на временную почту будут также заблокированы.

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

Тема в разделе "Delphi", создана пользователем ExPlayer, 4 ноя 2015.

  1. Ветеран

    Регистрация:
    5 мар 2014
    Сообщения:
    376
    Симпатии:
    69
    Всем доброго времени суток! Хочу сделать launcher (Delphi 7) для "Back to The Future" (от Talltale Games), но есть одна загвоздка:
    при запуске эпизода игра ругается:
    scr1.png и scr2.png

    Делал 2-я способами:
    Код (Delphi):
    ShellExecute(Handle, nil, 'Episode 1\BackToTheFuture101.exe', nil, nil, SW_SHOWMAXIMIZED);
    и

    Код (Delphi):
    WinExec('Episode 1\BackToTheFuture101.exe', SW_SHOW);
    В обоих случаях результат один и тот же.

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

    Регистрация:
    15 июн 2011
    Сообщения:
    729
    Симпатии:
    455
    Попробуй задать еще и рабочую папку, должно помочь
     
    ExPlayer нравится это.
  3. Ветеран

    Регистрация:
    5 мар 2014
    Сообщения:
    376
    Симпатии:
    69
    Krinkels, при указании пути:
    Код (Delphi):
    ShellExecute(Handle, nil, 'Episode 1\BackToTheFuture101.exe', nil, 'Episode 1\', SW_SHOWNORMAL);
    Просто тишина, т.е. ошибки конечно нет, но и игра не запускается)))

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

    Регистрация:
    17 июн 2011
    Сообщения:
    143
    Симпатии:
    83
    ExPlayer нравится это.
  5. Ветеран

    Регистрация:
    5 мар 2014
    Сообщения:
    376
    Симпатии:
    69
    Avengerz13, спасибо за пример, но всё тоже самое - тишина. Ошибки нет, игра не запускается

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

    Оказывается можно было проще сделать:
    Код (Delphi):
    var
    dir:string;
    begin
    dir:=GetCurrentDir;
    ShellExecute(Handle, nil, PChar(dir + '\Episode 1\BackToTheFuture101.exe'), nil, PChar(dir + '\Episode 1\'), SW_SHOWNORMAL);
    Спасибо за помощь :good:
     
    Последнее редактирование: 4 ноя 2015
    Avengerz13 нравится это.
  6. Ветеран

    Регистрация:
    17 июн 2011
    Сообщения:
    143
    Симпатии:
    83
    ExPlayer, выложите исходники.
     
  7. Ветеран

    Регистрация:
    5 мар 2014
    Сообщения:
    376
    Симпатии:
    69
    Avengerz13, уже решил проблему, спасибо за помощь :good:
     

Поделиться этой страницей