DELPHI: Запуск DOS прог с параметрами

[GunSmoker]

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

так что, ищите ошибку в другом месте!

Не вводи в заблуждение. Ошибка именно в том месте, что я указал.

WinExec - функция из Win16 и не имеет Unicode версии. Соответственно, она принимает PAnsiChar. Для PAnsiChar нужна AnsiString. Всё.

В Delphi 5 String = AnsiString. Работает.
В Delphi 2010 String <> AnsiString. Не работает.

ShellExecute спасает, да. Но ещё больше спасает CreateProcess.

(ShellExecute и WinExec НЕ запускают программу - они открывают файл в ассоциированной с ним программе. Да, в 99% случаев для исполняемых файлов это означает запуск самого файла, но если есть возможность использовать именно запуск программы (CreateProcess) - почему бы не использовать его?)

Сообщение от D][mon

(компилятор ошибок не выдает=> синтаксически все правильно):

Зато выдаёт предупреждения о несовместимости Wide и Ansi типов, не? Закрываем глаза? А зря.

Сообщение от D][mon

Может какието настройки компилятора помучаь? если да то какие? Очень прошу помочь, т.к. перспектива работы с .bat файлами меня не прельщает(думаю многие согласятся , что ето как-то некрасиво)

Да, есть мат-часть, которую нужно знать.

Сообщение от D][mon

у казание полных путей к TASMу и .asm файлу не помогает, т.е. tasm не поддерживает полные пути к файлам)

нормальное решение - использовать CreateProcess с указанием текущей папки. Не очень нормальное решение - менять текущую папку перед запуском WinExec/ShellExecute.

[D][mon]

Сообщение от
Зато выдаёт предупреждения о несовместимости Wide и Ansi типов, не? [URL="http://www.delphikingdom.ru/asp/viewitem.asp?catalogid=777"

Закрываем глаза? А зря.

как ни странно ничего.

А Ваш блог, GunSmoker, оказался очень полезным, благодарю Вас.

тока с параметрами createproces (последние 2) я так и не "осилил".
как их "применить" к DOS проге(TASM).

следующий код создает bat-ник и запускает его:
fname:TLabeledEdit
path:TLabeledEdit

fname:TLabeledEdit
if checkBox1.Checked then
   cmd:=(path.text+'TASM.exe '+fname.Text);
  else cmd:=(path.text+'TASM.exe '+fname.Text+' /l');
begin
    BatFile:=path.text+'Helper.bat';
    AssignFile(Ft, BatFile);
    Rewrite(Ft); //Открытие нового текстового файла
    Writeln(Ft, cmd);
    Write(Ft,'pause');
    CloseFile(Ft);
  end;
ShellExecute(Handle, 'open', PChar(path.text+'Helper.bat'), nil, nil, SW_SHOWNORMAL);

как заменить это на createprocess?


и еще
в прогу передается имя asm-файла
визуально(в cmd) обрабатывается правильно
более того TASM заявлет что не видит ни какие файлы из тех что я потом ввожу в fname.