ShelExecute, консольная утилита и вывод в файл результата

[Прик]

Подскажите кто знает.
Чтобы получить список серверов в винде есть утилита osql.
Ее запуск из консоли в таком виде: osql -L >c:\list.txt формирует файл, в котором и получаем список серверов.

В Дельфи (2009) запуск функции ShellExecute кончается неудачей.

//что так:
  R := ShellExecute(Handle, 'open', PChar('osql.exe'), PChar('-L >c:\list.txt'), nil, SW_SHOWNORMAL);
//что так:
  R := ShellExecute(Handle, 'open', PChar('osql.exe >c:\list.txt'), PChar('-L'), nil, SW_SHOWNORMAL);
//что так:
  R := ShellExecute(Handle, 'open', PChar('osql.exe -L >c:\list.txt'), nil, nil, SW_SHOWNORMAL);

Без перенаправления в файл (>c:\list.srv) функция то отрабатывает правильно.
Вопрос в общем виде, как получить файл со списком серверов из программы на Дельфи?
Вытекающий из приведенной проблемы вопрос: перенаправление в файл функцией ShellExeute не поддерживается что ли?

[eduard93]

перенаправление в файл функцией ShellExeute не поддерживается что ли?

Вообще то это функция интерпретатора командной строки - cmd.exe. Но можно обойтись и без файлов: http://www.delphisources.ru/pages/fa...le_output.html

[Прик]

Спасибо.
Похожую конструкций уже пытал.
Не знаю почему, но при вызове и той, и предложенной функции ломаемся на CreateProcess (AV в kernell32.dll). Чем моя винда не угодила CreateProcess'у пока не выяснено.

[JTG]

Перенаправление вывода через > работать не будет, это фишка cmd.exe. Нужно самому реализовать перенаправление вывода или выполнять программу через cmd

R := ShellExecute(Handle, 'open', PChar('cmd.exe'), PChar('/C osql.exe -L > c:\list.txt'), nil, SW_SHOWNORMAL);

AV в kernell32.dll бывает с CreateProcess в Delphi 2009 и старше, спасибо Microsoft, там нельзя передавать в качестве параметра константу.

The Unicode version of this function, CreateProcessW, can modify the contents of this string. Therefore, this parameter cannot be a pointer to read-only memory (such as a const variable or a literal string). If this parameter is a constant string, the function may cause an access violation.

--

В следующий раз я буду читать предыдущие ответы

[FaTaL]

Используйте WinExec и всё нормально отработается.

[Прик]

...нельзя передавать в качестве параметра константу.

Не перадаю константу, передаю обычный параметр (string без cons), тем не менее, облом (AV). Фиг знает чего ей (этой функции) надо.
cmd сработало. Но будет ли эта cmd работать в семерке? Вопрос.

----

Используйте WinExec и всё нормально отработается.

Увы, не работает. Ошибок нет, но и файл не создается и утилита не запускается. Для 16-ти битных ОС функция.