| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Вопрос по запуску программ из Дельфи [D6, Win95/98, Win2k]

I__am ©   (2002-08-15 09:40:00) 

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

---

Tornado   (2002-08-15 10:41:00) [1]

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:00) [2]

> I__am (15.08.02 10:10)

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

---

kerkonst   (2002-08-15 10:17:00) [3]

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

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

---

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

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

---

kerkonst   (2002-08-15 09:55:00) [5]

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

---

Leran2002   (2002-08-15 09:55:00) [6]

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

---

Leran2002   (2002-08-15 09:53:00) [7]

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

S - параметры

---

Наверх