Discussion :

[turck]

Bonjour

Code shell :

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

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 :

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

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.

[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

[SergioMaster]

Bonjour et bienvenue,

j'aurais écrit différemment

Code :

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

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;

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 :

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

     ShellExecute(0, nil, 'SUBST', 'S: /d', nil, SW_Hide);

[turck]

merci à vous deux.
J'ai utilisé la méthode indiquée par Sergio et cela fonctionne parfaitement.
Bonne journée

[ShaiLeTroll]

Sinon, faudrait quand même tenté ceci :

Code :

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

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é

[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

[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

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 :

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
 
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 :

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
 
// 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 :

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

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;

[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 :

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

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

et la version silencieuse

Code :

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

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

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é

[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