|
Registriert seit: 31. Aug 2005
1.622 Beiträge
FreePascal / Lazarus
|
Re: Rechneraktivität vortäuschen?
13. Sep 2009, 13:33
Warum eigentlich so kompliziert? Es würde doch eigentlich reichen, auf die entsprechende "Der Bildschirmschoner schaltet sich ein" Message zu reagieren und diese negativ zu beantworten:
Delphi-Quellcode:
procedure TVid_wnd.WMSysCommand(var Msg: TMessage);
begin
if ((Msg.wParam = SC_SCREENSAVE) or
(Msg.WParam = SC_MONITORPOWER)) and
(Fullscreen) then
Msg.Result := 1
else
inherited;
end;
Andreas
"Sollen sich auch alle schämen, die gedankenlos sich der Wunder der Wissenschaft und Technik bedienen, und nicht mehr davon geistig erfasst haben als die Kuh von der Botanik der Pflanzen, die sie mit Wohlbehagen frisst." - Albert Einstein
|