[Lazarus] Obtaining uptime

[Richard Mace]

Hi,
Does anyone know why the following code returns the correct days uptime in
XP, but doesn't in Windows 8? (not tested in anything other)
Also, is it close to working correctly in Linux as well?

Thanks in advance

Richard

function TfrmMain.GetDaysUptime: integer;
var
   TickCount: variant;

   mySeconds: variant;
   dys,hrs,min,sec : variant;
begin
  TickCount := LclIntf.GetTickCount;

  mySeconds := TickCount Div 1000;

  hrs := (mySeconds Div 60) Div 60;
  mySeconds := mySeconds - (hrs * 60 * 60);
  min := mySeconds Div 60;
  mySeconds := mySeconds - (min * 60);
  sec := mySeconds;
  if hrs >= 24 then
    dys := hrs Div 24
  else
    dys := 0;

   Result := dys;
end;

--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus