Форум: "Основная";
Текущий архив: 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);
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.005 c