Discussion :

[belle5656]

salut Cl@udius,

Oui, ce serait bien, mais quand on extrait les variables, le nom de USERNAME, existent déjà..

Il faudrait, dans ce cas, que le .exe, ajoute %username% tout seul dans le .bat, c'est cela en fait..?

C'est une très bonne idée entre nous.

[belle5656]

Re à tous,

Non, en fait, avec %username%, cela ne fonctione toujours pas.

Il faudrait, que je puisse, faire les manips comme dit plus haut..

[Rayek]

Pourquoi ne pas utiliser les fonctions existantes ?

Genre ExtractShortPathName qui donne un chemin ecrit en dos

Ex:

C:\Documents and Settings\Informatique\Menu Démarrer\Programmes

devient

C:\DOCUME~1\INFORM~1\MENUDM~1\PROGRA~1

[belle5656]

Salut Rayek,

J'avais effectivement essayé, et je viesn de re-tester pour le cas, ou, mais cela ne apsse toujours pas.


Dans le cas de nom de session ééàö< & éèà, si une fois le chemin extrait:

Code :

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

C:\Documents and Settings\ééàö< & éèà\Mes documents

Dans le .bat, je vais par exemple attribuer Mes documents à la variable MESDocs, comme ceci:

Code :

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

Set MESDocs=C:\Documents and Settings\ééàö< & éèà\Mes documents

Si, par la suite, dans le .bat, je fais cd %MESDocs%, cela se bloque direct..En 8-3 ou pas..

Je sais pas si c'est trop clair tout ça..

[Cl@udius]

L'idée de Rayek d'utiliser les noms courts est certainement la plus simple.

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
 
var
  UserDoc: string;
  Buffer: array[0..MAX_PATH-1] of char;
begin
  AssignFile(F, 'Test.bat');
  Rewrite(F);
  try
    SetString(UserDoc, Buffer,
              GetShortPathName(PChar('C:\Documents and Settings\Noël\Mes Documents'),
                               Buffer, MAX_PATH-1));
    WriteLn(F, 'Set MesDocs=' + UserDoc);
    WriteLn(F, 'cd %MesDocs%');
 
  finally
    CloseFile(F);
  end;
end.

J'ai effectué un test et le ChangeDirectory (cd) fonctionne.
Nota: Il faut que le dossier spécifié pour GetShortPathName existe, sinon il renvoie une chaine vide.

@+

[belle5656]

Re Cl@udius,

Pour moi, cela ne fonctionne pas dans le cas d'une session qui se nomme ééàö< & éèà,.

Je sais , que cela peut paraitre absurde, mais il faut que j'envisage tout possiblité.

J'ai essayé, comme ceci:

Code :

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

1
2
3
4
5
6
begin
St:='¨^>&';
for i:=1 to Length(St) do
if St[i]='¨^>&' then St[i]:='^'; 
 
end;

Mais toujours rien...

Même avec les noms court, c'est quand même un drame ça!

[Qwazerty]

SAlut
Si ton probleme est resolu en mettant '^' devant les caractere qui pose probleme fait comme ca

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
uses StrUtils;
var
       StrAccent, StrSpecial : String;
       I : Integer;
begin
     StrAccent := 'éâêÄËîäëô';
     //[...]
     Registre.RootKey:=HKEY_CURRENT_USER;
     Registre.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders',False);
     StrSpecial := AnsiLowerCase(ExpandFileName(Registre.ReadString (*****)))
     For I := 0 To Length(StrAccent) Do
          StrSpecial := AnsiReplaceStr(StrSpecial,StrAccent[i],'^' + StrAccent[i]);
 
     Writeln(F, '*****=' + StrSpecial);
     readln
End.

Comme ca (j'ai pas verifié) ca te rajoute ^ devant les caractere accentué que tu aura listé dans la variable StrAccent

Si c'est juste USERNAME qui pose problem modifie le code pour avoir username dans la variable StrSpecial (ce qui doit etre le cas avec le readString(*****) que tu donnée dans ton exemple.

A++
Qwaz

[Edit] Normal que ton morceau de code ne marche pas dans le poste precedent, puisque celui ci ne rajoute pas ^ devant le caractere accentué il le remplace, tu fini donc par te retrouver avec '^^^^^^'
En plus je pense pas que tu ai le droit de dir Str[I] = 'jdsfhk', Str[I] represente un char donc 1 seul caractere.[/Edit]

[belle5656]

Re,

Je viens de tester, et cela me rajoute ^ partout.
J'ai modifié, et pas de soucis, mais j'ai toujours, a l"écran DOS, Le repertoire spécifié est introuvale ou alors nom de synthaxe incorect.

Je comprends vraiment plus rien, cela doit être jouable, car il y a des codes qui fonctionne comme cela. Mais je sais pas si cela passe par le DOS..

Il doit bien y avoir un moyen, de pouvoir se déplacer dans les repertoire, une fois les variables extraites, que le nom de la session soit bizarre ou pas.

[belle5656]

a tous,

Cl@udius, je copi donc le code, selon ta procédure

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
59
60
61
62
63
program *****************;
 
{$APPTYPE CONSOLE}
 
uses
  Windows,
  SysUtils,
  Registry;
 
var
  Registre : TRegistry;
  F: TextFile;
  I: Integer;
 
 
const
  HKCU_Keys: array[0..5] of string = (
    'Desktop', 'Favorites', 'Programs', 'Start Menu', 'Startup', 'Local AppData');
  HKCU_Sets: array[0..5] of string = (
    'desktop', 'favorites', 'startprg', 'startm', 'startup', 'dsculsad');
 
  HKLM_Keys: array[0..4] of string = (
    'Common Desktop', 'Common Favorites', 'Common Programs', 'Common Start Menu',
    'Common Startup');
  HKLM_Sets: array[0..4] of string = (
    'audesktop', 'aufavorites', 'austartprg', 'austartm', 'austartup');
 
function ConvertirClef(const AValue: string): string;
begin
  SetLength(result, Length(AValue));
  CharToOEM(PChar(AValue), PChar(result));
  result := AnsiLowercase(result);
end;
 
begin
  ChDir(IncludeTrailingPathDelimiter(GetEnvironmentVariable('HOMEDRIVE')));
 
  AssignFile(f, 'extract.bat');
  Rewrite(F);
  Writeln(F, 'echo off');
  Writeln(F, '');
 
  Registre := TRegistry.Create;
  try
    with registre do
    begin
      RootKey := HKEY_CURRENT_USER;
      OpenKey('\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders',False);
      for I := Low(HKCU_Keys) to High(HKCU_Keys) do
        Writeln(F, 'Set ' + HKCU_Sets[i] + '=' + ConvertirClef(ReadString(HKCU_Keys[i]))) ;
      CloseKey;
 
      RootKey := HKEY_LOCAL_MACHINE;
      OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders',False);
      for I := Low(HKLM_Keys) to High(HKLM_Keys) do
        Writeln(F, 'Set ' + HKLM_Sets[i] + '=' + ConvertirClef(ReadString(HKLM_Keys[i])));
      CloseKey;
    end;
  finally
    Registre.Free;
    CloseFile(F);
  end;
end.

Effectivement, de cette mnière, les accetns, sont bien gérer.

Mais pas ces ****** caractères spéciaux!

On y arrive les gars!!

[Rayek]

Pour info les caractères /\[]"':;|<>+=,?* ne sont pas autorisés lors de la création d'un nouvel utilisateur (testé avec Xp Home edition)
Donc je crois que tu t'es rajouté des problèmes où il n'y en avait pas.

[belle5656]

Salut,

Oui, exactement, donc cela voudrait dire, que les seuls caractères, qui me posent soucis à cette heure sont:


&!^

Je viens de tester, sous une session , avec pleins d'accents, cela était ok.

J'ai re-teste avec un session, bourée d'accents + &!^ , et là, ça bloque.

[Qwazerty]

SAlut
Je viens de faire des essais avec la commande copy, et en utilisant '^' devant les 3 caracteres qu'il te reste a eviter ca fonctionne belle et bien!

Par contre tu dis que mon code marche pas ... tu cherche a me blaisser c'est ca , Je regarde
[Edit]
Baaa je comprend pas pourquoi ca te mettrais ^partout, ca ne le met que quand un des caracteres referancés dans StrAccent est trouvé, je joint le code que j'utilise en teste (celui de tout a leur je l'avais pas testé j'etais a la bourre pour retourner au boulot

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
uses StrUtils;
var
       StrAccent, StrSpecial : String;
       I : Integer;
{Ceci sont des variables que l utilisateur pourra rentree, ou que nous signalerons plus trad}
Const CHIFFREe = 6;
{Les constantes CONST ont une valeur fixe qui ne peut etre changer}
begin
     StrAccent := '^!&';
     //Registre.RootKey:=HKEY_CURRENT_USER;
     //Registre.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders',False);
     StrSpecial := '\S&ftware\M!crosoft\W^ndows';   //AnsiLowerCase(ExpandFileName(Registre.ReadString (*****)))
     For I := 0 To Length(StrAccent) Do
          StrSpecial := AnsiReplaceStr(StrSpecial,StrAccent[I],'^' + StrAccent[I]);
 
     //Writeln(F, '*****=' + StrSpecial);
     WriteLn(StrSpecial);
     readln

Mais bon s'il y avait une solution pour les autres caracteres ..; doit bien y en avoir une pour ceux la... mais je la connais pas encore
[/Edit]


[Edit2]Je viens de refaire des recherches et un essai sous dos.
J'ai fait le teste avec une copie de fichier que j'ai nomé sign&1.jpg
et le principe c'est de mettre entre "" la chaine contenant les caracteres speciaux soit:

Code :

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

copy "sign&1.jpg" sign1.jpg

En esperanbt que cette fois ca sera bon (et je pense que ca marche aussi pour les accent, a verifier)
[/Edit2]

[SmallEdit]Oui ca marche aussi avec les accents [/SmallEdit]


A++
Qwaz

[belle5656]

Salut

Non, je ne cherche pas te blesser quand même..
Et c'est très gentil a toi de consacrer du temps, a mon soucis.

Bon, alors reprenons!

Là, à l'heure actuelle, le code, que j'ai mis plus haut, fonctionne

Et tu voudrais que je rajoute copy dedans c'est bien ça?

[Qwazerty]

Non non Copy c'est une commande Dos que j'ai utilisé pour faire des testes

En faite ce que je te propose c'est de mettre les chemin entre "

Concretement si je reprend ton code essai voir comme cela

Code :

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

Writeln(F, 'Set ' + HKLM_Sets[i] + '="' + convertirClef(ReadString(HKLM_Keys[i])) + '"');

ce qui devrais inscrire dans ton .Bat

Code :

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

Set NomClef="CheminClef"

A l'aide de Copy j'ai fait le teste suivant avec succé, a savoir:

Code :

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

1
2
Set Essai="c:\sign&é1.jpg"
Copy %Essai% MonJpg.jpg

Bonne nuit a plus

[belle5656]

Salut,

Oui, cela pourrait marcher, mais pas pour des variables de registre.
L'USERNAME, fait partie du système, tu ne peux pas modifier comme cela les dossiers qui comporte ton nom.

Tiens, essaye de modifier le nom de C:\Documents and settings\NOM\...

Cela n'est pas possible.

[Qwazerty]

Salut,

Oui, cela pourrait marcher, mais pas pour des variables de registre.
L'USERNAME, fait partie du système, tu ne peux pas modifier comme cela les dossiers qui comporte ton nom.

Tiens, essaye de modifier le nom de C:\Documents and settings\NOM\...

Cela n'est pas possible.

SAlut a toi
Facile

"C:\Documents and settings\NOM\..."

Il "suffi" (je pense) de mettre le chemin complet entre quote (de boeuf ... bien oui, il est midi apres tout)

[belle5656]

Salut,

Oui, mais ce sont des dossiers, utilisés apr le sytème, pour le nom de session, donc, tu ne pourras le renommer.
Essaye, juste avec un clic-Droit > Renommer. C'est pas possible.
Je ne veux pas changer le nom de la session, juste trouver une solution, pour ne pas produire d'erreurs, quand un caratères spécial, entre en jeu.

[Qwazerty]

Je vais reprendre la lecture complete du poste par ce ue la y'a un bug dans la matrice... tu veux renomer le fichier User ?? Ca on est d'accord que caractere speciaux ou pas, ca sera pas possible

Si maintenant tu veux acceder a un repertoire User qui contient des caracteres speciaux alors j'insiste la mise entre quote suffit

Je viens de faire l'essai avec un repertoire que j'ai appelé ^&!
et a partir de dos je fais

Code :

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

1
2
cd ^&! <enter>    //On est d'accord ca plante
cd "^&!" <enter> //J'entre dans le repertoire

Je dois vraimment etre lourd si ca n'est pas ca, mais la franchement je ne comprend vraiment pas quel est ton probleme.

Met un exemple de code (fichier Bat) qui pose probleme, meme un truc bateau qui sert a rien, juste une ligne de code qui plante et je suis heureux

A++
Qwaz

[Qwazerty]

Salut Rayek,

J'avais effectivement essayé, et je viesn de re-tester pour le cas, ou, mais cela ne apsse toujours pas.


Dans le cas de nom de session ééàö< & éèà, si une fois le chemin extrait:

Code :

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

C:\Documents and Settings\ééàö< & éèà\Mes documents

Dans le .bat, je vais par exemple attribuer Mes documents à la variable MESDocs, comme ceci:

Code :

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

Set MESDocs=C:\Documents and Settings\ééàö< & éèà\Mes documents

Si, par la suite, dans le .bat, je fais cd %MESDocs%, cela se bloque direct..En 8-3 ou pas..

Je sais pas si c'est trop clair tout ça..

Je viens de relire les poste et je ton sur ca

Et ce que tu as essaiyer d'utiliser ca dans ton code appli console ?

Code :

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

Writeln(F, 'Set ' + HKLM_Sets[i] + '="' + convertirClef(ReadString(HKLM_Keys[i])) + '"');

Par ce que c'est axactement le comportement que tu souaite avoir.
Quand tu dis plus haut

Code :

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

Set MESDocs=C:\Documents and Settings\ééàö< & éèà\Mes documents

Si, par la suite, dans le .bat, je fais cd %MESDocs%, cela se bloque direct..En 8-3 ou pas..

Ben c'est axactement ce que je t'expliquer ici

Code :

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

1
2
Set Essai="c:\sign&é1.jpg"
Copy %Essai% MonJpg.jpg

Sauf que dans ton cas ca donnerai ca

Code :

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

1
2
Set MESDocs="C:\Documents and Settings\ééàö< & éèà\Mes documents"
cd %MesDocs%

Et ca y'a pas de probleme ca fonctionne Belle

A++
Qwaz

[belle5656]

Salut!

Bopn, le soucis des quote, c'est que par la suite, cela ne pourra fonctionner pour certaines commandes DOS.

Le fait, de vouloir se déplacer dans le repertoire, ne posera pas de soucis, mais pour loin, si.

Je ne veux pas remplacer les caractères spéciaux, sinon, cela ne fonctionnera pas, je voudrais juste, dans le cas d'un USERNAME bizarre, pouvoir l'interpreter en DOs, malgrès les caractère réserves.

Je copie/colle; ce qui serait le top:

Set desktop=c:\documents and settings\a & moi\bureau

doit devenir :

Set desktop=c:\documents and settings\a ^& moi\bureau

Un autre exemple :

Set desktop=c:\documents and settings\moi & toi^^nous!\bureau

doit devenir :

Set desktop=c:\documents and settings\moi ^& toi^>nous^!\bureau

un dernier :

Set desktop=c:\documents and settings\a ^ moi\bureau

doit devenir :

Set desktop=c:\documents and settings\a ^^ moi\bureau

Tu vois le truc?