Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];

Вниз

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

 
Yuriy   (2001-11-25 22:13) [0]

С помощью ShellExecute запускаю некую прогу, скажем архиватор, как узнать, что она закончила свою работу? Нужно узнать время прошедшее с начала архивации до ее завершения


 
Fellomena   (2001-11-26 15:55) [1]

Если запускаешь с помощью ShellExecute, то никак - ShellExecute просто запускает процесс, не "зная" о нём ничего.
Используй CreateProcess, с его помощью можно отслеживать окончание работы запущенных процессов.


 
Romkin   (2001-11-26 16:34) [2]

Как не знает???
Возвращаемое значение - instance handle, поэтому можно использовать
WaitForSingleObject|MsgWaitForSingleObject на результат
Можно и использовать ShellExecuteEx, там HINSTANCE в структуре


 
handra   (2001-11-26 18:41) [3]


unit exec;

interface

function ExecAndWait(const fname,params: string; nShowCmd: Cardinal): boolean;

implementation

uses Windows, ShellAPI, Forms;

function ExecAndWait(const fname,params: string; nShowCmd: Cardinal): boolean;
var data: TShellExecuteInfo;
begin
Result := false;
data.cbSize := sizeof(data);
data.fMask := SEE_MASK_DOENVSUBST or SEE_MASK_NOCLOSEPROCESS;
data.Wnd := 0;
data.lpVerb := nil;
data.lpFile := PChar(fname);
data.lpParameters := PChar(params);
data.lpDirectory := nil;
data.nShow := nShowCmd;
ShellExecuteEx(@data);
while true do begin
Application.ProcessMessages;
case WaitForSingleObject(data.hProcess,100) of
WAIT_FAILED: Result := false;
WAIT_OBJECT_0: Result := true;
else continue;
end;
break;
end;
end;

end.



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

Форум: "WinAPI";
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.004 c
4-90410
hn
2001-11-27 16:50
2002.01.28
gethostbyaddr


1-90298
Vacheslav
2002-01-09 19:49
2002.01.28
Подскажите, в чем ошибка: задаю цикл


1-90308
yus
2002-01-09 06:16
2002.01.28
Forma


3-90240
Катерина
2001-12-22 11:05
2002.01.28
проблемка


1-90268
Zuvom
2002-01-09 03:40
2002.01.28
Ошибка Delphi 6





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский