Problème avec Sysdm @0,4

**sematimo** · 08/05/2019, 12h21

Bonjour

J'ai une appli avec plusieurs commandes. Une d'elle doit lancer la restauration système de windows avec la commande 'Sysdm.cpl @0,4', qui affiche la tab 4 correspondant à la restauration.
J'ai donc fait:

Code :

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

ShellExecute(0, 'open', 'rundll32.exe', 'SHELL32.DLL,Control_RunDLL Sysdm.cpl @0,4', '',SW_SHOW);

La fenêtre propriété système s'ouvre bien mais la tab 4 corresponadnt à la restauration de s'affiche pas.
Je me suis dit qu'il y avait peut-être un problème d'espace dans le paramètre, j'ai danc fait une double quote:

Code :

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

ShellExecute(0, 'open', 'rundll32.exe', '"SHELL32.DLL,Control_RunDLL Sysdm.cpl @0,4"', '',SW_SHOW);

Marche toujours pas alors que la commande rundll32.exe SHELL32.DLL,Control_RunDLL Sysdm.cpl @0,4 fonctionne avec la commande execute du menu démarrer.

**Charly910** · 08/05/2019, 16h20

Bonjour,

tu peux essayer de tester le code retour de ShellExecute

A+
Charly

**sematimo** · 08/05/2019, 16h38

Oui
j'ai effectué:

Code :

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

if ShellExecute(0, 'open', 'rundll32.exe', 'SHELL32.DLL,Control_RunDLL Sysdm.cpl @0,4', '',SW_SHOW) <=32 then ShowMessage(SysErrorMessage(GetLastError));

Mais par d'erreur, la fenêtre propriété système s'ouvre mais pas d'affichage de la tab 4.

**SergioMaster** · 09/05/2019, 07h31

Bonjour,

les virgules dans la chaine d'arguments me font tiquer
je signalerai qu'il ne m'a fallu qu'une poignée de seconde pour googler avec les mots clés Delphi shellexecute cpl pour obtenir des réponses comme

Code :

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

WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL SysDm.cpl,,4',SW_SHOWNORMAL);

**sematimo** · 09/05/2019, 08h12

Moi aussi je pense que le problème vient des virgules dans les paramètres mais pour l'instant je n'ai pas trouvé de solution.

**SergioMaster** · 09/05/2019, 08h19

Il y a aussi ShellExecuteEx qui, à ma souvenance, permet de fournir un tableau de paramètres

**Andnotor** · 09/05/2019, 09h12

Ton app 32 bits lance RunDLL32.exe en 32 bits qui charge Shell32.dll 32 bits et il y a manifestement une différence entre les DLL 32 et 64.
Ça n'est pas forcément incompréhensible puisqu'il s'agit d'affecter le système opératif 64 bits, certaines fonctionnalités ne sont certainement disponibles qu'en 64.

Il faut donc empêcher la redirection Wow64 pour lancer la version 64 bits de RunDLL32 :

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
function Wow64DisableWow64FsRedirection(var OldValue: LongBool): LongBool; stdcall; external Kernel32 delayed;
function Wow64RevertWow64FsRedirection(var OldValue: LongBool): LongBool; stdcall; external Kernel32 delayed;
 
procedure RunCPL;
var
  Old :LongBool;
begin
  Wow64DisableWow64FsRedirection(Old);
 
  try
    ShellExecute(0, 'open', 'rundll32.exe', 'SHELL32.DLL,Control_RunDLL Sysdm.cpl,,4', '',SW_SHOW);
  finally
    Wow64RevertWow64FsRedirection(Old);
  end;
end;

**sematimo** · 09/05/2019, 17h26

Effectivement, s'était un problème de redirection.
ça fonctionne, la tab 4 s'affiche bien mais il faut supprimer Delayed pour que ça marche.
Merci.

**sematimo** · 09/05/2019, 18h49

j'ai un nouveau problème.
Si j'entre les commande et paramètres en toutes lettres, tout va bien .
Par contre si je passe par des Edits, ça ne fonctionne pas.

Code :

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

if ShellExecute(0, 'open', PChar(Edit_command.Text), PChar(Edit_param.Text), PChar(Edit_rep_execute.Text),SW_SHOW) <=32 then ShowMessage(SysErrorMessage(GetLastError));

Avec les paramètres sans virgule tout va bien, mais si paramètre avec virgule ça ne marche pas.