Option Explicit
Public Type KERNEL_USER_TIMES
liCreateTime As Currency 'LARGE_INTEGER
liExitTime As Currency 'LARGE_INTEGER
liKernelTime As Currency 'LARGE_INTEGER
liUserTime As Currency 'LARGE_INTEGER
End Type
'NTDLL
Private Declare Function NtQueryInformationProcess Lib "NTDLL" (ByVal ProcessHandle As Long, ByVal ProcessInformationClass As Long, ByVal ProcessInformation As Long, ByVal ProcessInformationLength As Long, ReturnLength As Long) As Long
Private Const ProcessTimes As Long = &H4
Public Const CurrentProcess As Long = -1
'---------------------------------------------------------------------------------------
' Procedure : GetProcessTimes
' Author : Karcrack
' Date : 290710
' Purpose : Get some Process Time Info... like when it was created...
'---------------------------------------------------------------------------------------
'
Public Function GetProcessTimes(ByVal hProc As Long) As KERNEL_USER_TIMES
Call NtQueryInformationProcess(hProc, ProcessTimes, VarPtr(GetProcessTimes), &H20, ByVal 0&)
End Function
Reemplazo nativo a GetProcessTimes@KERNEL32, permite por ejemplo, obtener la hora en la que se inicio un proceso :D
Saludos ;)