Discussion :

[ddubois]

Lorsque j'execute cette source avec D7 :

http://www.efg2.com/Lab/Library/Delp...UtilsTrash.zip

j'ai le message d'erreur suivant :

[Erreur fatale] uniDUTTrashTest.pas(32): Fichier non trouvé : 'DUTUtilsTrash.dcu'

A lors que l'unité DUTUtilsTrash.pas est bien présent dans le répertoire de l'application !

D'ou vient le problème ?

Merci,

Denis

[Cl@udius]

Salut

Ouvre le fichier .dpr et modifie le chemin d'accès vers le fichier .pas en question.

@+ Claudius

[ddubois]

Si cela avait été aussi simple, je l'aurais fait depuis longtemps
L'unité est déclarée sans chemin, comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
{$R *.DFM}
 
uses
   DUTUtilsTrash;

[Just-Soft]

Salut;

J'ai pas vérifier le projet mais il me semble que tu essai de compiler un composant. si c'est le cas tu devrais ajouter le chemin dans les bibliothèques Delphi, pour cela tu fais Option --> Options d'environnement--> Bibliothèque --> Répertoire --> chemin de bibliothèque.

[Cl@udius]

Voici le contenu du .dpr

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
program DUTTrashTest;
 
uses
  Forms,
  uniDUTTrashTest in 'uniDUTTrashTest.pas' {Form1},
  DUTUtilsTrash in 'Source\DUT\DUTUtilsTrash.pas';
 
{$R *.RES}
 
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Réajuste le chemin d'accès de DUTUtilsTrash.pas comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DUTUtilsTrash in '.\DUTUtilsTrash.pas';

Tu vois c'était simple.

@+

[ddubois]

J'essai de lire le fichier INFO2 présent dans la corbeille de Windows XP
avec le code ci-dessous.
J'obtiens bien le handle du fichier mais la ligne
"if rbuff.data[0]<>#0 then"
boucle à l'infini car le buffer ne contient que des #0 !

Si quelqu'un à les spécifications de la structure du fichier INFO2 cela m'interresse pour récupérer les noms (d'origine) des fichiers contenu dans la corbeille.

Je recherche désespérément du code sur le net mais toutes les sources sont trop anciennes et ne fonctionnent pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
var rbinlist : tlistview;
fhandle := fileopen('C:\RECYCLER\' + SID + '\INFO2',fmOpenRead);
if fhandle >= 0 then
  begin
   tsize:=GetFileSize(fhandle,nil);
   setfilepointer(fhandle,20,nil,FILE_BEGIN);
   fread:=20;
 while(fread > 0) do begin //???
     fread := fread + fileread(fhandle,rbuff,280);
     if rbuff.data[0]<>#0 then //RENVOIE TOUJOURS #0 !!!
      begin
       aname:=pchar(@rbuff.data[0]); //aname = nom des fichiers de la Corbeille !
       //dname = nom du fichier renommé ('DC' + numéro + Extension d'origine) :
       dname:=pchar((ExtractFileDrive(aname)+'\Recycler\DC'+inttostr
                               (rbuff.recno)+extractfileext(aname)));
       fitem:=rbinlist.Items.add;  //Ajoute des items
       fitem.Caption:=ExtractFileName(aname); //Nom des fichiers
       fitem.SubItems.Add(ExtractFilePath(aname));
       fitem.SubItems.add(inttostr(rbuff.recno));
      end;
    end;
   fileclose(fhandle);
  end;

Merci pour votre aide,

M. Dubois