[D7/Win11] Exécution ligne de commande

Version imprimable

18/07/2022, 19h23
turck

[D7/Win11] Exécution ligne de commande
Bonjour

Code:

SUBST W: "C:\Users\miche\AppData\Local\VirtualStore\Program Files (x86)\SPIDD\Database"

ceci fonctionne parfaitement en ligne de commande pour monter un dossier en tant que lecteur sous Windows.

Je voudrais faire la même chose directement à partir de Delphi. J'ai essayé une bonne quinzaine d'écritures tournant autour de ceci
Code:

1 2 3 4 5 6 7 try ShellExecute(0, nil, 'cmd.exe', '/C SUBST S: "C:\Users"', nil, SW_Hide); except on E: Exception do showmessage(E.ClassName+ ': '+ E.Message); end;
le dossier n'est pas monté en tant que lecteur et je n'obtiens aucun message d'erreur.
Quelqu'un peut-il me venir en aide?
Merci par avance.
19/07/2022, 08h02
pprem

normalement il attend une chaîne de caractères, donc faudrait mettre la commande entre guillemets

l'as-tu essayée dans l'interpréter de commande sans passer par Delphi ? tu peux appeler cmd.exe dans l'interpréter de commande, ça sera plus simple
19/07/2022, 08h56
SergioMaster

1 pièce(s) jointe(s)
Bonjour et bienvenue,

j'aurais écrit différemment
Code:

1 2 3 4 5 6 7 try ShellExecute(0, nil, 'SUBST', 'S: "D:\AEnvoyer"', nil, SW_Hide); except on E: Exception do showmessage(E.ClassName+ ': '+ E.Message); end;
Pièce jointe 622498
cela écrit, ce n'est pas testé avec D7 ni sous Windows 11 mais avec D11.1(Alexandria) en FMX (j'avais un truc sous la main) et windows 10

du coup, il m'a fallu faire aussi l'opération inverse

Code:

ShellExecute(0, nil, 'SUBST', 'S: /d', nil, SW_Hide);
19/07/2022, 09h36
turck

merci à vous deux.
J'ai utilisé la méthode indiquée par Sergio et cela fonctionne parfaitement.
Bonne journée
19/07/2022, 10h22
ShaiLeTroll

Sinon, faudrait quand même tenté ceci :

Code:

ShellExecute(0, nil, 'cmd.exe', '/C "SUBST S: ""C:\Users"""', nil, SW_Hide);

Le paramètre /C pour cmd.exe indique que le paramètre suivant sera une chaine à exécuter du coup comme la chaine contient des espaces faut ajouter " mais comme cela contient en plus " faut les doubler
C'est purement théorique mais par curiosité
19/07/2022, 10h44
turck

dans ce cas là, la curiosité n'est pas un vilain défaut mais malheureusement ça ne fonctionne pas.
Merci et bonne journée

en fait SUBST n'est pas une commande du shell mais un programme dans C:\Windows\System32\Subst.exe...je pense qu'il serait plus simple de l'invoquer directement :)

cependant, en regardant les fonctions importées du programme je repère la fonction DefineDosDeviceW

et si on recherche Delphi et DefineDosDevice on tombe sur http://www.delphigroups.info/2/ff/487466.html qui propose

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
function Subst(Drive:char;Path:string):boolean;
var
  zPathName:array[0..80] of char;
  zDrvStr:array[0..5] of char;
  Flags:dWord;
begin
  Flags:=0;
  zDrvStr[0]:=Drive; zDrvStr[1]:=':'; zDrvStr[2]:=#0;
  if (Path='/d') or
     (Path='/D')
  then begin
    Flags:=DDD_REMOVE_DEFINITION or DDD_RAW_TARGET_PATH;
    QueryDOSDevice(zDrvStr,zPathName,sizeof(zPathName));
  end else begin
    if not(DirectoryExists(Path)) then begin
      Result:=false; exit;
    end;
    StrPCopy(zPathName,Path);
  end;
  Result:=DefineDOSDevice(Flags,zDrvStr,zPathName);
end;

le code n'est pas très beau mais devrait fonctionner...sans tester j'aurais écris ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
// Subst('W:', 'C:\Users\miche\AppData\Local\VirtualStore\Program Files (x86)\SPIDD\Database');
function Subst(const Drive: string; Path: string): Boolean;
var
  Flags: DWORD;
begin
  if Path = '/D' then
  begin
    Flags := DDD_REMOVE_DEFINITION;
    Path := '';
  end
  else
  begin
    Flags := DDD_RAW_TARGET_PATH;
  end;
  Result := DefineDosDevice(Flags, PChar(Drive), PChar(Path));
end;

ou encore

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
// Subst('W:', 'C:\Users\miche\AppData\Local\VirtualStore\Program Files (x86)\SPIDD\Database');
function Subst(const Drive, Path: string): Boolean;
var
  Flags: DWORD;
begin
  if Path = '' then
    Flags := DDD_REMOVE_DEFINITION;
  else
    Flags := DDD_RAW_TARGET_PATH;
  Result := DefineDosDevice(Flags, PChar(Drive), PChar(Path));
end;

19/07/2022, 11h07
ShaiLeTroll

En fait, le doublement n'est pas géré comme on pourrait le penser, c'est plus simple et je ne sais pas comment il le gère pour comprendre que le premier " n'est pas la fin du paramètre, peut-être que " non suivi d'un espace est pris comme de la donnée.

Pour ce genre de chose faut commencer par un mode visible :

Code:

ShellExecute(0, nil, 'cmd.exe', '/K "SUBST T: "C:\Program Files (x86)\Embarcadero\Studio""', nil, SW_SHOW);

et la version silencieuse

Code:

ShellExecute(0, nil, 'cmd.exe', '/C "SUBST T: "C:\Program Files (x86)\Embarcadero\Studio""', nil, SW_HIDE);

Citation:

Envoyé par Paul TOTH

en fait SUBST n'est pas une commande du shell mais un programme dans C:\Windows\System32\Subst.exe...je pense qu'il serait plus simple de l'invoquer directement :)

C'est la proposition de SergioMaster, l'appel direct
Disons que la résistance sur CMD /C était une curiosité
19/07/2022, 11h16
Paul TOTH

je crois que j'ai été traumatisé par ma période Visual Basic (pré-Delphi 1...oui ça remonte, mais le traumatisme est toujours là) pour lequel j'utilisais assez souvent la fonction SHELL() pour tout et n'importe quoi...maintenant je cherche toujours une solution par API :)