Discussion :

[Powerdj]

Salut

ce code Delphi permet de mettre l'ordinateur en vielle sous Windows XP

Code :

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

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

Mais il ne peut pas sous Windows 7

Merci

[ShaiLeTroll]

As-tu penser à utiliser les "Token Privilège", pour un REBOOT c'est nécessaire

Essaye d'utiliser SetSuspendState directement par LoadLibray et non ShellExecute

[Powerdj]

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
function SetSuspendState(
	Hibernate: Boolean,
	ForceCritical: Boolean,
	DisableWakeEvent: Boolean);
 
 
 {  Parameters:
 
   Hibernate: If this parameter is TRUE, the system hibernates.
			  If the parameter is FALSE, the system is suspended.
   ForceCritical: If this parameter is TRUE, the system suspends operation immediately;
				  if it is FALSE, the system broadcasts a PBT_APMQUERYSUSPEND event to
				  each application to request permission to suspend operation.
   DisableWakeEvent: If this parameter is TRUE, the system disables all wake events.
					 If the parameter is FALSE, any system wake events remain enabled.
 
 
  Windows NT/2000/XP: Included in Windows 2000 and later.
  Windows 95/98/Me: Included in Windows 98 and later.
}
 
 var
   _SetSuspendState: function (Hibernate, ForceCritical, DisableWakeEvent: BOOL): BOOL
   stdcall = nil;
 
   function LinkAPI(const module, functionname: string): Pointer; forward;
 
 function SetSuspendState(Hibernate, ForceCritical,
   DisableWakeEvent: Boolean): Boolean;
 begin
   if not Assigned(_SetSuspendState) then
	 @_SetSuspendState := LinkAPI('POWRPROF.dll', 'SetSuspendState');
   if Assigned(_SetSuspendState) then
	 Result := _SetSuspendState(Hibernate, ForceCritical,
	   DisableWakeEvent)
   else
	 Result := False;
 end;
 
 function LinkAPI(const module, functionname: string): Pointer;
 var
   hLib: HMODULE;
 begin
   hLib := GetModulehandle(PChar(module));
   if hLib = 0 then
	 hLib := LoadLibrary(PChar(module));
   if hLib <> 0 then
	 Result := getProcAddress(hLib, PChar(functionname))
   else
	 Result := nil;
 end;
 
 // Example Call:
// Beispielaufruf:
 
procedure TForm1.Button1Click(Sender: TObject);
 begin
   SetSuspendState(True, False, False);

le curseur du erreur pointer apres cette linge:

Hibernate: Boolean, <----

les messages d'erreurs

[Erreur] Unit1.pas(28): ';', ')' ou '=' attendu(e) mais ',' trouvé(e)
[Erreur] Unit1.pas(29): ';', ')' ou '=' attendu(e) mais ',' trouvé(e)
[Erreur] Unit1.pas(30): La fonction nécessite un type de résultat
[Erreur] Unit1.pas(50): Impossible d'initialiser les variables locales
[Erreur] Unit1.pas(85): ';' attendu(e) mais '.' trouvé(e)
[Erreur] Unit1.pas(87): Déclaration attendu(e) mais fin de fichier trouvé(e)
[Erreur fatale] EnVeillewin7.dpr(5): Impossible de compiler l'unité utilisée 'Unit1.pas'

[SergioMaster]

pas capable de comprendre la message du compilateur ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
function SetSuspendState(
	Hibernate,
	ForceCritical,
	DisableWakeEvent: Boolean);
 
//ou 
 
function SetSuspendState(
	Hibernate: Boolean;
	ForceCritical: Boolean;
	DisableWakeEvent: Boolean);

devrait corriger

[Powerdj]

Mème problème !!

[ShaiLeTroll]

une function nécessite un résultat

Code :

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

1
2
3
4
function SetSuspendState(
	Hibernate: Boolean;
	ForceCritical: Boolean;
	DisableWakeEvent: Boolean):  Boolean;

le code ci-dessus DOIT être dans la section interface


la variable globale _SetSuspendState et la suite est dans la partie implementation

Code :

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

1
2
var
   _SetSuspendState: function (Hibernate, ForceCritical, DisableWakeEvent: BOOL): BOOL stdcall = nil;

Je ne connaissais pas cette syntaxe, on trouve effectivement cela dans Indy
Les rares globales sur des fonctions, je n'avais pas eu besoin d'initialiser à nil le pointeur, et je n'ai jamais de problème (D5 à D7)

ton code qui utilise des variables globales et des indentations bizarres ce n'est pas évident à lire

[BuzzLeclaire]

Bonjour,

Vous pouvez essayer cela :

LIEN 1
LIEN 2

Bye