Проблема связана с запуском exe фалов!

[neo-210]

Привет всем, и заранее спасибо если кто поможет! У меня есть такая проблемка (поиск к сожалению не помог), я запускаю с помощью winexec или ShellExecute из свое программы написанной на дельфи exe-шник написанный на паскале, и теперь самое главное, если в коде паскалевского exe-шника встречается любая функция работы с внешними фалами (типо assign и прочее) работа програмы сразу слетает если запускается через приложение из дельфи, хотя если запустиь самому разумеется все работает! В чем проблема? Я сейчас пытаюсь разобраться с createprocess(возможно чтото прояниться), но я никак немогу понять в чем проблема!

Собственно я пишу приложение которое должно проверять правильность работы паскалевского экзешника, проверку я пытаюсь осуществить через текстовые фалы, тоесть в своей программе я регестрирую все данные о паскалевском exe-шнике, и параметры на вход которые сохраняются в txt, а паскалевский exe шник должен их считать, проработать и записать ответ также в txt и результаты я сверяю, но как я уже сказал при запуске из под дельфи работа с фалами у exe шника слетает! Очень буду рад если вы подскажете как выкрутиться, или если знаете, подскажите как еще можно реализовать проерку! Есть ли какая либо возможность передовать программе параметры а потом их считывать без применения txt документов как я описывал выше?

[FaTaL]

Может вы не закрываете файл перед тем как отдать работу паскалевской проге?

[neo-210]

По началу я тоже так подумал, позже я начал тестировать все это дело, в итоге получилось что это никак не влияет!

[DelDev]

Попытался повторить, работает, хоть с прогой на паскале, хоть с консольной на Delphi. Единственное о что у меня споткнулась прога - это программа которая тестирует пытается прочитать доступ к файлу ДО ТОГО как тестируемая программа создала этот файл.

То есть, при тестировании необходимо запустить процесс и дождаться его завершения, потом уже смотреть что получилось.

[neo-210]

DelDev: Можеш кинуть мне твой исходник, посмотрю может я где ляпочку допустил, ты запускал через какую функцию? Если ктонибудь знает как можно есчо справится помогите плиз!

[DelDev]

У меня сделан простой примерчик. Реализовано это все дело так:

В файле input.txt слово "File", программа на паскале (tst.exe и tst.pas) открывает этот файл, добавляет к нему слово "new!" И пишет в файл output.txt

Код проверяющей процедуры выглядит так:

procedure TForm1.Button1Click(Sender: TObject);
var
  cmd: string;
  sResult: TStringList;
  f: TextFile;
  s: string;
begin
  // результат работы консоли нужен для RunDosAndWait
  sResult := TStringList.Create;
  //подготавливаем путь
  cmd := IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName));
  cmd := cmd + 'tst.exe';
  //запускаем и ждем когда завершится
  RunDosAndWait(cmd, sResult);
  //проверяем результат
  AssignFile(f, 'output.txt');
  Reset(f);
  Readln(f, s);
  if s = 'File new!' then
  memo1.Lines.Add('выполнено успешно') else memo1.Lines.Add('не выполнено');
  CloseFile(f);
  sResult.Free;
end;

Функция RunDosAndWait в исходниках - выдернута из одного из проектов. Она реализована на основе CreateProcess, но как я и говорил - все работает и просто через WinExec только нужно дождаться когда отработает и запишется файл.

[neo-210]

DelDev: Спасибо большое, вроде работает, но теперь появилась новая проблемка, и теперь я понял в чем состояла моя прошлая ошибка, если exe-шник находится в папке с главной программой то все нормально запускается, а если в произвольном каталоге то запуск не происходит, точнее запуск происходит но как только у нее код доходит до assign прога слетает, мне же к сожалению нужно чтобы запускало именно из произвольного каталога, так как запускаемых файлов по замыслу проекта будет около 30 и они по разным критериям должны находится в разных каталогах. Пути прописаны 100% правильно. Я с самого начало не понял в чем реальная ошибка, но теперь я немогу понять как запустить файл с произвольного каталога, и почему же прога слетает Может быть есть у кого-нибуть какието идеи?

[DelDev]

Значит запущенная программа не находит файл с исходными данными. Попробуй использовать SetCurrentDir перед запуском и указывать каталог где фактически лежит нужная в данный момент программа.

[neo-210]

DelDev:Я честно говоря не совсям точно тебя сейчас понял! В главной программе я точно указываю нахождение запускаемого файла, но если ты говориш про паскаль, то никак немогу догнать как там использовать функцию SetCurrentDir , в Delphi то она работает. А как определять путь к фалу в паскале чето пока найти немогу, по паскалю вообще мало информации имеется по сравнению с тем же дельфи. Мне даже стало интересно, в паскале есть функция getdir но она требует предварительно знать название диска, а я то его незнаю зарание, а процедуры для определения диска я тоже найти немогу, блин.... В дельфи все намного проще...

[Alter]

ShellExecute используйте:

implementation
 uses ShellAPI;
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
Var S, S0 :String;
begin
 S := 'C:\Windows\Notepad.exe';
 S0 := ExtractFilePath(S);
  ShellExecute(Handle, nil, PChar(S), nil, PChar(S0), SW_Normal);
end;