Bildschirmschoner verhindern

[Mister X]

Hallo,

wie kann ich Windows sagen, das kein Bildschirmschoner gezeigt wird, während mein Programm läuft?

Also sowas wie beim WindowsMediaPlayer ...

Gruß
Mister X-Ray

[Sharky]

Hai,

das hatten wir glaube ich eben erst in diesem Thread.

[Mister X]

danke ... aber richtig verstehen tu ich das nicht ....

Gruß
Mister X

[Sharky]

Zitat von Mister X:

danke ... aber richtig verstehen tu ich das nicht ....

Verwende den Code von marabu aus dem Thread. Wenn Du jetzt im OnCreate deiner Hauptform den Bildschirmschoner deaktivierst und ihn dann im OnDestroy wieder aktivierst solltest Du es schon haben wie Du möchtest.

[Mister X]

meinst du das mit

Delphi-Quellcode:

const 
  SSON = 1; 
  SSOFF = 0; 
begin 
  SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, SSOFF, nil, 0); 
end;

oder das andere?

zum obigen habe ich eine Frage:
wie bekomme ich den Bildschirmschoner dann wieder aktiv? mit SSON = 0 und SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, SSON, nil, 0); oder wie?

Guß
Mister X

[storm1988]

Um den Bildschirmschoner zu deaktivieren musst du folgendes coden:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
 SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 0, nil, 0);
end;

Und um ihn wieder zu aktivieren:

Delphi-Quellcode:

procedure TForm1.FormDestroy(Sender: TObject);
begin
SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 1, nil, 0);
end;

Mfg st0rm

[Robert Marquardt]

Er moechte das der Bildschirmschoner nicht anspringt solange sein Programm laeuft.
Damit ist dieser Code von Marabu der Richtige:

Delphi-Quellcode:

procedure TMainForm.AppMessage(var Msg: TMsg; var Handled: boolean);
begin
  if (Msg.Message = WM_SYSCOMMAND) and (Msg.wParam = SC_SCREENSAVE) then
  begin
    Handled := true;
    Msg.Result := 1;
  end;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  Application.OnMessage := AppMessage;
end;

Windows sendet jedesmal wenn der Screensaver anspringen soll eine WMSYSCOMMAND mit Parameter SC_SCREENSAVE an alle Applikationen.
Antwortet man mit der 1 in Msg.Result, dann startet Windows den Screensaver nicht.
Um OnDestroy muss man sich nicht kuemmern, da die Applikation ja dann sowieso nicht mehr da ist um zu antworten.

Die Loesung den Screensaver per SystemParametersInfo zu deaktivieren ist ein bischen problematisch, da das Programm ja abstuerzen kann und dann den Screensaver nicht mehr reaktiviert.

[Robert Marquardt]

Da es mit OnMessage nicht geht, muss man eine Message-Methode schreiben.
Deklariert in der Hauptform:

Delphi-Quellcode:

procedure WMSysCommand(var Msg: TMessage); message WM_SYSCOMMAND;


procedure WMSysCommand(var Msg: TMessage);
begin
  if Msg.wParam = SC_SCREENSAVE then
    Msg.Result := 1
  else
    inherited;
end;

Damit sollte es dann hinhauen.