Masse spørgsmål

1: brug en timer der gemmer i en log fil hver sec og som sammentid viser hvormeget tid den har kørt

game_tracker> det kan jo ikke hvis man starter mit program, og computeren har været tændt. Altså så viser den jo kun hvor lang tid computeren har været tændt, fra start af mit program.

1: Du kunne gå ind og se hvornår filen %WINDOWSDIR%/bootstat.dat sidst er ændret og så lave en timer som opdateres en gang i sekundet hvor du så kan ligge et sekundt til

2: Ledig ram på computeren, det kan du finde ved at søge efter ram her på eksperten, eks: http://www.eksperten.dk/spm/36112

3: Lukke computeren, igen bare at søge på eksperten: http://www.eksperten.dk/spm/26865

4: Her kunne du også bare søge, svaret ligger også i det foregående spørgsmål

5: Kan jeg ikk lige huske koden for, den kan findes på enten http://torry.net eller http://delphi3000.com jeg mener det er et af de 2 steder, ellers vent lidt så skal jeg finde det...

søgning på torry's tips-ting gav http://www.swissdelphicenter.ch/torry/showcode.php?id=1181

hmm... jeg håber du kan bruge det som svar...

1: Uptime kan findes med GetTickCount(), såvidt jeg ved. Den returnerer en Integer.

Jeg bruger denne her kode til at finde ud af hvor meget plads der er på de forskellige harddiske og hvor meget der er ledeligt:

var
  s:integer;
begin
  for s := 3 to 30 do
  if(DiskFree(s)<>-1) then
  begin
    Memo1.Lines.Add(Chr(s+64)+': ');
    Memo1.Lines.Add(FloatToStrF(DiskSize(s)/1048576,ffFixed,10,2)+' MB Capacity');
    Memo1.Lines.Add(FloatToStrF(DiskFree(s)/1048576,ffFixed,10,2)+' MB Free Space');
  end;

Men den bliver ved med at add'e, altså den stopper ikke med at Add'e!

Ved I hvad jeg skal gøre?

for s := 3 to 30 do begin

....

...


end;

nej, det hjælper ik :(

hmm... her er færdige componenter du kan bruge eller stjæle kode fra :) http://www.torry.net/driveinformation.htm

razersedge> jeg fandt ud af det..

sådan kan du bruge tickcount til at få windows tid:

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 := IntToStr(d) + ' days, ' + IntToStr(h) + ' hrs, ' + IntToStr(m) + ' mins'; // + IntToStr(s) + ' Seconds';
end;

5.

hmm til sådan en ting kan man med fordel simulere wintasten + R....


procedure ShowRunDialog;
begin
  Keybd_event(VK_LWIN, 0, 0, 0);
  Keybd_event(Byte('R'), 0, 0, 0);
  Keybd_event(Byte('R'), 0, KEYEVENTF_KEYUP, 0);
  Keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0);
end;

fik lavet det hele selv på en anden måde, så jeg lukker!