Здравствуйте,
использую ShellExecuteEx для открытия файлов различных типов. Нужно дожидаться окончания работы запущенной программы, для этого использую
WaitForSingleObject:
| Код |
var
ShellExecuteInfo: TShellExecuteInfo;
fn: string;
...........
fn:= 'какой-то файл';
FillChar(ShellExecuteInfo, SizeOf(TShellExecuteInfo), 0);
with ShellExecuteInfo do begin
cbSize := Sizeof(TShellExecuteInfo);
fMask := SEE_MASK_NOCLOSEPROCESS;
Wnd := Application.Handle;
lpFile := PChar(fn);
lpVerb := 'open';
nShow := SW_SHOWNORMAL;
end;
if ShellExecuteEx(@ShellExecuteInfo) then
begin
waitForSingleObject(ShellExecuteInfo.hProcess, INFINITE);
MessageBox(0, 'Все кончено!!!', nil, 0);
end;
|
Все работает прекрасно, до тех пор, пока не начинаю открывать *.doc - файлы. При попытке закрытия Word виснет, и соответственно ожидание в
waitForSingleObject не заканчивается.
Может кто проверит этот код у себя, т.к. подозреваю дело может быть в моем "мс офисе". Правда тот же excel нормально закрывается. Пробовал для
проверки закрытия процесса использовать GetExitCodeProcess, но с вордом те же грабли 
| Код |
repeat
sleep(200);
GetExitCodeProcess(ShellExecuteInfo.hProcess, ExitCode);
until ExitCode <> STILL_ACTIVE;
|
|