TNA Programm stört Bildschirmschoner

rstaeker · Beiträge: 94 WIN 2000 D6 Prof

Hallo,

ich habe ein Problem.
Mein Programm läuft mit einem TNA Symbol. Jetzt musste ich aber feststellen, dass sich mein Bildschirmschoner nicht mehr aktiviert, wenn das Programm läuft.
Wenn ich den Bildschirmschoner direkt teste, erscheint er kurz und bricht dann ab.

Hat jemand eine Idee, wie ich das abstellen oder umgehen kann.

Vielen Dank schon mal

Rene

Ehemaliges Mitglied Erhaltene Danke: 1

Das tun TNA-Icons normalerweise nicht. Was macht denn dein Programm und wie macht es das?

rstaeker · Beiträge: 94 WIN 2000 D6 Prof

Das Programm prüft mit einem Timer im Minutenabstand den Inhalt eines Verzeichnisses. Wenn neue Dateien vorhanden sind werden diese in ein Zielverzeichnis kopiert.
Benutzt wird die ShellApi.pas und Messages Für die Statusanzeige während die Standby Betriebes benutze ich einen weiteren Timer, der im Sekundenabstand die Statusanzeige aktualisiert.
Das wäre auch der Punkt, wo ich für eine Lösung ansetzten würde.

Vielleicht hilft das weiter

MfG

rstaeker · Beiträge: 94 WIN 2000 D6 Prof

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TFKopieren.Timer_AnzeigeTimer(Sender: TObject);
var KeyboardState:TKeyboardState;
begin
  FileListBox1.Update;
  FileListBox2.Update;
//  GetKeyboardState(KeyboardState);
//  if KeyboardState[VK_SCROLL]=1 then SetLEDState(ktScrollLock, False)
//                                 else SetLEDState(ktScrollLock, True);
  if PAnzeige.color=clLime then PAnzeige.color:=clYellow else PAnzeige.color:=clLime;
end;

In den auskommentierten Zeilen liegt der Fehler. :idea:

Der Wechsel des KeyState führt natürlich dazu, dass der Bildschirmschoner beendet wird.
Ist ja auch logisch, schließlich wird ein Tastendruck simuliert.

So jetzt kann es weitergehen.

:wave:

Bye Rene

Moderiert von UGrohne: Code- durch Delphi-Tags ersetzt

Ehemaliges Mitglied Erhaltene Danke: 1

Keine Ursache, habe gerne geholfen. :wink:

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme