Форум: "Основная";
Поиск по всему сайту: 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.73 MB
Время: 0.026 c
1-22709           Optiquest 15"         2002-03-26 17:10  2002.04.08  
Как программно открыть виндовый Paint, и в нем открыть файл c: picture.bmp?


1-22704           Ghost12               2002-03-26 14:37  2002.04.08  
Ещё раз про HTML форму, люди помогите реально, дайте путный совет.


3-22556           denys                 2002-03-15 16:18  2002.04.08  
array columns


1-22642           SKing                 2002-03-26 13:42  2002.04.08  
Опять - DeсimalSeparator???


3-22574           Quaker                2002-03-15 11:55  2002.04.08  
TDBGRID, TDBEDIT, Редактирование таблиц