wie auf bestimmte zeit reagieren??

[DeddyH]

Delphi-Quellcode:

var jetzt, vergleich: TSystemTime;
begin
  with vergleich do
    begin
      wYear := 2008;
      wMonth := 1;
      wDay := 24;
      wHour := 14;
      wMinute := 43;
      wSecond := 15;
    end;
  GetSystemTime(jetzt);
  if (jetzt.wYear >= vergleich.wYear) and
     (jetzt.wMonth >= vergleich.wMonth) and
     (jetzt.wDay >= vergleich.wDay) and
     (jetzt.wHour >= vergleich.wHour) and
     (jetzt.wMinute >= vergleich.wMinute) and
     (jetzt.wSecond >= vergleich.wSecond) then
    ShowMessage('Zeitüberschreitung')
  else
    ShowMessage('Hat noch Zeit');
end;