Aktion darf nur alle 3 Sekunden ausgeführt werden.

[pstruh]

Schreibe GetTickCount, mit Cursor 'draufgehen, F1 drücken, dann wird (bei mir) ein Hilfetext angezeigt. Ist 'ne Funktion, Ergebnis ist vom Typ DWord, gibt die Zeit in Millisekunden seit dem WindowsStart an. Also kannst du beim zweiten Aufruf die Zeitdifferenz in Millisekunden bestimmen...

[pstruh]

Ja klar, vom Typ DWord

[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?

[pstruh]

Hm, die Prüfung ergibt wohl alle drei Millisekunden ein TRUE, also besser 3*1000 ...

[pstruh]

ach so, dann auch noch den StartZeitpunkt zurücksetzen, d.h. neu lesen

[pstruh]

Ja, und überhaupt - du darfst natürlich nicht direkt hintereinander 2x GetTickCount lesen, das geht ja nun leider überhaupt nicht ...
Lese doch bitte noch mal in Ruhe die Handlungsvorgabe von Klaus!

[N30N]

Zitat:

beim ertsen klicken die Zeit speichern (GetTickCounts)
beim nächsten klicken wieder GetTickCount aufrufen und den Zeitunterschied
ermitteln. Ist er kleiner als 3 Sekunden -> mache nichts
Ist er größer oder gleich 3 Sekunden -> Zeit neu setzen und führe Aktionen aus.

Wie schon gesagt, das ist einfach zu hoch für mich. Geht es auch etwas verständlicher, wenn möglich in Code Form? Wenn ich Code sehe, hilft mir das immer am Meisten.

[pstruh]

Hm, im Prinzip gern, musst aber noch ein bisschen warten (habe jetzt einen Bürotermin) Vielleicht hilft in der Zwischenzeit ja ein Anderer. Schaue aber nachher noch mal 'rein und helfe sonst gern weiter.
Gruß

[N30N]

Also ich hab folgende globale Variablen:

Delphi-Quellcode:

  Zeit : integer;
  Zeit2 : integer;
  Ergebniss: integer;

Dann habe ich bei der Formcreate folgendes eingetragen:

  Zeit := Gettickcount;
In meiner Abfrage steht folgendes:

Delphi-Quellcode:

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

Es geht nicht. Irgendwo hab ich nen Logikfehler. Das Video startet nicht einfach nicht.

[mschaefer]

< -3000