Как запустить прогу из под своего приложения???

[Vano]

Хочу, например, запустить exe-шник, который находится в системной папке, при нажатии на кнопку в своём приложении. Как это можно реализовать?

[Naeel Maqsudov]

uses ShellApi;

....


ShellExecute(....);

Можно запускать приложения, пакетные файлы (cmd, bat), а также открывать файлы, типам которых ассоциированы приложения (например, документы Word)

[Vano]

А если, например, при выполнении комонды systeminfo я хочу чтобы вся информация была перенаправлена в *.txt файл.
Я попробывал так:

в Parameters прописал >c:\a.txt

но в файл ничего не добавило, как это можно реализовать???

[Naeel Maqsudov]

Прочитайте переменную окружения COMSSPEC она содержит полный путь к command.com или cmd.exe.

(См функцию Windows.GetEnvironmentStrings)

Запускайте командный процессор с параметрами

"/с c:\xxx\sysinfo >c:\a.txt"

/c - это запуск на одну команду

подробнее см. cmd /?

[rootpro]

- Запустить блокнот (notepad)

Код: Выделить всё

uses ShellApi;
...ShellExecute(Handle, 'open',
  'c:\Windows\notepad.exe', nil, nil, SW_SHOWNORMAL);

- Открыть текстовый файл c:\text.txt в блокноте

Код: Выделить всё

ShellExecute(Handle, 'open',
  'c:\windows\notepad.exe', 'c:\text.txt', < BR > nil,
  SW_SHOWNORMAL);

- Показать содержимое каталога c:\archive

Код: Выделить всё

ShellExecute(Handle, 'open', 'c:\archive', nil, nil,
  SW_SHOWNORMAL);

- Открыть файл в соответствии с расширением

Код: Выделить всё

ShellExecute(Handle,
  'open', 'c:\MyDocuments\Letter.doc', nil, nil, SW_SHOWNORMAL);

- Открыть html документ в браузере по умолчанию

Код: Выделить всё

ShellExecute(Handle,
  'open', 'http://src.fitkursk.ru', nil, nil, SW_SHOWNORMAL);

[[iQ][BuG]]

ещё есть така замечательная функция, называица WinExec,
имеющая следующий синтаксис (в нотации c):

UINT WinExec(

LPCSTR lpCmdLine, // address of command line
UINT uCmdShow // window style for new application
);

Код: Выделить всё

WinExec('cmd.exe', 1);