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.