Текущий архив: 2002.08.26;
Скачать: CL | DM;

Вниз

Вопрос по запуску программ из Дельфи   Найти похожие ветки 

← →
I__am   (2002-08-15 09:40) [0]

Доброй ночи Мастера!!!
Подскажите плиз как из моей проги запустить ДОС"явую аржишку с параметрами???

---

← →
Leran2002 ©   (2002-08-15 09:53) [1]

ShellExecute(Dlg,"open",PChar(ExtractFilePath(ParamStr(0))+"Upx.exe"),PChar(S),nil,SW_SHOWDEFAULT);

S - параметры

---

← →
kerkonst   (2002-08-15 09:55) [2]

ShellExecute(....)
Для использования необходимо подключить модуль shellapi.

---

← →
Leran2002 ©   (2002-08-15 09:55) [3]

Ой вместо Dlg впиши Application.Handle...

---

← →
I__am   (2002-08-15 10:10) [4]

а какие параметры (S - параметры)???
АРЖишные чели???

---

← →
kerkonst   (2002-08-15 10:17) [5]

Именно.
Вместо SW_SHOWDEFAULT, может быть, лучше использовать SW_HIDE.

А вообще-то, rtfm

---

← →
Tornado ©   (2002-08-15 10:41) [6]

var
si:STARTUPINFO;
pi:PROCESS_INFORMATION;
cmdline, a1, p1:string;

ZeroMemory(@si,sizeof(si));
si.cb:=SizeOf(si);
a1 := ExtractFilePath(Application.ExeName) + "Data\Izm_12.mdb";
p1 := ExtractFilePath(Application.ExeName) + "Backup\archiv";
cmdline:=ExtractFilePath(Application.ExeName) + "arj.exe" + " " + "a" + " " + "-e" + " " + p1 + " " + a1;
if not CreateProcess( nil,
PChar(cmdline),
nil,
nil,
False,
0,
nil,
nil,
si,
pi )
then
begin
Application.MessageBox(Не могу запустить процесс архивации!","Error", MB_OK+MB_ICONERROR);
Exit;
end;
WaitForSingleObject( pi.hProcess, INFINITE ); {ждет окончания процесса, пока не будет закрыто DOS-окно}
{CloseHandle( pi.hProcess );
CloseHandle( pi.hThread );


---

← →
Leran2002 ©   (2002-08-15 10:41) [7]

> I__am (15.08.02 10:10)

Да параметры запускаемой проги... В твоем случае Аржышные...

---

Страницы: 1 вся ветка

Текущий архив: 2002.08.26;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.016 c