Program der forhindrer screensaver og energibesparelsesmode

http://www.bsdg.org/swag/DELPHI/0380.PAS.html <-- det skulle vist kunne gøre det :)

Ja, det ser sådan ud - men hvad hedder konstanterne for 'Systemstandby' og 'Sluk for harddiske'? (Win2K terminologi) Problemet er, at jeg har et program der ikke selv kan starte en natkørsel op, efter at computeren er gået i sleep mode...

en natkørsel af hvad ?

Det er en række batchjobs der startes af en timer. Men når computeren er gået i standby mode og diskene er slukkede kan programmet ikke få liv i computeren igen, og natkørslen bliver ikke kørt. Derfor skal det forhindres at computeren går i standby mode og slukker for diskene. Det med screensaveren og monitorpower virker top max...

SC_CLOSE, SC_HSCROLL, SC_MAXIMIZE, SC_MINIMIZE, SC_MOUSEMENU, SC_MOVE, SC_NEXTWINDOW, SC_PREVWINDOW, SC_RESTORE, SC_SCREENSAVE, SC_SIZE, SC_TASKLIST, SC_VSCROLL

det er dem der er af den slags konstanter, så deri er den vist ikke .. men det må kunne gøres på en anden måde ..

det ville hjælpe mig meget hvis jeg fik lidt mere at vide om hvad programmet helt præcist skal bruges til

men for fx, at få computere til at gå i standby skriver man

SendMessage(Handle, WM_SYSCOMMAND, SC_SCREENSAVE, 1);

dvs .. standby har noget med SC_SCREENSAVE at gøre ..

Programmet skal i alt sin enkelthed forhindre at en pc går i standby mode og slukker for diskene, uanset om det kører under 95,98,NT,2K,XP. Det lyder nemt, men.... :)

http://www.swissdelphicenter.ch/torry/showcode.php?id=939 <-- på den står der hvordan man får et program til at forhindre computeren i at slukke .. måske du kan bruge det til noget

Hmm... Så system Standby er måske inkluderet i???

nu ved jeg ikke hvordan du har det med komponenter, men dette komponent kan vist det hele :) og hvis ikke så bare stadig brug den øverste funktion jeg skrev

http://www.torry.net/vcl/system/otherhardware/pwrsave.zip

det kunne jeg meget vel forestille mig at den var .. du kan jo evt prøve på din egen og sætte standby til 1 minut eller lign .. så finder du jo hurtigt ud af det .. :)

komponenten er til Delphi 4,5,6 og 7

og source koden er i så du evt kan aflæse den hvis du ikke vil bruge komponenter :)

...tak - jeg kigger lige på det - det skal desværre være i Delphi 3 - men det kan jo også være det virker der... :) Prøver mig frem så hører du nærmere...

okay :)

Hm.. måske et lille hack, men kunne du ikke bare flytte musen en pixel hvert minut? :)

Evt. i forskellige retninger så du ikke stopper helt ude i siden på et tidspunkt.

Så virker skidtet :)

Der oprettes en funktion (i dette tilfælde navngivet AppMessage) der kaldes hver gang der sendes en WindowsMessage til hovedformen. Her sat i FormCreate (Application.OnMessage:=AppMessage;). Denne funktion blokerer for start af screensaver og monitor standby.

For at forhindre at pcen går i standby mode eller slukker for skærme/diske overskrives proceduren WndProc. Husk at nedarve (inherited;). Her kan man så teste på og afvise alle WindowsMessages...

const
  // APM messages
  PBT_APMQUERYSUSPEND      = $0000;
  PBT_APMQUERYSTANDBY      = $0001;

Private 
  procedure AppMessage(var Msg: TMsg; var Handled: Boolean);
  procedure WndProc(var Msg: TMessage); 

procedure TXForm.FormCreate(Sender: TObject);
begin
  Application.OnMessage:=AppMessage;
end; 
 
   
procedure TXForm.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
  if (Msg.Message = WM_SYSCOMMAND) and (not ClientVent) then
    if (Msg.wParam = SC_SCREENSAVE) or (Msg.wParam = SC_MONITORPOWER) then
      Handled := true; // prevent screensaver}
end;

procedure TXForm.WndProc(var Msg: TMessage);
begin
  inherited;
  if Msg.Msg = WM_POWERBROADCAST then
    case Msg.WParam of
      PBT_APMQUERYSUSPEND : Msg.Result := BROADCAST_QUERY_DENY;
      PBT_APMQUERYSTANDBY : Msg.Result := BROADCAST_QUERY_DENY;
    end;
end;

Tak for hjælpen troxa :)

det var så lidt :) er glad for at kunne hjælpe :) selvom det er ved at være længe siden jeg har arbejdet med delphi hehe