¿Cuándo comenzó mi aplicación a ejecutarse?

Question

¿Cuál es la función para obtener la fecha y la hora en que se ejecutó una aplicación? Estoy usando Delphi.

Answer 1

Puede utilizar la llamada a la API de Windows para GetProcessTimes (declarado en Windows.pas) para obtener detalles de cualquier proceso.

Si es su aplicación, es probable que yo también tenga la hora de inicio y la registre en algún lugar para mantener un historial.

Answer 2

No estoy seguro de si hay una función o llamada de API para esto. Pero puedes fingir con bastante facilidad. Crear una unidad que tiene este aspecto:

unit AppStartTime; 

interface 

function GetAppStartTime: TDateTime; 

implementation 
uses 
    SysUtils; 

var 
    fStartTime: TDateTime; 

function GetAppStartTime: TDateTime; 
begin 
    result := fStartTime; 
end; 

initialization 
    fStartTime := Now; 

end. 

añadirlo a la su DPR utiliza lista, en la parte superior, ya sea primera o inmediatamente después de todo lo que "debe ser el primero en la lista", tal como una memoria personalizada gerente.

Answer 3

Puede hacer que su aplicación registre el tiempo de inicio en un archivo de texto o base de datos, ya sea en el archivo DPR o en el evento OnCreate() de su formulario principal. Puede usar la función Now() de Delphi para obtener la fecha y hora actual, y formatearla como una cadena usando FormatDateTime() o DateTimeToStr(), dependiendo de lo que esté buscando hacer exactamente.

El siguiente código guarda la fecha de inicio y la hora durante el constructor de la forma principal a un archivo de texto en la misma carpeta que la propia aplicación llamada StartDateTime.txt:

procedure TForm1.FormCreate(Sender: TObject); 
var 
    SL: TStringList; 
begin 
    SL := TStringList.Create; 
    try 
    SL.Add(FormatDateTime('mm/dd/yyyy hh:nn:ss', Now()); 
    SL.SaveToFile(ExtractFilePath(ParamStr(0)) + 'StartDateTime.txt'); 
    finally 
    SL.Free; 
    end; 
end; 

Answer 4

Uso NtQuerySystemInformation con el informationclass SystemProcessInformation, esto devuelve una matriz de estructuras SYSTEM_PROCESSES (registros) de los cuales el CreateTime contiene la hora exacta en que se inició la aplicación:

_SYSTEM_PROCESSES = record // Information Class 5 
    NextEntryDelta: ULONG; 
    ThreadCount: ULONG; 
    Reserved1: array[0..5] of ULONG; 
    CreateTime: LARGE_INTEGER; 
    UserTime: LARGE_INTEGER; 
    KernelTime: LARGE_INTEGER; 
    ProcessName: UNICODE_STRING; 
    BasePriority: KPRIORITY; 
    ProcessId: ULONG; 
    InheritedFromProcessId: ULONG; 
    HandleCount: ULONG; 
    // next two were Reserved2: array [0..1] of ULONG; thanks to Nico Bendlin 
    SessionId: ULONG; 
    Reserved2: ULONG; 
    VmCounters: VM_COUNTERS; 
    PrivatePageCount: ULONG; 
    IoCounters: IO_COUNTERSEX; // Windows 2000 only 
    Threads: array[0..0] of SYSTEM_THREADS; 
    end; 
    SYSTEM_PROCESSES = _SYSTEM_PROCESSES; 
    PSYSTEM_PROCESSES = ^SYSTEM_PROCESSES; 
    TSystemProcesses = SYSTEM_PROCESSES; 
    PSystemProcesses = PSYSTEM_PROCESSES; 

Ya hemos traducido todo esto en el Jedi Apilib (JwaNative)