Forhindre screensaver i at blive aktiveret.

altså hvis det skal ordnes på sådan en måde, så kan jeg ikke forstå hvorfor du ikke bare vil nøjes med at simulere mus eller tastetryk

http://www.delphicorner.f9.co.uk/articles/wapi11.htm

dkn - det er fordi at jeg ikke havde tænkt på det.

Det vil være endnu bedre.

Sherlock - jeg ser lige på det.

Sherlock - jeg har lidt problemer med hvordan jeg skal kalde proceduren, kan du hjælpe?

Den skal ikke kaldes af dig.
Den bliver kaldt af delphi's globale eventhandler, når windows laver en broadcast til alle kørende applikationer.
Den skal bare tilføjes til din form.

OK - jeg tester lige

Den fanger ikke screensaveren, den bliver stadig aktiveret.

Det er nok fra før-XP tiden...

Her er en anden metode at forsøge med.
Jeg har ikke selv Delphi installeret mere, så jeg kan ikke teste, før jeg poster her.

{
Insert the following code into the
"public" section of
your main form:
}
procedure AppMessage
  (var Msg : TMsg;
    var bHandled : boolean ) ;

{
In the OnCreate for the main form add:
}
Application.OnMessage := AppMessage;

{
In the "implementation" section, insert the
following code (suppose Form1 is the name of your form):
}
procedure TForm1.AppMessage(
  var Msg : TMsg;
  var bHandled : boolean ) ;
begin
  if((WM_SYSCOMMAND = Msg.Message) and
      (SC_SCREENSAVE = Msg.wParam) )then
    bHandled := True;
end;

Jeg kører Windows 2000, hvis det gør nogen forskel, men jeg prøver lige.

Indtil nu er der ikke noget, har kunne forhindre screensaveren til at starte op.

Nååmen. Vi giver ikke op så let :)

Kald denneher i Form.Create.


function ActivateScreenSaver
        (Activate: boolean): boolean;
var IntActive: byte;
begin
  if Activate then
    IntActive := 1
  else
    IntActive := 0;

  Result := SystemParametersInfo
            (SPI_SETSCREENSAVEACTIVE, IntActive,
              nil, 0) ;
end;

Jeg tester lige

Hvis man bruger det sidste af sherlocks forslag skal man huske at sætte den igen, men hvad sker egentlig hvis programmet uventet dør?

I øvrigt en helt sjovt API-kald, den SystemParametersInfo.

Jeg prøvede forslag nr. 2, hvor jeg koblede den på application.OnMessage. Den skal jo også forhindre pauseskærmen når andre forme er åbne. Men min maskine er imod mig. Selvom maskinen er genstartet og tidsintervallet sat til 1 minut, kan jeg ikke få pauseskærmen frem - og så kan jeg heller ikke teste om det virker.

Nope, min screensaver insistere på at starte op.

Ok. Prøv det her og hvis det virker, så "stjæl" med arme og ben :)

http://members.fortunecity.com/schutzenberger/download/AntiScreensaverSrc.zip

Jeg kommer frem til denne side

http://www.fortunecity.com/referercheck/denial.jpg

Så bare kopier linket og sæt det i adressefeltet selv :)

DET VIRKER!

Sherlock - smid et svar, så du kan få dine velfortjente points.

Og tak for hjælpen.

:) Befriende....