---

procedure TForm1.Button1Click(Sender: TObject);
var
systemtime : TSystemTime;
NewTime:string;
begin
NewTime:='13:58:00';
DateTimeToSystemTime( Date+StrToTime(NewTime),systemtime);
SetLocalTime(systemtime);
end;

---

---

Måske en nærmere forklaring til os som ikke er 100% computernørder ;)

Eftersom du ikke er logget ind i systemet, kan du ikke lave en bedømmelse til dette tip.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.