Время загрузки

← →
viper © (2005-07-14 16:34) [0]

Моя программа запускает приложение например delphi32.exe как подсчитать время загрузки приложения?

← →
Чапаев © (2005-07-14 16:40) [1]

А какой момент считать моментом окончания загрузки?

← →
BiN © (2005-07-14 16:44) [2]

GetProcessTimes

← →
Viper © (2005-07-14 16:49) [3]

Когда в программе можно что-то сделать или что-то в этом духе,
вернемся опять к delphi при запуске она грузиться (лично у меня ) где-то 10 сек. все это время я наблюдаю окно загрузки но во многих программах его нет, но они тоже грузяться какое-то время, так вот его мне и нужно узнать от момента запуска команды shellexecute и до момента полной загрузки приложения для начала его использование (во накрутил :) )

← →
Viper © (2005-07-14 16:50) [4]

>BiN © (14.07.05 16:44) [2]
>GetProcessTimes

Спасибо, но можно какойнибудь пример с ее использованием?

← →
BiN © (2005-07-14 16:58) [5]

Видимо, я неправильно понял твой вопрос. С помощью GetProcessTimes ты можешь узнать сколько времени прошло с момента создания процесса. Тебе же, очевидно, нужно нечто другое. Определись с понятиями "загрузка приложения" и что является признаком готовности приложения к "использованию".

>BiN ©
Запусти у себя на компе какую нибудь объемную прогу, ты можешь ею пользоваться (закрыть на худой конец мышкой по нажатию крестика) ты сможешь только тогда когда она загрузиться и будет готова к использованию, так? Так вот этот промежуток мне нужно посчитать в секундах.

Я так понял, что это промежеток между запуском, и тем моментом, когда процесс начал обработку сообщений UI, вот когда выборка сообщений из очереди началась, тогда и используй GetProcessTimes. Но не факт, что между началам обработки сообщений, и непосредственно "возможности юзера работать", что-то еще весьма долгое не будет выполняться.

С уважением.

function ExecCmd(const aCommand: String): Cardinal; var pi:PROCESS_INFORMATION; si:STARTUPINFO; cmdLine,Path: String; begin ZeroMemory(@si,sizeof(si)); si.cb:=SizeOf(si); si.dwFlags := STARTF_FORCEONFEEDBACK+STARTF_USESHOWWINDOW; si.wShowWindow := SW_SHOWNORMAL; Path := ExtractFilePath(aCommand); cmdLine := aCommand; Result := GetTickCount; if CreateProcess( nil, PChar(cmdLine), nil, nil, False, 0, nil, PChar(Path), si, pi ) then begin if WaitForInputIdle(pi.hProcess,INFINITE)=WAIT_OBJECT_0 then begin Result := GetTickCount-Result; end else Result := 0; CloseHandle(pi.hThread); CloseHandle(pi.hProcess); end else Result := 0; end;

Время загрузки Найти похожие ветки