DELPHI PROJECT CLEANNER (DEPOC) OUTILS POUR NETTOYER VOS PROJETS AVANT DE LES POSTER SUR CS.

Commentaire de Napster le 12/06/2006 00:38:21

Salut fOxi ,
votre Source est tres utile , tres interessante , mais d"apres jeter un coup d'oeil dans la source j'ai trouver sa
{$WARN SYMBOL_PLATFORM OFF}
j'ai mal compris ce que ségnifie ou de sa Etulité elle fait rien dans la source  ????
A part sa votre source elle n'est pas du tt commenter .
imagine toi qu'un debutant jete un coup d'oeil dans une source san commentaire , que ce quil va apprendre dans ce cas la !
se fait du bien d'eclairer ou commenter la source .
A part sa votre source et génial .
@+

Commentaire de f0xi le 12/06/2006 01:56:29 administrateur CS

@napster :

Les commentaires voir "explication finale" sur cette page ... ils viendront par la suite.

pour la directive de compilo, elle permet de desactiver les messages d'alertes quand on utilise des methodes propre a des plateforme (windows en l'occurance ici)

ensuite, le but ici n'etait pas de fournir des techniques mais bel et bien un outil, c'est pour ça que j'ai pas encore commenté les sources.

Commentaire de cirec le 12/06/2006 10:06:20 administrateur CS

Salut,

Alors moi, "tu me connais maintenant F0xi :-)", j'ai un petit souci avec le code :

je lance l'application je sélectionne le répertoire et la si je décide de fermer le prog j'ai un message "d'insulte" :

Violation d'accès à l'adresse 0040337c dans le module Depoc.exe lecture de l'adresse 61762061

bon pour le reste je vais d'abord faire d'autres testes ...

@+
Cirec

Commentaire de ni69 le 12/06/2006 13:08:55

PS : pour ce dernier élément, je peux t'aider si tu le désires ;)

Commentaire de cirec le 12/06/2006 14:13:37 administrateur CS

Bon alors, je commence par le début :

j'ai trouvé ce qui clochait (enfin chez moi) c'est l'unité DirBrowser.pas qui ne va pas
donc tout simplement j'ai ajouté dans les uses l’unité FileCtrl puis modifier comme suit :
procedure TForm1.BtnBrowseClick(Sender: TObject);
begin
  {if OpenDirectory.Execute(ProjectDir) then begin
     ProjectDir := OpenDirectory.PathName;}
  If SelectDirectory('Selectionnez un dossier', '', projectdir, [sdShowEdit , sdNewUI], Self) Then Begin
     ProjectDir := IncludeTrailingBackSlash(ProjectDir);
     EdtProjectDir.Text := ProjectDir;
     InitiateScan;
  end;
end;

Ensuite ta procédure pour trouver les icônes et un peut lourde non ?
Et surtout l'aide de Delphi dit ceci à propos de ExtractIconEx :
You must destroy all icons extracted by ExtractIconEx by calling the DestroyIcon function.

Alors voici je que je te propose :
Tu ajoutes cette fonction :

function GetAssociatedIcons(const AExtension: string; ASmall: Boolean): HIcon;
var
  Info: TSHFileInfo;
  Flags: Cardinal;
begin
  if ASmall then
    Flags := SHGFI_ICON or SHGFI_SMALLICON or SHGFI_USEFILEATTRIBUTES
  else
    Flags := SHGFI_ICON or SHGFI_LARGEICON or SHGFI_USEFILEATTRIBUTES;

  SHGetFileInfo(PChar(AExtension), FILE_ATTRIBUTE_NORMAL, Info, SizeOf(TSHFileInfo), Flags);
  Result := Info.hIcon;
end;

Et tu modifies comme ceci dans la procedure TForm1.CheckListBox1DrawItem:

//       GetAssociatedIcon(ProjectDir+S,nil,@pIcF);
       pIcF := GetAssociatedIcons(ProjectDir+S, True);
       if pIcF <> INVALID_HANDLE_VALUE then begin
          IcF := TIcon.Create;
          IcF.Handle := pIcF;
          draw(rect.Left, rect.Top, IcF);
          IcF.Free;
       end;

un peut plus loin dans la même procédure tu fais appel à une procedure que tu as créer
mais tu aurais pu faire ceci :

//       Rect2 := SRect(rect.Left+18,Rect.Top,Rect.Left+HeaderControl1.Sections[0].Width-18,Rect.Bottom);
       Rect2 := Classes.Rect(rect.Left+18,Rect.Top,Rect.Left+HeaderControl1.Sections[0].Width-18,Rect.Bottom);



Et du coup le prog a subit un SlimFast de plus de 100 kilos ;-)

Ah oui tu as oublié un BadExt #.~dsk#
mais à ce propos ne vaudrait il pas mieux utiliser un mask de type .~* par exemple
ce qui du coup prendrait aussi en compte tous les fichiers qui sont dans  \__History

Voilà j'attend comme tout le monde la mise à jour avec zip

très bien, ça nous change des .bat lol

@+
Cirec

Commentaire de cirec le 12/06/2006 18:54:30 administrateur CS

Génial,
tout fonctionne très bien maintenant.

Bravo pour la rapidité des modifications

le code est bien comme toujours ...
mais pour la note j'attend encore un peut,(la mise à jour Zip);-)

comme ça je pourrai mettre un 10/10

voici un code qui nous serat à tous très utile
@+
Cirec

Commentaire de John Dogget le 13/06/2006 00:27:49

MSDN me parait un bon début pour les API ;)

Commentaire de Napster le 13/06/2006 13:16:22

Merci  ..........@++

Commentaire de f0xi le 13/06/2006 21:03:23 administrateur CS

^^ hurrycane ... si tu veux on peu travailler conjointement sur le projet ...
si tu as deja des sources fait les moi parvenir en mp.

Commentaire de f0xi le 14/06/2006 04:16:46 administrateur CS

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.