Уважаемые эксперты! Возник вопрос, связанный с определением окончания(конца) загрузки приложения.  Например, как определить сколько секунд грузиться MS Word и т.п. Теоретически все легко. ДЛИТЕЛЬНОСТЬ ЗАГРУЗКИ=ОКОНЧАНИЕ ЗАГРУЗКИ-СТАРТ ЗАГРУЗКИ. А вот как определить ОКОНЧАНИЕ ЗАГРУЗКИ? Заранее спасибо всем откликнувшимся.

WaitForInputIdle

Добавлено через 49 секунд
правда если приложение не консольное и имеет цикл обработки сообщений

Спасибо! Для тех кто столкнулся с такой проблемой даю код как делал я :

эт зачем?

у меня разница в три часа идет. Поэтому отнимаю 3600 секунд

Пыталась бороться с сабжевой темой.
К сожалению, ветка на www.delphimaster.ru, где это обсуждалось уже умерла.
Поэтому попробую привести выдержку из нее.
В общем случае задача не так уж и проста, см., например
http://groups.google.com/group/microsoft.p...49a244670a56d2b
(в этом треде отметились не самые последние эксперты по подобным вопросам   )
См. также
http://groups.google.com/group/microsoft.p...7e944f5640757f3

Опираясь на приведенные ссылки и помощь Leonid Troyanovsky 
(он выполнил основную работу  ),
получила следующий механизм решения задачи:

Подготавливаем APCProc, примерно такого вида:
(Требования к коду APCProc такие же, как в случае с CRT)
procedure APCProc(dwParam: Dword); stdcall;
var
 OldState: Boolean;
begin
 with PInjectInfo(dwParam) do  // InjectInfo - нами созданная структура. описание ниже
  begin
   //...
   LastStatus := _NtSetEvent(hReadyEvent, @OldState);
   if LastStatus <> STATUS_INVALID_HANDLE then
    begin
     LastStatus := _NtClose(hReadyEvent);
     //...


Создаем процесс: 
CreateProcess(..., CREATE_SUSPENDED, ..., Proc_Info);
и hEvent, сигнал котрого будем ожидать: hEvent := CreateEvent(nil, True, False, nil);
"Дупликатим" его 
DuplicateHandle(GetCurrentProcess, hEvent, Proc_Info.hProcess, 
                           @hDupEvent, 0, False, DUPLICATE_SAME_ACCESS);
Пишем в адресное пространство жертвы структуру TInjectInfo, содержащую
 1. Адреса функций, которые будем использовать в APCProc
 2. hDupEvent - дубликат нашего hEvent
 3. Всякие полезные мелочи 
 4. и сам код нашей APCProc
Proc_WriteMemory(Proc_Info.hProcess, pInjectInfo, TmpSize, 
                               MEM_COMMIT or MEM_RESERVE, PAGE_READWRITE, pRemoteData)

Создаем нить в теле жертвы: 
 QueueUserAPC(PInjectInfo(pRemoteData).pInjectTreadCode, 
                          Proc_Info.hThread, DWord(pRemoteData));
Будим целевой процесс:
 ResumeThread(Proc_Info.hThread)
И ждем срабатывания нашего hEvent - а.
 WaitArr := Make_Int64(Proc_Info.hProcess, hEvent);
 WaitResult := WaitForMultipleObjects(2, @WaitArr, False, TimeOut);
Вот, вроде, и все.
Тестировала на самых разных(специально для этого созданных) процессах.
Как и говорил Leonid Troyanovsky:
"APCProc срабатывает _непосредственно_после_инициализации процесса, 
  но _до_выполнения main & etc".     Очень удобное место   

Riply  

Добавлено через 4 минуты и 25 секунд
а то как то сложновато....

Firster, 
Выдернуть пример из проекта сложновато: слишком много "внутренних ссылок" :(
Если будет время (которого всегда не хватает),  то напишу отдельный пример. 


Это только внешне так кажется. "Не так страшен черт, как его малюют"   
Читай Help. Споткнулся на каком-то месте - спрашивай. 

Riply хочу спросить по ходу дела. Я так понял ты делала перехват запуска приложения и момент ЗАВЕРШЕНИЯ ЕГО работы. Меня вот что интересует.
Делаю инжект ДЛЛ к ВинКомандеру. ДЛЛка успешно перехватывает запуск любого приложения из него (ВинКомандера). При запуске нового приложения из ВинКомандера делаю инжект ДЛЛ к этому процессу. При закрытии процесса должен произойти перехват функции ExitProcess, но его НЕ ПРОИСХОДИТ. Может я не то перехватываю или не в ту степь пошел...? Если есть идеи будк очень благодарен.

Нет. Не делала. Если ты про мой пост выше, 
то там ловиться момент завершения инициализации процесса.



Причины могут быть разные: от неправильно сделанного перехвата 
до "невызова" жертвой целевой функции.   


Не понимаю зачем вообще он (перехват ExitProcess) нужен.
Можно организовать ожидание завершения процесса, благо его Handle известен.
Можно обрабатывать, например, DLL_PROCESS_DETACH - раз уж в него(процесс) залезли.  

Точно и как я не дошел до этой мысли!!! Спасибо.   


А это какая функция?

Можно попробовать WaitFor(Single)MultipleObject(s), только, наверное не 
стоит их использовать "внутри" жертвы  

WaitForSingleObject подошел. Но возник вопрос с ожиданием ответа функции. Придеться создавать отдельно поток для ожидания ответа о завершении каждого процесса. Буду обрабатывать DLL_PROCESS_DETACH. Но здесь у меня небольшие проблемы...

Если процессов меньше 64, то можно использовать WaitForMultipleObjects
- она как раз для этого. 
Если же их больше, то тоже можно красиво "выкрутиться" - например WaitForMultipleObjectsEx
(если правильно помню) или пул потоков.


Что "не так" ?

Riply а не слишком ли ресурсы это забьет? Я просто еще не знаю как лучше, и нахожусь в так называемом творческом поиске ;)

Добавлено через 1 минуту и 43 секунды
и спасибо ОГРОМНОЕ, что помогаешь разобраться в этом!!!