Ошибка запуска exe-файла

[qwerty55]

Здравствуйте всем!
Имеется такая проблема... Создал несколько проектов в делфи (тесты), все готовые (т.е. екзешники) и все что необходимо для их работы сложил в папку. Создал еще один проект оболочку учебного пособия, и из него хочу запускать свои же созданные тесты. Прописал через ShellExecute запуск приложения, он запускает, но как только появляется форма запускаемого приложения, выводит ошибку "File not found", я не могу понять в чем дело...
Причем та же самая ошибка выходит и при запуске теста в html...
Если же просто запускаю екзешник теста из папки самостоятельно, то работает все отлично. Помогите разобраться в чем дело.

[Dozent]

Дайте код как запускаете

[qwerty55]

ShellExecute(Form1.Handle, nil, PChar(ExtractFilePath
(Application.ExeName)+'\Dannie\Tests\Gogol.exe'), nil, nil, SW_SHOW);

если не получится так, то как хотя бы чтобы открывалась папка с этими тестами, и выделялся нужный файл теста

[Dozent]

ыводит ошибку "File not found",

Значит не правильн оуказываете пусть! А так вроед вывод правильный.

если не получится так, то как хотя бы чтобы открывалась папка с этими тестами

Есть такой компанент OpenDialog .

[qwerty55]

подсвечивание файла я сделал (т.е. открывается папка и указанный тест подсвечивается), но там нужно указывать полный путь папки, а мне так не пойдет, т.к. папка может быть перемещена допустим на диск D, и путь уже меняется...

Сообщение от Dozent

Значит не правильн оуказываете пусть! А так вроед вывод правильный.

Есть такой компанент OpenDialog .

путь я указываю правильный, потому что сам тест запускается (появляется его главная форма, но ничего не работает) и одновременно выходит ошибка "File not found"...

[evg_m]

ответ уже дан его надо просто понять.

Для определения полного имени при указании неполного используется ТЕКУЩАЯ(рабочая) папка (directory)/
Этому правилу следуют
и shellExcecute ( "Tests/test1.exe")
и загрузка данных в непосредственно в тесте LoadFromFile('test1.txt');

и текущая папка устанавливается
1. при запуске shell и далее не меняется без особых на то причин.
2. при запуске программы из среды.

И это будут РАЗНЫЕ папки!

С:\diplom\   tests\test1.exe 
C:\diplom\tests\      test1.exe

С:\diplom\   test1.txt  ----NOT FOUND 
C:\diplom\tests\     test1.txt ---OK

методы лечения.
1. использовать правильное указание рабочей directory при запуске
shellExcecute это позволяет.
2. в тестах использовать динамические абсолютные пути. (без привязки к рабочей папке).
Рабочая не значит та папка где лежит программа!!!

остальное по ссылке вначале.

[qwerty55]

в тесте через LoadFromFile сделана загрузка вопросов
Т.е. я так понял что нужно положить папку с тестами в директорию с пособием и тогда можно запукать ( "Tests/test1.exe")?

[evg_m]

СДАЮСЬ!

1. использовать правильное указание рабочей directory при запуске
shellExcecute это позволяет.

shellExecute с явным указанием рабочей directory (это один из параметров). уж найти какой именно это параметр надеюсь сможете.
Пепел Феникса в другой вашей теме в примере с Opendialog его использовал

2. в тестах использовать динамические абсолютные пути. (без привязки к рабочей папке).

LoadFromfile( ExtractFilePath(application.exename) +.....);

Я бы рекомендовал второй путь.

[Serge_Bliznykov]

Ну поймите же, ошибка возникает у вас НЕ ПРИ ЗАПУСКЕ EXE (как Вы наивно думаете!), а ВО ВРЕМЯ РАБОТЫ ЗАПУЩЕННОГО EXE!
разница - "я не могу зажечь газовую плиту" и "когда я зажигаю газовую плиту, пламя зелёное и до потолка" - разницу видите?!
Вы успешно запускаете свой тест. но он работать не может. ибо не может найти нужный ему файл. точка.!

Если не можете или, скорее, не хотите изменить исходный код текста (вашего gogol.exe), так, чтобы он работал корректно вне зависимости от того, откуда этот самый текст запущен (в LoadFormFile нужно использовать ПОЛНЫЙ ПУТЬ: т.е. у Вас .....LoadFromFile('mytest.txt');
а нужно вместо этого написать:

что-то.LoadFromFile(ExtractFilePath(Application.ExeName)+'\mytest.txt');

ну ладно. допустим. не хотите сделать нормально и надёжно.


Ну тогда в своей программе, где запускаете тест, сделайте ему (тесту) "тепличные, домашние" условия: предварительно папку с тестом сделайте ТЕКУЩЕЙ!!

procedure ChDir(S: string);

Description

ChDir changes the current directory to the path specified by S. If S includes a drive letter, the current drive is also changed.

вот так, например (в OpenDialog поставьте фильтр на *.EXE) :

if OpenDialog1.Execute then begin
    sTestFileName := OpenDialog1.FileName;
    sTestHomeDir := ExtractFilePath( sTestFileName );
    ChDir( sTestHomeDir );
    ShellExecute(Form1.Handle, nil, sTestFileName, nil, nil, SW_SHOW);
end;

или так ещё можно попробовать (так Вам Пепел Феникса предлагал):

if OpenDialog1.Execute then begin
    sTestFileName := OpenDialog1.FileName;
    ShellExecute(Form1.Handle, nil, sTestFileName, nil, PChar(ExtractFilePath(sTestFileName)), SW_SHOW);
end;

добавлено
проглядел я пост от evg_m, иначе свой бы уже и не писал.
Ибо ПОЛНОСТЬЮ с ним согласен!

[qwerty55]

Serge_Bliznykov, я все это написал, поставил директорию с тестами, но открывается OpenDialog и после выбора файла OpenDialog закрывается и ничего больше не происходит...