Ok
Delphi-Quellcode:
getsystemtime(timestruct);
if TimeStruct.wHour>=23 then
begin
TimeStruct.wDay := TimeStruct.wDay+1;
TimeStruct.wHour := 0;
end
else
begin
TimeStruct.wHour := (TimeStruct.wHour+1);
end;
if SetLocalTime(TimeStruct) then
ShowMessage('1Up :-D')
else
RaiselastOSError;
die message erscheint! ich hab um 20:03 auf den button geklickt, getsystemtime liefert nur leider 19 uhr