Je cherche un moyen d'éteindre W2k pro via un raccourci ou un soft - Windows & Software
Marsh Posté le 24-07-2001 à 14:03:49
va voir sur www.bellamyjc.net rubrique technique
C'est très bien expliqué
A+
Marsh Posté le 24-07-2001 à 14:29:16
Y'a le shutdown.exe fourni avec le ressource kit. Cherche un peu sur le net il doit y etre.
A+
Marsh Posté le 24-07-2001 à 14:33:39
Merci je vais chercher !
[edtdd]--Message édité par kys--[/edtdd]
Marsh Posté le 24-07-2001 à 14:35:52
sinon t'as hotkeyboard qui le propose mais j'ai jamais essayé.
Marsh Posté le 24-07-2001 à 14:42:27
Raccouri clavier : pas bon !
Il me faut un prog ou l'équivalent du raccourci que j'avais sous w98 (il marche pas sous 2k)
[edtdd]--Message édité par kys--[/edtdd]
Marsh Posté le 06-08-2001 à 00:13:47
Sous 98 je fais ca (merci les raccourcis LiteStep):
Log off:
rundll32 shell32,SHExitWindowsEx 0
Shut down:
rundll32 shell32,SHExitWindowsEx 1
Restart:
rundll32 shell32,SHExitWindowsEx 2
Enjoy
__
Grumpf
Marsh Posté le 06-08-2001 à 09:16:51
Bah en Delphi ça donne ça avec deux boutons un qui ferme et l'autre qui reboot:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var sTokenIn,sTokenOut : TTOKENPRIVILEGES ;
dwLen : DWORD ;
hCurrentProcess,hToken : THANDLE ;
Luid1 : TLargeInteger ; // LUID ;
begin
// Handle du process en cours
hCurrentProcess := GetCurrentProcess ;
OpenProcessToken (hCurrentProcess,TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken);
// valeur du privilege SHUTDOWN
LookupPrivilegeValue(nil,'SeShutdownPrivilege',Luid1) ;
sTokenIn.PrivilegeCount := 1;
sTokenIn.Privileges[0].Luid := Luid1;
sTokenIn.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
// Ajustement du privilege avec les nouvelles valeurs
AdjustTokenPrivileges ( hToken, FALSE, sTokenIn,sizeof(TTOKENPRIVILEGES),sTokenOut, dwLen);
CloseHandle (hToken);
ExitWindowsEx(EWX_REBOOT {or EWX_FORCE}, 0) ;//Sortie NT
end;
procedure TForm1.Button2Click(Sender: TObject);
var sTokenIn,sTokenOut : TTOKENPRIVILEGES ;
dwLen : DWORD ;
hCurrentProcess,hToken : THANDLE ;
Luid1 : TLargeInteger ; // LUID ;
begin
// Handle du process en cours
hCurrentProcess := GetCurrentProcess ;
OpenProcessToken (hCurrentProcess,TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken);
// valeur du privilege SHUTDOWN
LookupPrivilegeValue(nil,'SeShutdownPrivilege',Luid1) ;
sTokenIn.PrivilegeCount := 1;
sTokenIn.Privileges[0].Luid := Luid1;
sTokenIn.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
// Ajustement du privilege avec les nouvelles valeurs
AdjustTokenPrivileges ( hToken, FALSE, sTokenIn,sizeof(TTOKENPRIVILEGES),sTokenOut, dwLen);
CloseHandle (hToken);
ExitWindowsEx(EWX_SHUTDOWN {or EWX_FORCE}, 0) ;//Sortie NT
end;
end.
Button1: Reboot
Button2: Shutdown
Marsh Posté le 06-08-2001 à 11:07:00
Merci pour le source mais j'ai pas delphi !
En fait, je cherche un prog qui me permettrait d'éteindre w2k pro
juste en lancant le prog.
J'en ai testé une tonne mais aucun ne fonctionne correctement sous w2k.
Ceux qui marchent s'arrêtent à l'écran Vous pouvez éteindre ...
Je rappelle que mon pc s'éteint complètement en passant par la séquence normale Démarrer ...
Marsh Posté le 24-07-2001 à 12:59:06
J'ai fais une recherche mais les trucs que j'ai trouvés ne fonctionnent pas . Je suis peut être pas doué
Si quelqu'un sait comment faire ca MERCI