Aktion darf nur alle 3 Sekunden ausgeführt werden.

[N30N]

Delphi-Quellcode:

  begin
    Test := Gettickcount;
    Ergebniss := Gettickcount - Test;
    if Ergebniss > 3 then
      shellexecute(handle,'open',pchar('mplayerc.exe'),pchar(video1),nil,sw_show);
    end;

Meint ihr das stimmt so?