Discussion :

[Coussati]

salut

j'utilise ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
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.

mais il y a un message qui dit "vous pouvez maintenant fermer votre unité central"

or je ne veux pas avoir de message, je veux que l'éteindre sans message ...

[the_magik_mushroom]

sous xp il y a a commande shutdown.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

winexec('C:\WINDOWS\system32\shutdown.exe' + ' -s',SW_SHOWNORMAL);

pour + d'info shutdown /?

sinon essai avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ExitWindowsEx(EWX_FORCE and EWX_SHUTDOWN);

[Coussati]

thx je vais tester

[the big ben 5]

Dans la commande tu peux éventuellement ajouter -f comme parametre pour forcer les applications a se fermer...

[[Silk]]

Tu as regardé dans la FAQ ?
parce que pour éteindre le pc et l'alimentation il faut utiliser EWX_POWEROFF en paramètre

Pour arrêter Windows ( n'arrête pas l'alimentation ) : EWX_SHUTDOWN
Sous Windows XP SP1, si l'ordinateur supporte l'arrêt logiciel de l'alimentation, dans ce cas elle est arrêtée.

Pour arrêter Windows et l'alimentation : EWX_POWEROFF

Pour redémarrer Windows : EWX_REBOOT

Pour forcer la fin des process avant le redémarrage de Windows : EWX_SHUTDOWN + EWX_ FORCE
Dans ce cas la fonction n'envoie pas le message WM_QUERYENDSESSION et WM_ENDSESSION ce qui peut entraîner des pertes de données. A n'utiliser qu'en cas d'urgence
Sous Windows XP, si l'ordinateur est verrouillé, la procédure d'arrêt échoue sauf si celle-ci est exécutée à partir d'un service.

Lien :http://delphi.developpez.com/faq/?pa...StopRunWindows

[jmjmjm]

+1 pour [silk]
Sinon si tu utilise XP tu peut te contenter de shutdown
rajoute -t 00 pour le couper instantanement PS : Pas de message de coupure