shoot down

Question

Bonjour a tous,
je voudrais que sur le click d'un bouton, le pc s'&#233;teigne directement sans passer par la confirmation windows, commen faire?
guillaume

jlen100 · Answer

salut,

 c'est avec InitiateSystemShutdown que tu &#233;teins le pc vas voir la sourceiciqui te donnera la marche &#224; suivre

@+

jlen

jlen100 · Answer

il y a aussi le code de rylryl:

    if FileExists('c:\NTDETECT.COM') then
    begin
     ShellExecute(Form1.Handle,Nil,'C:\WINDOWS\SYSTEM32\TSSHUTDN.EXE','0 /DELAY:0 /POWERDOWN','',sw_hide);
    close ;{XP}
    end
     else
     ShellExecute(Form1.Handle,Nil,'C:\Windows\RunDll.exe','C:\Windows\System\User.exe,exitWindows','',sw_hide);
    close; {9x}
   end;

guigui265 · Answer

ok,mais qu'est ce que shellexecute?  car [Erreur] Unit_shootdown.pas(30): Identificateur non d&#233;clar&#233; : 'ShellExecute'

jlen100 · Answer

salut, declares ShellApi dans les uses . Bon je n'est pas tester car je n'ai pas envie d'&#233;teindre mon PC pour l'instant!!



@+

jlen

jlen100 · Answer

il y a aussi un commande :

  winexec(Pchar(WindowsRep()+'\system32\shutdown.exe -s -f -t 00'),SW_SHOWNORMAL);

qui fonctionne bien (je l'ai d&#233;j&#224; utilis&#233;e)

@+

jlen

DeltaFX · Answer

begin
  if  IsWinNT then SetPrivilegeNT;
  ItWorked:= ExitWindowsEx(EWX_FORCE or EWX_SHUTDOWN or EWX_POWEROFF , 0); // XP
  if not ItWorked then
  ShowMessage ('Shutdown impossible');
end;

et les 2 fonctions qui vont bien.

//--------------------------------------------------------
function IsWinNT : Boolean;
var MyOS: TOSVersionInfo;
begin
// N&#233;cessaire de diff&#233;rencier Win NT des autres os
  MyOS.dwOSVersionInfoSize := Sizeof(MyOS);
  GetVersionEx(MyOS);  result :(MyOS.dwPlatformId VER_PLATFORM_WIN32_NT);
end;

//--------------------------------------------------------
procedure SetPrivilegeNT;
var sTokenIn,sTokenOut : TTOKENPRIVILEGES ;
    dwLen : DWORD ;
    hCurrentProcess,hToken : THANDLE ;
    Luid1 : TLargeInteger ;
begin
  try
    hCurrentProcess := GetCurrentProcess ;
//ajuste les privil&#232;ges, c ce ki est necessaire pour windows XP
    OpenProcessToken (hCurrentProcess,TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,hToken);
    LookupPrivilegeValue(nil,'SeShutdownPrivilege',Luid1) ;
    sTokenIn.PrivilegeCount := 1;
    sTokenIn.Privileges[0].Luid := Luid1;
    sTokenIn.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
    AdjustTokenPrivileges(hToken,FALSE,sTokenIn,sizeof(TTOKENPRIVILEGES),sTokenOut,dwLen);
    CloseHandle (hToken);
  finally
  application.ProcessMessages;
  end;
end;

Et l&#224;, c'est blind&#233; quelle que soit la version de zindos win 9x/2k/xp/etc etc (vista, je sais pas)

gnh !

Francky23012301 · Answer

DeltaFX, 

J'en profite que tu parles cette fonction pour signaler une erreur qui est présente dans 95% des sources qui parles d'éteindre le PC :

Procedure TForm1.EteindrePC ;
begin
ExitWindowsEx(EWX_SHUTDOWN, 0);
end;
end.

Cela ne fonctionne pas (en tout cas pas sous XP).

Ce qui me permet de demander comment on peut poster de telles énormités sans prendre les précautions comme celles que tu viens de faire ?

DeltaFX · Answer

Tu sais p&#244; lire toi :D

j'ai tap&#233; : ExitWindowsEx(EWX_FORCE or EWX_SHUTDOWN or EWX_POWEROFF , 0)

Tiens, v'la ce que dit le MSDN (carrement + fiable....)
EWX_SHUTDOWN (0x00000001) :

Shuts down the system to a point at which it is safe to turn off the power. All 
file buffers have been flushed to disk, and all running processes have stopped. 
The calling process must have the SE_SHUTDOWN_NAME privilege. For more 
information, see the following Remarks section.


Specifying this flag will not turn off the power even if the system supports 
the power-off feature. You must specify EWX_POWEROFF to do this. 

Windows XP SP1:  If the system supports the power-off 
feature, specifying this flag turns off the power.Et Vlan ! 

Quand au reboot , perso j'essaierai ca: ExitWindowsEx(EWX_REBOOT or EWX_FORCEIFHUNG, 0)

Francky23012301 · Answer

DeltaFX je ne dis pas cela sans raison : va voir les  sites

http://phidels.com/php/index.php3 et la source de fabiin sur delphifr (serieux je ne sais meme pas comment on peut oser faire une telle source aussi bien au niveau du contenu que du contenant).

Maintenant DeltaFX reste zen, cela ne te visait pas c''était juste une précision : Fait sur google Eteindre PC et tu vas voir le nombre de fois ou tu vas voir sans la moindre précision et SANS RIEN D'AUTRE :

Procedure TForm1.EteindrePC ;
begin
ExitWindowsEx(EWX_SHUTDOWN, 0);
end;
end.

Et ca j'affirme que sous XP ca ne fonctionne pas

DeltaFX · Answer

Oh je suis zen, je me sens pas vis&#233;. 

Je comprend pas ta remarque par rapport &#224; Phidels.com, il liste 2 m&#233;thodes (dat&#233;es de 2000, XP &#233;tait peu r&#233;pandu.....), 

Une non compatible NT : ExitWindowsEx(EWX_SHUTDOWN, 0), celle qui te mets en boule, et pourtant c'est clair c'est &#233;crit "non compatible NT" or XP est un deriv&#233; de NT

Et une compatible NT,donc avec selection de l'OS, et EWX_SHUTDOWN {or EWX_FORCE} et  malheureusement c'est rest&#233; en commentaire, le EWX_FORCE. ( et ca aurait du etre forceifhung, pour faire bien barbare).

Le principal truc a retenir, c'est d&#232;s qu'on voit un nom de commande o&#249; y a window dedans, faut syst&#233;matiquement aller lire le MSDN, avant d'accorder la moindre confiance &#224; un source.

Apres une lecture du MSDN, on rajoute "or EWX_PowerOFF" au cul de EWX_SHUTDOWN or EWX_FORCE,   et hop.

Cirec · Answer

Salut,

@ Francky : le mieux dans ce cas c'est tester soit m&#234;me et surtout avant d'affirmer quoi que ce soit. 
Tu as beaucoup de chance je l'ai fait pour toi 

 alors voici ce que j'ai test&#233; :

ExitWindowsEx(EWX_SHUTDOWN , 0); //  et &#231;a fonctionne tr&#232;s tr&#232;s bien sous XP SP2 avec les droits d'Administrateur
 et :

ExitWindowsEx(EWX_SHUTDOWN or EWX_FORCE  or EWX_POWEROFF , 0);    //  fonctionne &#233;galement ( mais &#231;a parait logique n'est il pas ?) 

Et je pr&#233;cise aussi que, les deux versions coupent l'alimentation (Si le PC g&#232;re l'APM bien sur ). Un Shut Down propre quoi. 

Donc on ne peut m&#234;me pas faire confiance au MSDN 

Un petit conseil qui ne mange pas de pain :
Ne pas prendre pour argent comptant tous ce que l'on peut lire ici et la sur le net o&#249; ailleurs 
TESTEZ VOUS M&#202;ME

Et vlan et hop  und tchuss 

@+
Cirec

jlen100 · Answer

salut,

MSND signifie: Microsoft Developer Network c'est la r&#233;frence des systemes Windows

pour la source que tu cites si tu l'as regard&#233;e c'est la m&#234;me chose que ce que te donne DeltaFx:

ExitWindowsEx(EWX_SHUTDOWN or EWX_FORCE  or EWX_POWEROFF , 0); 

il y a quand m&#234;me une chose &#224; v&#233;rifier est ce cette fonction laisse aux
autres programmes la possibilit&#233; de se fermer proprement ( closequery)
surtout dans la cas ou des modifications de donn&#233;es doivent
enregistr&#233;es?



@+

jlen

guigui265 · Answer

C'est vrai que ca peut etre dangereux, mais cela d&#233;pend comment on l'utilise! si l'on sait ce que fait cette appli,on prend des pr&#233;cautions, mais si on l'utilise en trompant un tiers, c'est diff&#233;rent!
J'ai tenu compte de vos remarques, et je suis arriv&#233; a quelque chose, qui marche tr&#232;s bien, sur mon pc XP SP2, je n'ai pas de pc avec un autre os!
merci a tous
guillaume

DeltaFX · Answer

Ce qui est chiant  quand on d&#233;veloppe, c'est cette foison de systemes zindoz 32-bits, faut soit penser &#224;  chaque system possible, soit restreindre les compatibilit&#233;s. Rien que controler WindowMediaPlayer (pas Tmediaplayer ) c'est la mort, y a le 6.4.07, le 7.1, le 8.1, le 9, le 10.... chacun avec ses trucs et bizarrerie.

En  fait c'est beaucoup plus marrant

jlen100 · Answer

j'ai test&#233; il ferme bien les applis avec closequerry

mais pour XP ma fonction est plus simple (une seule ligne) encore qu'en
la remettant seule sur un form le compilateur ne retrouve pas la
fonction WindowsRep() il a fallu que je lui sp&#233;cifie le chemin :

'c:\windows\system32\shutdown.exe -s -f -t 00'

l&#224; je n'est pas tout compris si vous avez une explication je suis preneur!



@+

jlen

jlen100 · Answer

autant pour moi, c'est un soft assez ancien et j'avais oubli&#233; que j'avais mis une fonction qui r&#233;cup&#232;re le chemin de windows:

function WindowsRep():string;

 var

    WindowsDir : array[0..MAX_PATH] of Char;

    nSize : DWord;

begin

     nSize := SizeOf(WindowsDir);

     GetWindowsDirectory(@WindowsDir, nSize);

     result := WindowsDir;

end;



&#231;&#224; va plus tr&#232;s bien  la t&#234;te Alzeimer me guette!!

@+

jlen

f0xi · Answer

le but est d'appuyer sur un boutton pour arreter le pc sans passer par la confirmation ? j'ai encore plus simple pour toi : appuis sur le boutton "Power" de ta tour pendant 4 secondes ... ton pc s'etteindras sans corrompre le systeme.

La theorie c'est quand on sait tout, mais que rien ne fonctionne. La pratique c'est quand tout fonctionne, mais que personne ne sait pourquoi.

Cirec · Answer

oui mais si tu n'as pas sauvegard&#233; ton travail 
ben ... c'est perdu 
Et c'est pas windows qui coupe mais c'est le Bios du PC qui permet cela. 
Donc pour le faire depuis une application Delphi 
c'est maron  
Snif

@+
Cirec

jlen100 · Answer

solution radicale en dernier ressort.... tu d&#233;branches le PC (il vaut
mieux avoir XP car avec 9X bonjour l'angoisse au red&#233;marrage)



@+

jlen

guigui265 · Answer

bande de barbar !!!!

Shoot down

22 réponses

Votre réponse

Discussions similaires