Lukke Windows i WinXp

Tags:    delphi

Er der nogen der kan svare mig på, hvordan man får computeren til at lukke helt ned, og ikke genstarte, eller logge af... Jeg bruger WinXp, home og prof. edition...


Jeg har søgt i gamle tråde, og fandt en masse... Men de fleste virkede ikke, og EWX_Shutdown loggede bare af....

Der må da være en måde....



// Asbjørn
Hvad er det sejeste dyr i verden?
Svaret er en strandskade....



7 svar postet i denne tråd vises herunder
3 indlæg har modtaget i alt 3 karma
Sorter efter stemmer Sorter efter dato
http://www.swissdelphicenter.ch/torry/showcode.php?id=168

Det virker helt fint i min XP















-------------------------------------------------------
Jonas (Decko)
http://www.growyourownshit.com/users/Decko
-------------------------------------------------------



Fandt en kode her:

Add også en button og skriv 'ExitWindows(EWX_SHUTDOWN);'


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;



Har haft det samme problem. Men på min pc skal jeg så bare bruge denne kode.

ExitWindowsEx(ewx_shutdown,0);

Sig til hvis det ikke virker




Shafh
Shafh@stofanet.dShafh
Shafh@stofanet.dk
Theis F. Hinz

Min Storebror har altid sagt:
At lave en Amarmad er det samme som at blande mælk med fløde.

Så ved i det :P



Ja, hvis man gerne vil have Xp til at logge af!!

har testet på flere Xp - maskiner! (Dog kun Home!)


// Asbjørn
Hvad er det sejeste dyr i verden?
Svaret er en strandskade....



Jeg kan både genstarte, lukke ned, logge af osv














-------------------------------------------------------
Jonas (Decko)
http://www.growyourownshit.com/users/Decko
-------------------------------------------------------



Ja her logger det kun af..



// Asbjørn
Hvad er det sejeste dyr i verden?
Svaret er en strandskade....



http://www.decko.1go.dk/shutdown.zip

Har lige testet det i på min WinXP Home. Det lukkede pc'en ned.












-------------------------------------------------------
Jonas (Decko)
http://www.growyourownshit.com/users/Decko
-------------------------------------------------------

[Redigeret d. 23/07-04 21:51:35 af Jonas (Decko)]



t