[D7] Appeler ShutDown.EXE depuis un programme.

Version imprimable

Bonjour à tous :)

Par CreateProcess() j'appelle SHUTDOWN.EXE... mais ça ne marche pas ...

Voici le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Var
  StartupInfo: TStartupinfo;
  ProcessInfo: TProcessInformation;
  Retour : longbool;
  Appel, Rep : string;
 
begin
 
  Rep := 'c:\Windows\System32';
  FillChar(Startupinfo,Sizeof(TStartupinfo),0);
  Startupinfo.cb:=Sizeof(TStartupInfo);
 
  Appel := Rep + '\shutdown.exe -h';
  Retour := CreateProcess(nil,
                        PChar(Appel),
  			 nil,
                         nil,
                         false,
                         normal_priority_class,
                         nil,
  			 PChar(Rep),Startupinfo,ProcessInfo);
 
.../...

Ensuite, je teste Retour, qui est True. Mais ça ne met pas le PC en veille.

Idem pour ShellExecute.

Il y a une astuce ?

Merci :)

16/10/2009, 18h42
Andnotor

Shutdown arrête le PC, mais ne le met pas en veille et le switch -h n'existe pas.

Essaye plutôt:

Code:

ShellExecute(0, 'open', 'rundll32.exe', 'powrprof.dll,SetSuspendState', nil, SW_HIDE);
16/10/2009, 21h51
bvsud

Citation:

Envoyé par Andnotor

Shutdown arrête le PC, mais ne le met pas en veille et le switch -h n'existe pas.

Essaye plutôt:

Code:

ShellExecute(0, 'open', 'rundll32.exe', 'powrprof.dll,SetSuspendState', nil, SW_HIDE);

Ca marche nickel ;)

Merci :hello: