Automatisk nedlukning

lytter... :)

Lav det som en screensaver. Det er det nemmeste.
Ellers skal du hen og have fat i en masse hooks.

Stoney

Hej Stoney!!

fik du lave det til ham der???

Martin

marting>>

Fik lavet hvad til hvem ?

Stoney

Stoney >>

skulle du ikke lave et prom. til en ???

noget med en sever til ande sever??

Martin

Nå, jo jo.
Jeg blev færdig kl. 2 i nat.
Det spiller bare.

Stoney

Du er bare god!!!!!!!
ok så fik du ikke skå bollo af :-))

og du fik min E-m??

Martin

Jeg svarer lige på din mail når jeg kommer hjem.

Stoney

Hej Stoney,
Tak for dit svar. Jeg ved ikke rigtigt hvordan det gøres med den der screensaver. Kan du evt. uddybe det??
Jeg går ud fra at resten er en privat chat mellem dig og Marting!!!!
Hilsen Jisch

Groft sagt kan du bare lave en exe fil og omdøbe den til .scr og kopiere
den til rette bibliotek alt efter hvilket WIN OS du kører.

Jeg kigger lige på det i aften.

Stoney

jeg vil foreslå du bruger nogle WindowsHooks ... Jeg kan sende dig et eksempel hvis du giver min din e-mail adr.

jens B

Har lige fixet noget sammen som burde det du ville, men du skal bruge programmet som en screensaver altså omdøb din exe til scr.

skal bruge en form og en timer med interval 1000.

var
  Form1: TForm1;
  tid : integer= 0;
implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
if copy(ParamStr(paramCount),2,1) <> 's' then application.Terminate
else
  timer1.Enabled := true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
y : integer;
begin
  inc(tid);
  canvas.Font.Height := 60;
  Canvas.Handle := GetDC(0);
  y := canvas.TextWidth('Slukker om ' + inttostr(60 - tid) + ' Sec');
  Canvas.TextOut(screen.Width div 2 - y div 2,screen.Height div 2,'Slukker om ' + inttostr(60 - tid) + ' Sec');

  if tid = 60 then ExitWindowsEx(EWX_SHUTDOWN,0);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
InvalidateRect(0,nil,true);
end;

end.

HOV glemte egentlig at den skulle afslutte programmet hvis man rørte ved en tast :)
Må du lige selv fixe...

geek >> Din løsning virker ikke på en Windows NT/2K/XP ... Efter min mening ikke særligt optimalt ...

Jens B

Til borrisholt,
Tak for dit svar. Min e-mail jspost@sol.dk
Hilsen jisch

Quote borrisholt "Efter min mening ikke særligt optimalt"
Ja undskyld man prøver at hjælpe...
Har ikke mulighed for at teste det i NT eller XP, men i 2K virker det meste da som det skal, er da kun lige "ExitWindowsEx(EWX_SHUTDOWN,0);" som skal udbyttes med noget som faktisk slukker maskinen...

Geek

geek>> Du skal ikke undskylde !!! Aldrig bøje nakken ..... Bare fordi jeg har sidet her på eksperten i langtid (næsten 3 år) og du knap så lang tid, gør på ingen måde jeg har mere ret end dig !

Jeg forbeholder mig blot retten til at til en hvertid at give min hjertens ubegriblige mening !

Jeg vil da i ævrigt gerne være vært ved en funktion der kan lukke en Windows maskine ned :

function ExitWIndows( iFlags : integer ) : boolean;

  function SetPrivilege( sPrivilegeName : string; bEnabled : boolean ) : boolean;
  var
    TPPrev, TP : TTokenPrivileges;
    Token      : THandle;
    dwRetLen  : DWord;
  begin
    Result := False;
    OpenProcessToken( GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES  or TOKEN_QUERY, Token );
    TP.PrivilegeCount := 1;
    if( LookupPrivilegeValue( Nil, PChar( sPrivilegeName ), TP.Privileges[ 0 ].LUID ) )then
      begin
      if( bEnabled )then
        TP.Privileges[ 0 ].Attributes  :=  SE_PRIVILEGE_ENABLED
      else
        TP.Privileges[ 0 ].Attributes  :=  0;
      dwRetLen := 0;
      Result := AdjustTokenPrivileges( Token, False,TP, SizeOf( TPPrev ), TPPrev, dwRetLen );
    end;
    CloseHandle( Token );
  end;

begin
  Result := True;
  if( SetPrivilege( 'SeShutdownPrivilege', True ) )then
  begin
    if( not ExitWindowsEx( iFlags, 0 ) )then
    begin
      // handle errors...
      Result := False;
    end;
    SetPrivilege( 'SeShutdownPrivilege', False )
  end
  else
  begin
    // handle errors...
    Result := False;
  end;
end;


Her er så tre eksempler på hvordan den kan kaldes :

    ExitWindows(EWX_SHUTDOWN);
    ExitWindows(EWX_REBOOT);
    ExitWindows(EWX_LOGOFF);
Jens B

quote "Jeg forbeholder mig blot retten til at til en hvertid at give min hjertens ubegriblige mening !"
Det skal du da self. også have lov til :)
Du har faktisk kun været her nogle mdr. mere end mig !

Hvis man skal bruge SÅ meget kode bare for at boote maskinen i forholdt til 3 linjer i 98 forstår man godt at windows fylder så meget som det gør !!

Geek

Hej,
Tak for alle indlæg. Jeg har endnu ikke besluttet mig for om det skal være hooks eller screensaver. Bortset fra det - hvordan omdøber jeg en exe-fil til en scr-fil i windows 2K? Den er jo stadigvæk registreret som en exe-fil.
Jisch

Hej igen, igen,
Undskyld - det ved jeg faktisk godt selv. Det blev lidt sent!!
Jisch

Til Stoney,
Kan du ikke sende mig et svar. Jeg synes at alle disse gode svar skal dele pointene.
Jisch

geek >> ja ja ... Det der med Windows 98 og mit program der fylder så meget ... Det er ikke HELT rigtigt .. fordi min lokale procedure SetPrivilege() kan bruged i rigtig mange sitiationer når man koder WIndowsNT (eller en efter følger) fordi ikke alle brugere har ret til at gøre alt ...

jisch >> Der der med at omdøbe en exe fil til en scr fil gør den ikke til en Screensaver på www.torry.net kan du dowloade et eksempel på hvordan man laver en Screensaver i Delphi :-)

Jens B

Til Borrisholt,
Jeg kan da omdøbe exe til scr fra dos-promten. Det virker i hvert fald.
Jeg har afprøvet din function ExitWindows. Den virker i Windows 2K, men jeg kan ikke få den til at virke i Windows 98.
Et andet problem: I Windows 2K slukker computeren ikke, men giver en meddelelse om at jeg nu kan slukke computeren. Hvorfor det?

Jisch

OK - den med "Nu kan du slukke computeren" har jeg fundet ud af. Jeg skal blot bruge parameteren EWX_POWEROFF. Kan jeg i Windows 98 ikke blot kalde ExitWindowsEx(EWX_POWEROFF,0)?

Jisch

Sidste spørgsmål om dette. Hvordan undertrykker jeg ved nedlukningen at et kørende program f.eks. Word ikke kommer frem med meddelelsen "Skal ændringerne i "dokument 1" gemmes ?"?

Jisch

du bruger min metode og så kalder du
ExitWindows(EWX_FORCE);

Jens B

:-)

Stoney

er der nogen der gidder teste mit lordt på win 9x ?

Jens B

Til Borrisholt,
Tak skal du ha', men den har jeg prøvet. Det lukker bare ikke computeren ned, men beder mig om at logge ind igen. Jeg har prøvet:
ExitWindows(EWX_FORCE);
ExitWindows(EXW_POWEROFF);
Den går jo ikke da EXWFORCE lukker det kørende program ned.

Jisch