Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];




Вниз

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


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});



[HDD]John   (2002-03-27 16:40) [4]

Не понял а чем 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);




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.048 c
14-22810          Феликс                2002-02-22 18:04  2002.04.08  
Матч Россия-США?


4-22880           ATLANTIDO             2002-02-05 01:12  2002.04.08  
Любители хуков и клавиатурных шпионов !


3-22592           Siberia               2002-03-11 17:43  2002.04.08  
использование UPPER в SQL-запросах


3-22525           XCB                   2002-03-13 18:45  2002.04.08  
ORA-03232


3-22543           AlderMan              2002-03-15 11:24  2002.04.08  
Многомерные таблицы (OLAP)