програмно вызвать brcc.exe, то не собирает ресурсы!

[Человек_Борща]

Всем привет! собственно сабж=)

Програмно пишу файл RC, далее запускаю борландовский brcc

procedure ShellExecuteAndWait(FileName, aRunRarams: string; ShowMode: Cardinal);
var
  exInfo: TShellExecuteInfo;
  Ph: DWORD;
begin
  FillChar(exInfo, SizeOf(exInfo), 0);
  with exInfo do
  begin
    cbSize := SizeOf(exInfo);
    fMask := SEE_MASK_NOCLOSEPROCESS or SEE_MASK_FLAG_DDEWAIT;
    Wnd := GetActiveWindow();
    exInfo.lpVerb := 'open';
    lpFile := PWideChar(FileName);
    lpParameters := PWideChar(aRunRarams);
    nShow := ShowMode;
  end;
  if ShellExecuteEx(@exInfo) then
  begin
    Ph := exInfo.HProcess;
  end
  else
  begin
    ShowMessage(SysErrorMessage(GetLastError));
    Exit;
  end;
  while WaitForSingleObject(exInfo.HProcess, 50) <> WAIT_OBJECT_0 do
    Application.ProcessMessages;
  CloseHandle(Ph);
end;

....
    ShellExecuteAndWait(myDir + 'Data\Compiler\BRCC.exe',
      myDir + 'Data\Compiler\InDATA.rc -foInDATA', SW_HIDE);
{   myDir - ExtractFilePath(ParamStr(0))  }

Но файлик RES е появляется....

А если обычный батник:

brcс.exe InDATA.rc -foInDATA

то RES файл успешно появляется...

[Zeron]

по моему этот файл называется brcc32.exe, а не просто brcc.exe

[Человек_Борща]

у меня он вообще brc.exe называется(вытащил и переименовал). В прочем решения проблемы в вашем сообщении я не вижу...

[maxionans]

а myDir точно заканчивается символом '\'?

[Человек_Борща]

Да, заканчивается символом '\'.

[GunSmoker]

А кавычки где?

[Человек_Борща]

нус блин вообще непонимаю.

Я вытащил компилятор ресурсов из Delphi XE пакета.

Какие файлы кроме brcc32.exe ещё нужны?

Уже все перепробовал. И winExec и ShellExecute и CreateProcess там же и параметры и с кавычками и без них и указывал -fo (File Output). Ничего не помогает!
Хатя простой батник успешно собирает!

[GunSmoker]

Ты всё в кучу не мешай, а делай по шагам.

1). Сначала добейся работы brcc32, запускаемого из папки bin Delphi.
2). Затем вытаскивай его отдельно (кстати, это пиратство).

1 раскладывается на проверку основных частей так:
а). Кавычки.
б). Текущий каталог.
в). Код возврата.
г). (опционально) вывод сообщений об ошибках (можно применять только при диагностике провала пункта "в").

Я уже сейчас вижу, что программно ты собираешь не так, как в bat-нике: у тебя отличаются пути и текущая папка.

[Человек_Борща]

Эхх а проблема просто решалась....

procedure ShellExecuteAndWait(FileName, aRunRarams: string; ShowMode: Cardinal);
var
  exInfo: TShellExecuteInfo;
  Ph: DWORD;
begin
  FillChar(exInfo, SizeOf(exInfo), 0);
  with exInfo do
  begin
    cbSize := SizeOf(exInfo);
    fMask := SEE_MASK_NOCLOSEPROCESS or SEE_MASK_FLAG_DDEWAIT;
    Wnd := GetActiveWindow();
    exInfo.lpVerb := 'open';
    lpFile := PWideChar(FileName);
    lpParameters := PWideChar(aRunRarams);
    lpDirectory:=PWideChar(ExtractFilePath(FileName));
    nShow := ShowMode;
  end;
  if ShellExecuteEx(@exInfo) then
  begin
    Ph := exInfo.HProcess;
  end
  else
  begin
    ShowMessage(SysErrorMessage(GetLastError));
    Exit;
  end;
  while WaitForSingleObject(exInfo.HProcess, 50) <> WAIT_OBJECT_0 do
    Application.ProcessMessages;
  CloseHandle(Ph);
end;

[GunSmoker]

Иными словами, дело было в относительных путях (считаются относительно текущего каталога).