CreateProcess

← →
alless © (2004-03-16 19:04) [0]

Доброе время суток.
Возникла проблема: создаю программно файл .bat.
В нем строка: C:\aa.doc.
Потом пишу:
FillChar(StartupInfo, Sizeof(StartupInfo), #0);
StartupInfo.cb := Sizeof(StartupInfo);
StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
StartupInfo.WShowWindow := 1;

if not CreateProcess(nil, PChar("aa.bat"), nil, nil, false,
CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, nil, StartupInfo, ProcessInfo)
then
Rslt:=false else
begin
WaitForSingleObject(ProcessInfo.hProcess, IGNORE);
GetExitCodeProcess(ProcessInfo.hProcess,DWord(Rslt));
CloseHandle(ProcessInfo.hProcess);
CloseHandle(ProcessInfo.hThread);
end;
Erase(F);//moi bat fail stiraiem
end;

Програма как-бы чтот-о ждет, ждет ничечего не делает. Когда закрываю проу открывается WORD.
Как сделать так чтобы сначяло открылся Word а потом bat файл стерялся.
P.S. Word я взял так, для проверки.
Спосибо.

← →
kilkennycat © (2004-03-16 21:55) [1]

Гениально.

ShellExecute + F1

CreateProcess Найти похожие ветки