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

Вниз

Вопрос по ShellExecute   Найти похожие ветки 

← →
vinni2000   (2002-09-23 19:13) [0]

Вот есть такой вопрос!
С помощью команды ShellExecute выполняю архивацию данных. Так вот программа выполняеться быстрее чем архивация данных. Что мне надо сделать чтобы программа ждала пока не выполниться архивация данных.
За рание спасибо!

---

← →
AL2002   (2002-09-23 19:31) [1]

CreateProcess();
потом
WaitForSingleObject( pi.hProcess, INFINITE );
потом
CloseHandle()

---

← →
Poirot   (2002-09-23 19:32) [2]

Поищи в ФАКах, вроде было, но где не помню, но могу сказать что надо юзать CreateProcess

---

← →
vinni2000   (2002-09-23 19:44) [3]

Ну есть такой код запуска рара:
params:="e "+d+" d:\temprar\";
ShellExecute(form1.handle,nil,pchar("winrar.exe"),
pchar(params),pchar(ExtractFilePath(Application.ExeName)),sw_hide);

И как с помощью CreateProcess();
єто все оформить

---

← →
AL2002   (2002-09-23 20:04) [4]

Var
StartupInfo: TStartupInfo;
PI: TProcessInformation;

FillChar(StartupInfo,Sizeof(StartupInfo),#0);
StartupInfo.cb:=Sizeof(StartupInfo);
StartupInfo.dwFlags:=STARTF_USESHOWWINDOW;
StartupInfo.wShowWindow:=0;
CreateProcess(NiL, PChar(Edit1.Text), Nil, Nil, FALSE, IDLE_PRIORITY_CLASS, Nil, "C:\", StartupInfo, pi);
WaitForSingleObject( pi.hProcess, INFINITE );
end;

---

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

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

Наверх

Память: 0.44 MB
Время: 0.006 c