Forum: Multimedia
Delphi
by stz,
2. Apr 2008
uses Registry;
//aktuellen Screensaver auslesen
function getSs: String;
function ExtractLongPathName(FileName: String): String;
var
F: TSearchRec;
begin
if FindFirst(FileName, faAnyFile, F) = 0 then
Forum: Multimedia
Delphi
by stz,
2. Apr 2008
Vielleicht kann man ja einfach alle Minute (Timer?) prüfen, ob ein Prozess mit dem Dateinamen des aktuell ausgewählten Bildschirmschoners läuft. Wenn ja, addiert man einen Timerintervall zur Inaktiv-Zeit, wenn nein, addiert man einen Intervall zur Aktiv-Zeit.
Ich glaube, ich könnte da mal Code zusammensuchen. Getrennt voneinander habe ich beides irgendwo liegen...
Grüße
Malte