Datum verändern?

[Mokuba01]

gibt es irgend eine Möglichkeit das Datum des Computers zu verändern?

Danke im Vorraus.
Gruß Mokuba01

[Matze]

Hallo,

ob es die Funktion in Delphi 4 gibt, weiß ich nicht. Normalerweise geht das mit SetLocalTime aus der Unit Windows. Da du damit die Zeit und das Datum änderst, musst du die Zeit vorher auslesen und hinterher zusammen mit dem veränderten Datum setzen.

[Mokuba01]

unter Delphi4 klappts aber da kommt das:

Zitat von Delphi4:

[Fehler] Unit1.pas(50): Inkompatible Typen: '_SYSTEMTIME' und 'TDateTime'

kannste bitte Beispiel schicken?

[Nuclear-Ping]

Vertausch mal die Units die du in uses einbindest von ihrer Reihenfolge her.
Keine Ahnung, wie das bei Delphi 4 war, aber die Fehlermeldung sieht so aus, als ob er einen anderen Typen aus einer anderen Unit als TDateTime verwendet.
Den gleichen Effekt kriegt man auch mit TBitmap, wenn man Windows nach Graphics einbindet.

Zur Not auch mal F1 drücken und in die Delphi Hilfe gucken.

[Matze]

Zitat von Nuclear-Ping:

aber die Fehlermeldung sieht so aus, als ob er einen anderen Typen aus einer anderen Unit als TDateTime verwendet.

Nö, die sieht so aus, als seien es einfach inkompatible Typen.

TDateTime muss mittels DateTimeToSystemTime zuerst in ein entsprechendes Format konvertiert werden. Es kann jedoch sein, dass man dann SetSystemTime nutzen muss, fällt mir gerade ein. Probier's einfach aus.

[Mokuba01]

also ich habe jetzt nur mal als Test:
SetLocalTime(DateTimeToSystemTime(now)); und dann kommt:

Zitat von Delphi4:

[Fehler] Unit1.pas(50): Nicht genügend wirkliche Parameter

[Nuclear-Ping]

Ah ...

[edit]
Mokuba, guck dir doch mal die Hilfe zu dieser Funktion an.
[/edit]

[Union]

Die Funktion erwartet zwei Parameter, einen TDateTime Wert und einen Pointer auf einen _SYSTEMTIME:

Delphi-Quellcode:

var
   lpSystemTime : _SYSTEMTIME;
begin
   DateTimeToSystemTime(Now, lpSystemTime);
   SetLocalTime(lpSystemTime);
end;

Beachte aber, dass der Benutzer auch die Berechtigung haben muss um die Systemzeit setzen zu dürfen (SE_SYSTEMTIME_NAME).

[Matze]

Dazu hätte ich mal eine Frage: Ich hätte TSystemTime anstelle von _SYSTEMTIME genutzt. Ist es egal, was man nimmt, oder sollte man eines der Möglichkeiten bevorzugen?

[Union]

Du kannst beides benutzen, die Typen sind gleichwertig. Wenn ich mir das aber genau betrachte, ist TSystemTime wohl eher angebracht, da es den Delphi Konventionen näher kommt.