Uptime igen igen

Hmm, ja jeg var lidt for hurtig med mine points sidst. Nedenstående er et eksempel jeg tidligere har modtaget som svar. Koden returnerer den tid computeren har været tændt. Problemet er bare at funktionen tager en integer med ind, hvilket ikke er hensigsmæssigt. Jeg går ud fra at gettickcount på et eller andet tidspunkt returnerer en værdi over 2147483647, som er en integers maxværdi, og derfor får funktionen til at returnere noget forkert. Hvilke andre muligheder har jeg ? Hvis jeg bruger en double kan jeg ikke brude div og mod.


unit UptimeGrO;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Panel1: TPanel;
    Label1: TLabel;
    function Duration(ms: integer):string;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

const
  cSec  =      1000;
  cMin  = cSec  * 60;
  cHour = cMin  * 60;
  cDay  = cHour * 24;

implementation

{$R *.DFM}

function Tform1.Duration(ms: integer):string;
var
  FDay: Integer;
  FHour: Integer;
  FMin: Integer;
  FSec: Integer;
  FTotal: Integer;
  temp: string;
begin
  Fday:=0; Fhour:=0; Fmin:=0; Fsec:=0; FTotal:=0; temp:=\'\';

  FDay := ms div cDay;
  Ftotal:=ms mod cday;
  FHour := Ftotal div cHour;
  Ftotal:=Ftotal mod chour;
  FMin := Ftotal div cMin;
  Ftotal:=Ftotal mod cmin;
  FSec := Ftotal div cSec;
  temp := temp + inttostr(Fday)+\' days \';
  temp := temp + inttostr(Fhour)+\' hours \';
  temp := temp + inttostr(Fmin)+\' mins \';
  temp := temp + inttostr(Fsec)+\' secs \';
  result:=temp;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  label1.Caption:= duration(gettickcount);
end;
end.