appload

[zebulon_]

Bonjour,

 

est-ce que quelqu'un sait où est enregistré la liste des applications lancées au démarrage et comment on peut la modifier ?

 

Amicalement

Vincent

 

 

[Edité le 16/6/2008 par zebulon_]

[Patrick_35]

Salut

 

C'est dans les registres.

 

Pour le premier par exemple

HKEY_USERS\S-1-5-21-1xxxxx\Software\Autodesk\AutoCAD\R16.2\ACAD-xxxx\Profiles\<<Patrick_35>>\Dialogs\Appload\Startup\\1Startup

 

@+

 

[Edité le 16/6/2008 par Patrick_35]

[zebulon_]

Bonjour,

 

Je m'en veux. J'ai cherché dans les registres le nom d'un de mes lisp définis dans appload et je ne l'ai pas trouvé... Forcément, dans regedit, seul la recherche sur les clés est cochée par défaut. Si j'avais coché "Données", la recherche aurait été plus fructueuse. :red:

 

Merci

 

Amicalement

Vincent

 

[Patrick_35]

C'est des choses qui arrivent ;)

 

J'ai continué de chercher et voici une version vlisp

 

(defun c:test(/ chemin nb i)
 (setq chemin (strcat 	"HKEY_CURRENT_USER\\"
		(vlax-product-key)
		"\\Profiles\\"
		(vla-get-activeprofile
		  (vla-get-profiles
		    (vla-get-preferences
		      (vlax-get-acad-object)
		    )
		  )
		)
		"\\Dialogs\\Appload\\Startup"
      )
 )
 (and (setq nb (vl-registry-read chemin "NumStartup"))
   (progn
     (setq i 1)
     (repeat (atoi nb)
(princ (strcat "\n" (vl-registry-read chemin (strcat (itoa i) "Startup"))))
(setq i (1+ i))
     )
   )
 )
 (princ)
)

 

@+

[zebulon_]

et pour ajouter une entrée j'ai essayé ceci

 

;; rajouter une entrée
 (if (not (setq nb (vl-registry-read chemin "NumStartup")))
   (setq nb "0")
 )
 (setq nb (itoa (1+ (atoi nb))))
 (vl-registry-write chemin (strcat nb "Startup") "C:\\Base de donnees\\fer\\Reacteur_cote.lsp")
 (vl-registry-write chemin "NumStartup" nb)

 

ça met à jour le registre, mais pas la liste dans autocad :casstet:

 

Il doit manquer une étape

 

Amicalement

Vincent

 

[Patrick_35]

Re

 

Tu ajoutes avec appload un lisp. Il apparaît dans la liste.

Tu ouvres un autre Autocad (pas un autre dessin)

Avec appload, la liste est complète.

Tu ajoutes un lisp. Il apparaît aussi.

Maintenant, tu bascules vers le premier Autocad et là, tu ne le retrouve plus le second lisp dans la liste :casstet:

Un oeil dans les registres me montre bien que le lisp a été ajouté.

Ma conclusion : Appload doit lire les registres lors du lancement d'autocad, se mettre à jour quand on utilise la commande, mais rien quand un autre autocad est ouvert, ni avec une écriture dans les registres.

Il y a peut-être une astuce que je ne connais pas.

 

@+

[zebulon_]

Re,

 

Bon, je ne suis pas le seul à être :casstet: ça me rassure...

 

Merci

 

Amicalement

Vincent

[ElpanovEvgeniy]

Salut!

 

J'utilise pour l'installation la ligne de commande *.cmd ou *.com

Regardez le fichier - l'installation du programme à l'autochargement à toutes les versions autocad...

 

instal.cmd

SETLOCAL ENABLEEXTENSIONS ENABLEDELAYEDEXPANSION

taskkill /f /im AutoCAD.exe

reg add "HKCU\Software\KovchegCAD" /V path /D "%CD%" /F

for /F "usebackq delims==" %%A  IN (`reg query HKCU\Software\Autodesk\AutoCAD\ `) DO (
SET str=%%A 
IF "!str:~0,46!" EQU "HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\\R" for /F "usebackq delims==" %%B  IN (`reg query %%A `) DO (
SET str=%%B
IF  "!str:~51,5!" EQU "ACAD-" for /F "usebackq delims==" %%C  IN (`reg query %%B\Profiles `) DO (
SET str=%%C
set mn=
set nn=0
IF not "!str:~64,9!"=="%%C" IF  "!str:~64,9!"=="Profiles\" (
set pp="%%C\Dialogs\Appload\Startup"
for /F "usebackq skip=4 tokens=1-4*" %%i IN (`reg query !pp! /V NumStartup `) do set nn=%%k
for /F "usebackq skip=4 tokens=1-4*" %%i IN (`reg query !pp! `) DO if "%%j"=="%CD%\odg.VLX" set mn="%%j"
for /F "usebackq skip=4 tokens=1-2*" %%i IN (`reg query !pp! `) DO if "%%~nxk"=="odg.VLX" reg delete "%%C\Dialogs\Appload\Startup" /V %%i /F
if "!nn!"=="" set nn=0
if "!nn!"=="0" (
reg add !pp! /V NumStartup /D 1 /F
reg add !pp! /V 1Startup /D "%CD%\odg.VLX" /F
) else (
set /A nn=!nn! + 1
reg add !pp! /V NumStartup /D "!nn!" /F
reg add !pp! /V !nn!Startup /D "%CD%\odg.VLX" /F
)
)
IF not "!str:~65,9!"=="%%C" IF  "!str:~65,9!"=="Profiles\" (
set pp="%%C\Dialogs\Appload\Startup"
for /F "usebackq skip=4 tokens=1-4*" %%i IN (`reg query !pp! /V NumStartup `) do set nn=%%k
for /F "usebackq skip=4 tokens=1-4*" %%i IN (`reg query !pp! `) DO if "%%j"=="%CD%\odg.VLX" set mn="%%k"
for /F "usebackq skip=4 tokens=1-2*" %%i IN (`reg query !pp! `) DO if "%%~nxk"=="odg.VLX" reg delete "%%C\Dialogs\Appload\Startup" /V %%i /F
if "!nn!"=="" set nn=0
if "!nn!"=="0" (
reg add !pp! /V NumStartup /D 1 /F
reg add !pp! /V 1Startup /D "%CD%\odg.VLX" /F
) else (
set /A nn=!nn! + 1
reg add !pp! /V NumStartup /D "!nn!" /F
reg add !pp! /V !nn!Startup /D "%CD%\odg.VLX" /F
)
)
)
)
)
goto :eof

ENDLOCAL