Delphi project cleanner (depoc) outils pour nettoyer vos projets avant de les poster sur cs.

Soyez le premier à donner votre avis sur cette source.

Vue 10 841 fois - Téléchargée 1 452 fois


Description

( v1.0.0.2 - 12/06/2006 )
( v1.0.0.1 - 12/06/2006 )
( v1.0.0.0 - 10/06/2006 )

Salut a tous!

aller on passe au niveau superieur par rapport aux batchs habituel ^^.

voici DePoC.
Cet outils permet de nettoyer vos projets avant des les zipper (DePoC integrerat bientot la possibilitée de créer l'archive zip en question).

MISE A JOURS :
Lancez tout simplement l'installation de la nouvelle version et definissez le repertoire de l'ancienne version comme repertoire d'installation.
vous pouvez egalement desinstaller avant l'ancienne version puis réinstaller la nouvelle.

AJOUT DE DEPOC DANS LE MENU CONTEXTUEL DE L'EXPLORATEUR :
- DePoC s'integre au menu contextuel des dossiers dans l'explorateur de fichiers de windows.
Cette options serat supprimée quand vous desinstallerez DePoC.

AJOUT DE DEPOC DANS LES OUTILS DE DELPHI :
- DePoC peut s'integrer au menu outils de l'IDE Delphi et vous pouvez egalement lui passer une Macro en parametre.
pour ce faire selectionnez dans Delphi :
Menu outils > Configurer les outils > Ajouter.
Dans titre indiquez "Delphi Project Cleanner"
Cliquez ensuite sur "Parcourir" et selectionnez Depoc.exe dans le repertoire d'installation (logiquement c:\programs files\Depoc\depoc.exe)
Enfin, cliquez sur "Macro", selectionnez "$EXENAME" puis cliquez sur inserer.
pour finir, cliquez "OK".

dés qu'un projet serat ouvert dans delphi, vous n'aurez plus qu'a acceder a Depoc via le menu outils ou la touche de raccourcis que vous lui aurez affecté et Depoc s'ouvriras automatiquement sur le repertoire du projet en cours.

CONTENUS DU ZIP :
Dans le zip se trouve le code source de depoc et egalement le fichier script inno setup pour l'installation.
Vous trouverez egalement une autre archive zip contenant l'installation executable de Depoc.

LEGENDE DE LA LISTE DES FICHIERS DE DEPOC :
- Sont marqués en bleu les fichiers dont l'extention est : .dpk .dpr .pas .res .dcr .dfm .bdsproj
- Sont marqués en rouge les fichiers dont l'extention est : .dcu .exe .dof .cfg .~* .ddp .dsk .map

SELECTION DES FICHIERS DANS LA LISTE :
- Sont selectionnés automatiquement les fichiers marqués en rouge et egalement les fichiers "Thumbs.db".
- Vous serez avertis par un message si vous selectionnez un fichier marqué en bleu.

PRECAUTIONS :
- Attention, les fichiers selectionnés et supprimés seront irrecuperable, faites attention aux fichiers que vous selectionnez.
- On vous demanderat de confirmer la suppression des fichiers selectionnés.

TAILLE DES FICHIERS, INFORMATIONS :
- La taille des fichiers est indiqués dans la liste avec des couleurs (vert et rouge) pour indiqué si il sont consideré comme lourd ou non.
- un label vous indique le nombres de fichiers total et la taille totale (en octet) de votre projet.

NETTOYAGE DE PLUSIEURS PROJETS D'UN COUPS :
Au fur et a mesure que l'on programme, il n'est pas rare d'avoir des dizaines voir centaines de projets qui occupe de l'espace disque inutile.
Depoc vous permettras de nettoyer tout ces projets en une seule fois et pas seulement, vous pouvez utiliser Depoc pour nettoyer vos disques dur tout simplement (attention tout de meme a ne pas supprimer n'importe quoi).
J'espere pouvoir mettre au point trés vite le systeme d'archive, en ajoutant une options permettant de zipper les projets dans des archives respectives afin que vous puissiez gagner en place sur vos disques.

INSTALLATION ET DESINSTALLATION DE DEPOC :
Grace a InnoSetup qui ne devrait plus etre a presenter, vous etes assuré que l'installation et la desinstallation serat propre.
L'installation est disponible dans le zip "Depoc-setup.zip".

FICHIERS SOURCES :
About.pas :: unité de la fiche FrmAbout
Main.pas :: unité principale
DepocTools.pas :: unité regroupant plusieurs methodes utile au fonctionnement de Depoc
install\depoc.iss:: script inno setup pour créer le fichier d'installation, voir innosetup sur : http://www.jrsoftware.org/isinfo.php
install\CeCill.txt:: License CeCill GNU/GPL v2

Conclusion :


Manque l'aide.

Codes Sources

Ajouter un commentaire Commentaires
Messages postés
8
Date d'inscription
dimanche 5 avril 2009
Statut
Membre
Dernière intervention
11 juin 2010

slt je viens de lire le code mais je n'arrive toujours pas à voir la partie du code qui montre l'ajout de menu au menu contextuel du shell .si quelqu'un pourrait m'aider cela me ferai plaisir
merci et bne journée à vous.
Messages postés
991
Date d'inscription
samedi 25 octobre 2003
Statut
Membre
Dernière intervention
29 août 2013
7
petit question bete: je ne trouve pas ou on affecte le raccourci clavier d'un outil !!!
quelqu'un peut-il m'aider?
Messages postés
400
Date d'inscription
samedi 6 août 2005
Statut
Membre
Dernière intervention
11 février 2016
1
salut,

Désolé pour le retard fOxi (je suis tres occupé en ce moment). J'ai regardé ton source dans les grandes lignes : c'est du tout bon. Je te félicite c'est du bon boulot.

PS : C'est une des rares sources qui est et restera sur mon HDD ^^.

A+
Messages postés
4202
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
13 juin 2020
37
merci jd mais j'ai deja tout ce qu'il faut en fonctions pour ce genre de choses...

de plus les tailles ne s'affiche pas en block, mais bel est bien avec le separateur de millier.

et je doute que beaucoup ont des projets depassant la dizaine de Mo.

mais bon, rien que pour toi, si cela te fait tellement plaisir, j'integrerais cela dedans.
Messages postés
384
Date d'inscription
vendredi 18 juin 2004
Statut
Membre
Dernière intervention
7 mai 2009

Re :)

Petit contribution de ma part pour permettre d'afficher la taille du dossier en ko/mo/go.

D'abord on rajoute les constantes au début :
"const
UnKiloOctet=1024;
UnMegaOctet=1048576;
UnGigaOctet=1073741824;"

Ensuite la fonction de conversion :
"function CorrigerTaille(TailleEnOctets:int64):string;
begin
if TailleEnOctets>=UnGigaOctet then
begin
CorrigerTaille:=FloatToStrF(TailleEnOctets/UnGigaOctet,ffGeneral,3,20)+' Go';
exit;
end;
if TailleEnOctets>=UnMegaOctet then
begin
CorrigerTaille:=FloatToStrF(TailleEnOctets/UnMegaOctet,ffGeneral,3,20)+' Mo';
exit;
end;
if TailleEnOctets>=UnKiloOctet then
begin
CorrigerTaille:=FloatToStrF(TailleEnOctets/UnKiloOctet,ffGeneral,3,20)+' Ko';
exit;
end;
CorrigerTaille:=FloatToStrF(TailleEnOctets,ffGeneral,3,20)+' octets';
end;"

Plus sympa à lire que "16546416461 octets" par exemple ;-)
Afficher les 23 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.