Konwersja reg_dword na datę i godzinę

0

Witam

Proszę o pomoc w konwersji danych reg_dword pobranych z rejestru na datę i czas.
Próbowałem na różne sposoby, ale nic mi nie wychodzi. Pobieram datę instalacji systemu z rejestru

i:=reg.readinteger('InstallDate');

Chciałbym teraz uzyskać osobno datę i osobno godzinę. Proszę o pomoc.

0 
function UnixToDateTime(const AValue: Int64): TDateTime;

z DateUtils.pas pomoże jeśli o installdate chodzi tą która jest odpowiedzialna za instalacje windowsa

0 
uses DateUtils...

procedure TForm1.Button1Click(Sender: TObject);
var
  data, godzina : string;
begin
  data := FormatDateTime('dd-mm-yyyy', UnixToDateTime(1261056215));
  godzina := FormatDateTime('hh:mm', UnixToDateTime(1261056215));
  ShowMessage(data + #13#10 + godzina);
end;

prawie 5 lat bez formatu :D

1 użytkowników online, w tym zalogowanych: 0, gości: 1