FAQ DelphiConsultez toutes les FAQ

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
@echo off  
rem Ajout d'entrées au menu Tools/Outils de Delphi  
rem REG.exe est natif sous XP  
 
rem Pour Delphi 2005 la clé se nomme  
rem Set DelphiToolsKey=HKEY_CURRENT_USER\Software\Borland\BDS\3.0\Transfer  
 
rem Pour Delphi 7 la clé se nomme  
Set DelphiToolsKey=HKEY_CURRENT_USER\Software\Borland\Delphi\7.0\Transfer  
rem Pour les versions inférieures remplacer 7.0 par le numéro de votre version :  
rem  6.0 ou 5.0 ou 4.0  
 
Set Count=  
 
rem Obtient le nombre actuel d'entrées du menu Tools  
rem Lit la clé 'Count' qui contient le nombre d'entrées du menu Tools (voir :REG QUERY )  
rem récupère la 3ème ligne renvoyée par le programme REG.exe, elle contient 'Count' (voir : Find)  
rem Delims découpe la ligne en 2 parties, ici '0x' est utilisé comme séparateur (voir :FOR /F "delims=0x")  
rem on récupère la seconde partie,%%J, dans une variable d'environnement numérique.(voir :"tokens=1,2")  
For /F "tokens=1,2 delims=0x" %%I in ('REG QUERY ?lphiToolsKey% /v Count^|find /I "Count"') do Set /A Count=0x%%J  
 
rem Count                        : Count+1  
rem Titre du menu                : "Title5"="Titre Test"  
rem Path complet de l'exécutable : "Path5"="PathTest"  
rem Répertoire de lancement      : "WorkingDir5"="c:\temp"  
rem Paramètre de l'exécutable    : "Params5"="$NAMEONLY()"  
 
rem Nombre courant de menu  
Set KeyCount=Count  
rem Titre du menu  
Set KeyTitre=Title  
rem Path complet de l'exécutable  
Set KeyPath=Path  
rem Répertoire de lancement  
Set KeyWorkingDir=WorkingDir  
rem Paramètre de l'exécutable  
Set KeyParams=Params  
 
rem Lit un fichier Ascii, chaque ligne est séparée par un retour chariot.  
rem Le format d'une ligne correspondant à : Titre Test@-@PathTest@-@c:\temp@-@$NAMEONLY()  
 
rem Parcourt le fichier ligne par ligne, le délimiteur est la suite de caractères @-@  
For /F "tokens=1,2,3,4 delims=@-@" %%A in (Tools.txt) do Set Titre=%%A&Set myPath=%%B&Set WorkingDir=%%C&Set Params=%%D& Call :ADD  
goto end  
 
:ADD  
rem Ajoute une nouvelle entrée au menu Tools  
 
REG ADD "?lphiToolsKey%" /v "%KeyTitre%%Count%" /t REG_SZ /d "%Titre%" /f  
REG ADD "?lphiToolsKey%" /v "%KeyPath%%Count%" /t REG_SZ /d "%myPath%" /f  
REG ADD "?lphiToolsKey%" /v "%KeyWorkingDir%%Count%" /t REG_SZ /d "%WorkingDir%" /f  
REG ADD "?lphiToolsKey%" /v "%KeyParams%%Count%" /t REG_SZ /d "%Params%" /f  
rem Incrémente Count, après l'insertion il débute à Zéro  
Set /A Count +=1  
 
REG ADD "?lphiToolsKey%" /v "%KeyCount%" /t REG_DWORD /d "%Count%" /f  
Goto :eof  
 
:end

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
@echo on  
rem Ajout de package Delphi  
rem REG.exe est natif sous XP  
 
rem Pour Delphi 2005 la clé se nomme  
rem Set KeyPackage=HKEY_CURRENT_USER\Software\Borland\BDS\3.0\Known Packages  
 
rem Pour Delphi 7 la clé se nomme  
Set DelphiPackagesKey=HKEY_CURRENT_USER\Software\Borland\Delphi\7.0\Known Packages  
rem Pour les versions inférieures remplacer 7.0 par le numéro de votre version :  
rem  6.0 ou 5.0 ou 4.0  
 
rem Lit un fichier Ascii, chaque ligne est séparée par un retour chariot.  
rem Le format d'une ligne correspondant à : Path du package*@Description du package  
rem Exemple :  
rem  C:\Delphi\unit\LMD70SE\LIB\D9\lmd70se_D9.BPL@*@LMD-Tools 7.0 Special Edition  
 
rem Parcourt le fichier ligne par ligne, le délimiteur est la suite de caractères @*@  
rem La variable %PckPath% contient le path complet du package  
rem La variable %PckDesc% contient la description du package  
For /F "tokens=1,2 delims=@*@" %%A in (Packages.txt) do Set PckPath=%%A&Set PckDesc=%%B& Call :ADD  
goto end  
 
:ADD  
rem Ajoute un nouveau package ou remplace la description si la clé ?lphiPackagesKey% existe déjà  
REG ADD "?lphiPackagesKey%" /v "%PckPath%" /t REG_SZ /d "%PckDesc%" /f  
Goto :eof  
 
:end