Когда мое приложение запустилось?

Question

Какова функция для получения даты и времени, когда приложение было выполнено? Я использую Delphi.

Answer 1

Вы можете использовать API вызова Windows, к GetProcessTimes (объявлено в Windows.pas), чтобы получить подробную информацию о любом процессе.

Если это ваше приложение, я бы, скорее всего, сам заработал и зарегистрировал его где-нибудь, чтобы сохранить историю.

Answer 2

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

unit AppStartTime; 

interface 

function GetAppStartTime: TDateTime; 

implementation 
uses 
    SysUtils; 

var 
    fStartTime: TDateTime; 

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

initialization 
    fStartTime := Now; 

end. 

Добавьте его в свой ДПР использует список, в верхней части, либо первый или сразу же после того, как все, что «должно быть первым в списке», такие как пользовательские памяти менеджер.

Answer 3

Возможно, ваше приложение зарегистрирует время запуска в текстовом файле или базе данных либо в файле DPR, либо в событии OnCreate() основной формы. Вы можете использовать функцию Delphi Now() для получения текущей даты и времени и форматировать ее как строку с помощью FormatDateTime() или DateTimeToStr(), в зависимости от того, что именно вы хотите сделать.

ниже код сохраняет дату запуска и время во время конструкторе главной формы в текстовый файл в той же папке, что и само приложение под названием 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

Использование NtQuerySystemInformation с SystemProcessInformation informationclass, это возвращает массив SYSTEM_PROCESSES структур (записи) из которых CreateTime содержит точное время, когда приложение было начато:

_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; 

Мы уже перевели все это в Jedi Apilib (JwaNative)