Sætte systemdatoen i Delphi 2.0

Du bruger SetSystemTime (og GetSystemTime) procedurene.  Disse er defineret i windows.pas uniten.  Desuden bruges en simpel recordtil parameter overførsel.

Jeg bankede lige nedenstående testprogram sammen.
Formen indeholder to labels og en knap.  Click på knappen og de to labels udfyldes med dato og tid.  Derefter sættes datoen et år frem.

Bemærk at under WinNT kræves default specielle rettigheder for at kunne ændre tid/dato (det er ikke en Delphi ting).


procedure TForm1.Button1Click(Sender: TObject);
Var
  lpSystemTime: TSystemTime;
begin
  GetSystemTime(lpSystemTime);
  With lpSystemTime Do
    Begin
      Label1.Caption := 'Dato: '+IntToStr(wYear)+'.'+
                                IntToStr(wMonth)+'.'+
                                IntToStr(wDay);
      Label2.Caption := 'Time: '+IntToStr(wHour)+'.'+
                                IntToStr(wMinute)+'.'+
                                IntToStr(wSecond);

    wYear := wYear + 1;  // Next year
    End;
  SetSystemTime(lpSystemTime);
end;


NiP/Delphi

Tusind tak - lige hvad jeg havde brug for!

uhm.. hvorfor kommer jeg altid for sent :)

Delphi>> sidder du online 24/7 ? Jeg synes altid du når de nye spørgsmål før os andre :)

Jeps - jeg er online (på arbejdet)¨

NiP

Tsk, at bruge sin arbejdstid på at svare her... Ups, chefen kigger :-)

Tjaa - jeg havde noget arbejde med hjem i Juleferien.  De sidste to dage har jeg også haft noget Siemens dokumentation med hjem til gennemlæsning, fordi der ikke er ro nok her på min pind.  Så hvis chefen begynder at brokke sig, så kan vi jo bare begynde en 'arbejd efter reglerne'-aktion.  Jeg tror at han blir' ked af det før mig!  Rent bortset fra det, så bruger jeg nu mest mine pauser til at at lave program eksempler og desuden får jeg ofte udbytte af dem selv, idet de oftest er problem stilinger jeg ikke selv har været indblandet i før.  Fx. alle Anold's run-time createde TImage genvordigheder - dem har jeg ikke selv haft fat i før

NiP

Hehe, ikke forsvare dig... Jeg sidder selv på arbejde nu.. Derfor "Chefen kigger" :-)