DPC - NETTOYEUR DE PROJET DELPHI

Commentaire de ACHPI32 le 08/09/2005 22:34:11

Pour info :

[HKEY_CLASSES_ROOT\DelphiProject\Shell\Nettoyer\command]
@="c:\\progra~1\\Delphi Project Cleaner\\dpc.exe exec"

        [executer dpc avec comme paramètre exec]

Voila la modification registre à effectuer dans le cas ou vous compilez vous même le source et que vous désirez le tester par exemple via un batch voir meme modifier votre BDR (le plus simple etant encore du supprimer la condition dans le source).

pour le projet NSIS :

/////////////// Debut de fichier //////////////////
!define PRODUCT_NAME "Delphi Project Cleaner"
!define PRODUCT_VERSION "0.1"
!define PRODUCT_PUBLISHER "Achpi 32"
!define PRODUCT_DIR_REGKEY "Software\Microsoft\Windows\CurrentVersion\App Paths\dpc.exe"
!define PRODUCT_UNINST_KEY "Software\Microsoft\Windows\CurrentVersion\Uninstall\${PRODUCT_NAME}"
!define PRODUCT_UNINST_ROOT_KEY "HKLM"

Name "${PRODUCT_NAME} ${PRODUCT_VERSION}"
OutFile "Install.exe"
LoadLanguageFile "${NSISDIR}\Contrib\Language files\French.nlf"
InstallDir "$PROGRAMFILES\Delphi Project Cleaner"
Icon "${NSISDIR}\Contrib\Graphics\Icons\modern-install.ico"
UninstallIcon "${NSISDIR}\Contrib\Graphics\Icons\modern-uninstall.ico"
InstallDirRegKey HKLM "${PRODUCT_DIR_REGKEY}" ""
DirText "Le programme va installer $(^Name) dans le dossier suivant.$\r$\n$\r$\nPour l'installer dans un dossier différent, cliquez sur Parcourir."
ShowInstDetails show
ShowUnInstDetails show

Section "SectionPrincipale" SEC01
  SetOutPath "$INSTDIR"
  SetOverwrite ifnewer
  File "dpc.exe"
  CreateDirectory "$SMPROGRAMS\Delphi Project Cleaner"
  File "extensions.ini"
SectionEnd

Section -AdditionalIcons
  CreateShortCut "$SMPROGRAMS\Delphi Project Cleaner\Uninstall.lnk" "$INSTDIR\uninst.exe"
SectionEnd

Section -Post
  WriteUninstaller "$INSTDIR\uninst.exe"
  WriteRegStr HKLM "${PRODUCT_DIR_REGKEY}" "" "$INSTDIR\dpc.exe"
  WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "DisplayName" "$(^Name)"
  WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "UninstallString" "$INSTDIR\uninst.exe"
  WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "DisplayIcon" "$INSTDIR\dpc.exe"
  WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "DisplayVersion" "${PRODUCT_VERSION}"
  WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "Publisher" "${PRODUCT_PUBLISHER}"

  WriteRegStr HKCR "DelphiProject\Shell\Nettoyer\command" "" "$INSTDIR\dpc.exe exec"

SectionEnd


Function un.onUninstSuccess
  HideWindow
  MessageBox MB_ICONINFORMATION|MB_OK "$(^Name) a été désinstallé avec succès de votre ordinateur."
FunctionEnd

Function un.onInit
  MessageBox MB_ICONQUESTION|MB_YESNO|MB_DEFBUTTON2 "Êtes-vous certains de vouloir désinstaller totalement $(^Name) et tous ses composants ?" IDYES +2
  Abort
FunctionEnd

Section Uninstall
  Delete "$INSTDIR\uninst.exe"
  Delete "$INSTDIR\extensions.ini"
  Delete "$INSTDIR\dpc.exe"

  Delete "$SMPROGRAMS\Delphi Project Cleaner\Uninstall.lnk"

  RMDir "$SMPROGRAMS\Delphi Project Cleaner"
  RMDir "$INSTDIR"

  DeleteRegKey ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}"
  DeleteRegKey HKLM "${PRODUCT_DIR_REGKEY}"
  DeleteRegKey HKCR "DelphiProject\Shell\Nettoyer"
  SetAutoClose true
SectionEnd
/////////////// Fin de fichier //////////////////

Voila vous avez tout ;-)

@pluche

Commentaire de ioda19 le 09/09/2005 18:48:40

Pas pire comme petit programme mais pourquoi a la place ne pas se faire un fichier BAT qui parcours tous les dossier de projet et qui supprime tout les fichiers qu'on veux bien supprimer. Mais j'avous que c'est bien pensé