Bildschirmschoner manuell aktivieren

[John Oppen]

Hallo zusammen,

habe lange gesucht und nichts gefunden.
Wie kann ich mit Delpgi 3 Prof. unter NT 4.0 den Bildschirmschoner per Mausklick aktivieren.

Danke John

[Jörg Prepadnik]

Versuche mal folgendes:<br>
<br>
<PRE>
Procedure ScreenSaverStarten(FensterHandle: Hwnd);
const
WM_SYSCOMMAND = $112;
SC_SCREENSAVE = $F140;
begin
SendMessage(FensterHandle, WM_SYSCOMMAND, SC_SCREENSAVE, 0);
end;
</PRE&gt

[John Oppen]

Danke für die prompte Antwort,
aber ... das klappt nicht.
Was ist denn für ein Handle gemeint ?

Danke
Joh

[U. Rupprecht]

hi,

ich habs mal in einem kleinen Testprogramm ausprobiert und es funzt. Als Handle hab ich das Handle vom Hauptfenster angegeben.

Bsp.:

<pre>
<code><font size=2 face="Courier New"><font color="#000000"><b>Procedure </b>ScreenSaverStarten(FensterHandle: Hwnd);
<b>const
</b> WM_SYSCOMMAND = $112;
SC_SCREENSAVE = $F140;
<b>begin
</b> SendMessage(FensterHandle, WM_SYSCOMMAND, SC_SCREENSAVE, 0);
<b>end</b>;

<b>procedure </b>TForm1.Button1Click(Sender: TObject);
<b>begin
</b>screensaverstarten(self.handle);
<b>end</b>;
</font>
</code></pre>

Uw

[John Oppen]

Hey Super funzt. Klasse DANKE.!!!

[Hagen Reddmann]

alternativ ginge auch<br>

SendMessage(GetDesktopWindow, WM_SYSCOMMAND, SC_SCREENSAVE, 0);<br>

das spart das Übergeben eines speziellen Fensterhandles.<br>

Hage