begin process at 2012 02 11 11:56:58
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Fichier / Disque

 > DPC - NETTOYEUR DE PROJET DELPHI

DPC - NETTOYEUR DE PROJET DELPHI


 Information sur la source

Note :
10 / 10 - par 2 personnes
10,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Fichier / Disque Classé sous :nettoyeur, projet Niveau :Débutant Date de création :08/09/2005 Date de mise à jour :08/09/2005 22:14:37 Vu / téléchargé :6 023 / 486

Auteur : ACHPI32

Ecrire un message privé
Commentaire sur cette source (4)
Ajouter un commentaire et/ou une note

 Description

Ce programme permet de nettoyer un projet delphi en effectuant un click droit sur l'icone d'un fichier ".dpr"... L'idée est toute bête.

j'ai décidé de faire ce programme d'une part afin de ne pas laisser de fichiers inutiles mais aussi de ne pas supprimer de fichiers par inadvertance (quand on est un clickeur fou...).

L'archive contient bien entendu le source mais egalement un fichier d'installation (réalisé avec nsis) permettant de mettre en situation rapidement l'application (et de la désinstaller facilement également).

Notes:
-Les extensions a supprimer sont listées dans le fichier extensions.ini au format texte donc facilement modifiable.
-Il est "impossible" d'executer directement le fichier. Il faut selectionner un fichier ".dpr"
-Si le fichier "extensions.ini" est absent l'application ne se lancera pas.

     !!!!!!!!!!!!!!!!!!!!!!!!!!!! Renommer install.___ en install.exe !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!


     Certains trouverons sans doute ce logiciel inutile... Mais j'espère tout de même, qu'il rendra service.




 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !
  • Install.___Télécharger ce fichier [Réservé aux membres club]278 582 octets
  •   SRC
    • dpc.dprTélécharger ce fichier [Réservé aux membres club]Voir ce fichier233 octets
    • dpc.resTélécharger ce fichier [Réservé aux membres club]876 octets
    • Unit1.dfmTélécharger ce fichier [Réservé aux membres club]1 103 octets
    • Unit1.pasTélécharger ce fichier [Réservé aux membres club]Voir ce fichier2 228 octets

Télécharger le zip


 Historique

08 septembre 2005 22:14:37 :
-Ajout zip (echec du 1er envoi)

 Sources du même auteur

Source avec Zip Source avec une capture BUBBLES : SPRITES TBITMAP
Source avec Zip IP INTERNET AVEC UN MODEM/ROUTEUR (INDY & SNMP)
Source avec Zip Source avec une capture MSN ID (OBTENIR VOTRE ID MSN À PARTIR DE VOTRE ADRESSE HOTMA...
Source avec Zip FONCTION LONGPATHPARAMSTR
Source avec Zip Source avec une capture PATHTRUNCATE

 Sources de la même categorie

Source avec Zip Source avec une capture RECHERCHE PAR EXTENSION AVEC JVCL par Weirdy
Source avec Zip Source avec une capture FICHIER DUPLIQUÉ AVEC UNE TABLE DE HACHAGE par jerome1875
Source avec Zip Source avec une capture WII SD CARD NAVIGATOR 1.0.0.5 ALPHA par skyangel21
Source avec Zip Source avec une capture SIZECONVERTER : UNE MINI LIBRAIRIE DE CONVERSION DE TAILLE par LaDentDeLait
Source avec Zip Source avec une capture ENREGISTREMENT DES DONNÉES DANS L'EXE par yanb

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture NETTOYEUR AUTOMATIQUE DE VOS DISQUES par diglas
Source avec Zip Source avec une capture DELPHI PROJECT CLEANNER (DEPOC) OUTILS POUR NETTOYER VOS PRO... par f0xi
Source avec Zip Source avec une capture NETTOYEUR DE FICHIERS par elguevel

Commentaires et avis

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 Delphiprog le 09/09/2005 18:15:09 administrateur CS

Pour ceux qui, comme moi, ont installé les outils GExperts, il est plus simple d'utiliser la commande "Clean project". De plus, cette fonctionnalité de GExperts prend aussi en compte les projets Delphi pour .Net.

Néanmoins, je trouve ton initiative intéressante.

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é

Commentaire de ACHPI32 le 10/09/2005 00:11:54

Pour commencer, merci à vous deux pour avoir apporté une appréciation à cette publication. Car de toute façon, bonne ou mauvaise le but est de progresser.

Dans le cas présent j'en conclus que le concept est intéressant. Et à mon avis ce qui vous à seduit ce n'est pas le programme en lui meme mais son intégration au sein du système.

Dans mon objectif premier et plus particulièrement cette publication (et sans doute celles qui suiveront), mon attention se situe sur le fait d'apporter un "produit fini" stable et fonctionnel. (D'ou l'ajout dans mon premier commentaire d'un source NSIS)

D'autres projets sont en cours mais encore en test.

Bonne programmation ;-)

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

REFERENDUM : Projets en commun ??? [ par fabiin ] Oye oye a tout les delphiens...Petite question a l'ensemble des visiteurs :Un systeme de projet en commum va être mis en place sur le site...Êtes-vous inclure un programme (xxxx.pas) dans un projet [ par mipou ] Je possède un code (xxxxx.pas) que je voudraisinclure dans un nouveau projet.C'est un programme : PROGRAM XXXXX et non pasune unité : Unit XXXXX.Comme Plutôt bizarre [ par JoeyAstor ] En ce bo jour de vendredi, je continuais mon projet delphi, où une mini fenetre joue le role de menu qui fait apparaitre les fenetres correspondantes Transparence d'une form [ par Programmeur1988 ] Bonjour A Vous ! j'aimeais Savoir Comment Faire Pour Que La Form De Delphi Soit Transparent Lorsque Nous Metton Le Projet En Run ! Example Je Fait un TwebBouffeur de ram [ par Cyrille2 ] Bonjour, dans le cadre d'un projet web, je souhaite avoir un navigateur integré dans mon projet... Cependant, le TWebbrowser classique a tendance a fa Recherche programmeurs en DELPHI pour un grand projet ! [ par MASTERADGE ] Bonjour a tous et joyeux Noel !Je poste ce message car en fait je suis a la recherche de programmeurs DELPHI et C++ bénévoles ayant un peu de temps li Editeur de niveau dans le cadre d'un projet informatique [ par bawoilz ] Dans le cadre de mon ecole d'informatique, je dois creer un editeur de niveau entre autre. Cependant, je n'ai aucune que de maigre connaissance en Del From unit diferente [ par mickeydisn ] voila dans mon projet . j'ai une gross form avec beaucoup de bouton .. le probleme ses que j'ai pas mal de code a fournir dans mon projet ... je voudr export de delphi à excel [ par FeuilleMorte ] Voilà j'utilisais le code suivant et tout se passait comme sur des roulette mais un jour le message suivant est apparu : "Le projet toto.exe a provoqu Problème avec Excel (ole) [ par FeuilleMorte ] J'ai toujours mon probleme lorsque je veux acceder a excel via Delphi. J'ai bien ajouter les uses : comobj, variants et même excel 97 ou Excel 2000Mon


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,404 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales