Um nochmal etwas anzumerken, falls du das wirklich vor haben solltest, beachte:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
settimer(
handle, 1, 1000,
NIL);
settimer(
handle, 1, 5000,
NIL);
end;
procedure TForm1.WMTimer(
var Message: TMessage);
begin
killTimer(
handle,
Message.wparam);
showmessage('
Ping');
end;
Erzeugt nur ein "Ping" nach 5 Sekunden. Du musst also doppelte IDs "herausfiltern".
Wer später bremst ist eher tot.