Auf Uhrzeit reagieren?

[Akut-Programming]

Hi Leute!

Ich bastle gearde an ner Anwendung, die im Hintergrund läuft und zu einer bestimmten Uhrzeit einen Befehl ausführen soll. Wenn ich mit Hilfe eines Timers die Uhrzeit abfrage und der dann zur angegebenen Zeit einfach nur ShowMessage('Hallo') ausgeben soll, klappts nicht. Kann mir jemand sagen, wie ich z.B. auf die Uhrzeit 16:23 reagieren kann. - Ohne das Sekunden und so weiter im Spiel sind, mir würdes Minuten genau reichen?! Hat da schonmal jemand was in der richtung gemacht?

Gruß,
Sascha

[supermuckl]

ja, überprüfe nicht auf die uhrzeit mit = sondern mit >

also if now > wecker then bumm

und den timer gleichzeitig stoppen

[Akut-Programming]

das klappt ja alles schonmal prima! Wie würde ich das jetzt anstellen, wenn er es jeden Tag ausführen soll? Hätt mich vielleicht mal schon eher damit beschäftigen sollen.

[Xipe]

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
//(Edit.Text + ':00') <--- Vereinfachung der Uhrzeit Eingabe

if FormatDateTime ('hh:nn:ss', Now) = (Edit.Text + ':00') then ShowMessage ('juhu!!!!!!');

end;

beispiel mit ner Edit Kompo + Timer

Gruß Xipe

[Akut-Programming]

Danke erstmal, aber so wirklich hilfts mir nicht weiter... hier ist mal der Code.

Delphi-Quellcode:

procedure TfrmMain.Timer1Timer(Sender: TObject);
var
   i: integer;
begin
     if FormatDateTime ('hh:nn', Now) = (MaskEdit1.Text)
     //if TimeToStr(NOW) > MaskEdit1.Text
     then begin
          if CheckBox1.Checked=false
          then begin
               Button1.Click;
          end else
          begin
               for i:=0 to ListBox1.Items.Count-1
               do begin
                  ShellExecute(Handle, 'open', pchar(ListBox1.Items.Strings[i]), nil, nil,SW_SHOW);
               end;
          end;
     end;
end;

...

procedure TfrmMain.Button1Click(Sender: TObject);
begin
     if Button1.Caption='Start'
     then begin
          if MaskEdit1.Text = '  :  '
          then begin
               Application.MessageBox('Geben Sie zunächst eine Uhrzeit ein','Eingabe fehlt',MB_OK + MB_ICONINFORMATION);
               FocusControl(MaskEdit1);
          end else
          begin
               Button1.Caption:='Stop';
               Image2.Enabled:=false;
               MaskEdit1.Enabled:=False;
               Timer1.Enabled:=true;
          end;
     end else
     if Button1.Caption='Stop'
     then begin
          Timer1.Enabled:=false;
          Button1.Caption:='Start';
          Image2.Enabled:=true;
          MaskEdit1.Enabled:=true;
     end;
end;

[supermuckl]

sperr einfach mit einer variable deine ausführ funktion nach der ausführung um xxx uhr

und um 0 uhr setzt du sie wieder zurück, das er erneut auslösen kann

der timer rennt hierbei ununterbrochen
und am besten mit der > methode, da er dann auch mal unsynchron laufen darf

aber menütlich würd es auch gehen mit = so wie kollege sagt

[Xipe]

ja und was is dein Problem

[Akut-Programming]

Zitat von supermuckl:

und um 0 uhr setzt du sie wieder zurück, das er erneut auslösen kann

Nur wie mach ich das? Wenn ich´s mit "if TimToStr(NOW) > '00:00:00' ..." mache, dann aktualisiert er die Variable doch auch blos ständig und es läuft aufs gleiche raus?! Ach man, ich verzweifle hier noch

[Akut-Programming]

DENKFEHLER Das war heut zuviel des Guten. Hab´s jetzt so versucht if FormatDateTime ('hh:nn', Now) = '00:00' then DoItAgain := 1; - Ich hoffe so wird´s klappen, aufjeden Fall hat er´s jetzt nur einmal ausgeführt..

[supermuckl]

ja so ungefähr
aber optimierter weise kannste da auch boolean nehmen als locking/freischalt variable