Запуск программы

← →
TsvIlya (2002-03-26 12:01) [0]

Как запустить постороннюю программу из программы на Delphi? Знаю, что нужно использовать ShellExecute, но не знаю как им пользоваться (баги на каждом шагу).

← →
AFROLOV (2002-03-26 12:11) [1]

Все очень просто. Вот пример:
procedure TForm1.Button1Click(Sender: TObject);
var
result: Cardinal;
ExecString, ParamString: string;
begin
ParamString:="Par1=100";//Строка с параметрами
ExecString:="D:\Work\tmp\1.exe";//путь к файлу который надо запустить
result:=ShellExecute(0,"open",PChar(ExecString),PChar(ParamString),Nil,SW_SHOWNORMAL);//Собственно выполнение ShellExecute;
if (result<32) then
begin
...
//Обработка ошибок
...
end;
end;

← →
DikobraZ (2002-03-26 12:12) [2]

uses ShellApi; - не забывай это!
...
ShellExecute(Handle, "open", "c:\Windows\notepad.exe", nil, nil, SW_SHOWNORMAL);

Дли текстового файла в блокноте:
ShellExecute(Handle,"open", "c:\windows\notepad.exe","c:\text.txt", nil, SW_SHOWNORMAL);

Показать папку: ShellExecute(Handle,"open","c:\archive", nil, nil, SW_SHOWNORMAL);

Открыть веб-сайт: ShellExecute(Handle, "open"," http://src.fitkursk.ru",nil,nil, SW_SHOWNORMAL);

← →
MAxiMum © (2002-03-26 12:13) [3]

А что непонятного. Читай Help и всё. В самом рапространённом случае: ShellExecute(Handle, "open", "имя файла", "параметры запуска", "Текущия директория для программы", <режим окна> {SW_SHOWDEFAULT});

Не понял а чем WinExec не вкатывает ?

← →
Goblinus (2002-03-27 16:51) [5]

Пользуйся WinExec:

Синтаксис:

WinExec(lpCmdLine: LPCSTR, uCmdShow: UINT): UINT

lpCmdLine: LPCSTR - имя файла (если путь не включён, то файл ищется в каталогах %Windir%\, %Windir%\System, в текущем каталоге и в каталоге, откуда запущено приложение. %Windir% - директория Windows.)

uCmdShow - способ отображения окна:

SW_ShowMaximized - максимизировано
SW_ShowMinimized - минимизировано
SW_ShowNormal - обычным способом

Так, например. запускается калькулятор Windows в минимизированном режиме:

WinExec(PCHar("Calc.exe"), SW-ShowMinimized);

Запуск программы Найти похожие ветки