delphi - Nedtælling fra når pc'en starter - Udvikleren.dk

Tags: delphi

Bruger #5097 @ 19.02.04 15:19

Hej.
Downloadede engang et program fra en hjemmeside om delphi(kan ikke lige huske hjemmesiden).
Det var et pro der viste vor lang tid pc'en har været åben.
Alså nedtæller den fra da pc'en blev tændt.
Det var et smader godt pro da det ikke skulle være åbnet fra når pc'en starter. Den kan bare åbnes, se hvor lang tid du har været på pc'en, uden at det køre i baggrunden eller sådan noget.
Kan bare læse det når man har lyst og lukke det så det ikke køre mere.

Mit spr er så, om hvordan jeg selv kan lave sådan en. Den skal bare skrive det i en label eller i en edit.

Den må hente det fra et eller andet sted i windowses databaser.

Håber det er læt. Eller vis jeg give jer et par ekstra up

6 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 1 karma

Sorter efter stemmer Sorter efter dato

Bruger #3275 @ 19.02.04 18:38

1.736

Vil sige at det er rimeligt godt klaret hvis en person har fundet ud af at alve et program der fortæller hvor længe Windows har været åbent ved at tælle nedad :-)!
Nåh...men her er så et svar (ikke testet!)

Kode

function UpTime: string; 
const 
  ticksperday: Integer    = 1000 * 60 * 60 * 24; 
  ticksperhour: Integer   = 1000 * 60 * 60; 
  ticksperminute: Integer = 1000 * 60; 
  tickspersecond: Integer = 1000; 
var 
  t:          Longword; 
  d, h, m, s: Integer; 
begin 
  t := GetTickCount; 

  d := t div ticksperday; 
  Dec(t, d * ticksperday); 

  h := t div ticksperhour; 
  Dec(t, h * ticksperhour); 

  m := t div ticksperminute; 
  Dec(t, m * ticksperminute); 

  s := t div tickspersecond; 

  Result := 'Uptime: ' + IntToStr(d) + ' Days ' + IntToStr(h) + ' Hours ' + IntToStr(m) + 
    ' Minutes ' + IntToStr(s) + ' Seconds'; 
end; 


procedure TForm1.Button1Click(Sender: TObject); 
begin 
  label1.Caption := UpTime; 
end;

Windows er verdens beste trojan!