Extraction de clé de registre.

Question

Bonsoir,

Je suis sur un projet, qui extrait certaines clés de registre, pour les déposer dans un .bat, ou .txt.

Par exemple :

Registre.RootKey:=HKEY_CURRENT_USER;
     Registre.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders',False);


     Cle := AnsiLowerCase(ExpandFileName(Registre.ReadString ('desktop')));
           Writeln(T, 'desktop='  + Cle);

Alors, dans cet exemple, je vais obtenir dans  mon .txt (T) ce qui suit:

desktop=c:\documents and settings\****\bureau"

Ok, cela me sert, pas de problèmes.

Seulement, a partir de la clé ouverte ci-dessus, il me faudrait obtenir, juste en dessous:

desktop2=Bureau

Toujours,  à partir de la clé ouverte (compatibilté d'O.S).

Voilà, ce que je souhaiterais faire, et je bloque par rapport a ça...

Comment, afficher ce qui se trouve après  / , sans noter le chemin?

Merci pour l'aide éventuelle apportée.

ARothstein1 · Answer

Re,

Désolé, pour les balises code, qui ne s'affichent pas..

Nero` · Answer

Bonsoir 

j'ai peut etre une fonction qui peut t'interesser.

function droiteDroite(substr: string; s: string): string;
{============================================================================}
{ fonction qui renvoie la sous chaine de caractère situè à droite de la sous }
{ chaine substr située la plus à droite                                      }
{ ex: si substr = '\' et S= 'truc	r\essai.exe droiteDroite renvoie essai.exe}
{============================================================================}
begin
  Repeat
    S:=droite(substr,s);
  until pos(substr,s)=0;
  result:=S;
end;

dans ton cas sa te reverais 'bureau'

voila.

bonne prog ...

Nero` · Answer

oops j'avais oublier !

il te faut aussi cette fonction avec :

function droite(substr: string; s: string): string;
begin
  if pos(substr,s)=0 then result:='' else
    result:=copy(s, pos(substr, s)+length(substr), length(s)-pos(substr, s)+length(substr));
end;

bonne prog ...

japee · Answer

Salut.

Tout simplement :

Desktop := ExtractFileName(Cle);

Bonne prog'

ARothstein1 · Answer

Bonjour à tous,

Merci pour vos réponses, je vois cela dès ce soir.

Desktop := ExtractFileName(Cle);

Effectivement, cela est jouable, mais est-ce que ce serais compatible avec la méthode de [auteur/NERO/187816.aspx Nero`]
si je souhaite garder un, ou plusieurs delimitateur?

Exemple (qui sera dans le .txt):

Desktop=NomUser\Bureau

Là, je en pense pas, à moins qu'il y ai une chose a rajouter...

Bon, je regarde àa ce soir, et vous tiens au courant.

@ ce soir.

ARothstein1 · Answer

Bonjour à tous,


Désolé pour ce delai d'attente, mais je n'ai pu avoir le temps de tester, cause pb de Disque dur.

Je teste tout ceci dès que possible.

Merci.

Extraction de clé de registre.

6 réponses

Votre réponse

Discussions similaires