Не компилируются ресурсы

[dolphin705]

Вот семпл кода

procedure TForm1.Button1Click(Sender: TObject);
var
  si: Tstartupinfo;
  p : Tprocessinformation;
  t : textfile;
  bin,s : string;
begin
  Bin:= ExtractFilePath(Application.ExeName)+'BIN\';

  //Запись рц файла
  assignfile(t,bin+'files.rc');
  rewrite(t);
  writeln(t,'f1 exe file1.exe');
  writeln(t,'f2 exe file2.exe');
  closefile(t);

  //Компиляция ресурса
  FillChar( Si, SizeOf( Si ) , 0 );
  with Si do begin
  cb := SizeOf( Si);
  dwFlags := startf_UseShowWindow;
  wShowWindow := 0;
  end;
  s:=bin+'brcc32 files.rc';

  Createprocess(nil,pchar(s),nil,nil,false,Create_default_error_mode,nil,nil,si,p);
  Waitforsingleobject(p.hProcess,infinite);
  CloseHandle(p.hProcess);
  CloseHandle(p.hThread);
end;

Код не работает когда в переменной bin содержится путь вида
c:\Новая папка\папка1, видимо процедура Createprocess пытается создать процесс 'c:\Новая' так как там пробел стоит, либо проблема в русских символах. Как с этим быть?

[GunSmoker]

Кавычки.

[Stilet]

так как там пробел стоит

Врядли... Сколько использую эту функцию на пробелы не жаловался.
Ты лучше выясни ошибку которую Createprocess выдает.

if Createprocess(nil,pchar(s),nil,nil,false,Create_default_error_mode,nil,nil,si,p)<>0 then RaiseLastOSError;

И почитай что за ошибка.

[dolphin705]

Спасибо, код заработал если написать так

s:=' " '+bin+'brcc32" " '+bin+'files.rc" ';

[GunSmoker]

Чего-то вы пробелов лишних навставляли.

[dolphin705]

Ну пробелы естественно убрать нужно (поставил чтобы понятнее было где " и где ')

s:='"'+bin+'brcc32" "'+bin+'files.rc"';