Discussion :

[castorcharly]

Bonjour,

Je cherche à lire les paramètres de la corbeille, c'est à dire les espaces réservés par partition ou média complet.
J'ai bien trouvé et exploité les deux API SHQueryRecycleBin et SHEmptyRecycleBin, mais pas moyen de trouver dans
les ressources ce qui me permettrais de trouver le moyen de lire ces propriétés.

Si vous avez une idée, je suis preneur,

merci

[Jipété]

Bonjour,

-- je n'ai rien testé, me suis contenté de lire (et pour cause ! Je suis sous Linux, ) --

une première lecture intéressante, mais peut-être un peu vieillotte :
https://gist.github.com/maul-esel/1808118

une deuxième, en purebasic donc ça doit pouvoir s'adapter facilement
https://www.purebasic.fr/french/viewtopic.php?p=210871

et peut-être que ça pourrait être la solution à ce problème vieux de 12 ans posté dans un sous-forum de dvlp :
https://www.developpez.net/forums/d8...in-seven-64-a/

Bon code et bon dimanche,

[castorcharly]

Bonjour Jipété,

Merci pour ta recherche, mais malheureusement ce que tu as trouvé ne concerne que les deux API que j'ai trouvé sur la corbeille,
l'interrogation du nombre de fichier et le volume de ces fichiers via SHQueryRecycleBin et
le vidage de la corbeille via ShEmptyRecyclebin.

Moi, ce que je cherche, ce sont les propriétés de la corbeille:
- La liste des disques pourvu d'une corbeille et la place allouée, pour chaque disque, à chaque corbeille.

Mon objectif étant de savoir, si la place allouée est suffisante pour recevoir un fichier de volume conséquent.
Car si ce n'est pas le cas, lors de l'envoi de fichier vers la corbeille, si on affiche le dialog de suppression de fichier,
le système propose de supprimer le fichier définitivement sans possibilité de UNDO, soit d'annuler l'opération.
Et ces deux solutions ne me conviennent pas.
Je veux savoir avant le lancement en corbeille, si l'espace alloué est suffisant pour contenir les fichiers envoyés dans cette corbeille.

Merci

[SergioMaster]

Bonjour,

je serai parti sur des WMI mais même avec Wmi Delphi Code Creator je ne vois pas vraiment ce que je cherche
ou alors par les registres pour obtenir le nom

Sinon avec IOUtils et le nom il est relativement facile d'obtenir la taille
code FMX

Code :

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

1
2
3
if TDirectory.Exists('C:\$RECYCLE.BIN') then
    label1.Text:= TFile.GetSize('C:\$RECYCLE.BIN').ToString
    else label1.Text:='non accessible';

j'ai essayé ça pour obtenir le path

Code :

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

1
2
3
4
5
6
7
8
9
10
function GetMyPoubelle : string;
 var
  r: Bool;
  path: array[0..Max_Path] of Char;
 begin
  r := ShGetSpecialFolderPath(0, path, CSIDL_BITBUCKET, False) ;
  if not r then
    raise Exception.Create('Could not find recyclebin folder location.') ;
  Result := Path;
 end;

mais sans résultat : exception levée

[ShaiLeTroll]

Mon D10 n'a pas encore GetSize et la méthode par FindFirst renvoie 0 pour ces dossiers

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\BitBucket\Volumeon trouve la taille maximale mais j'ignore comment associé le GUID à au disque

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
25
26
27
28
29
30
31
procedure TForm.ButtonClick(Sender: TObject);
 
  function GetFileSize(const APath: string): Int64;
  var
    Sr : TSearchRec;
  Begin
    if FindFirst(APath, faAnyFile, Sr) =  0 then
    begin
      try
        LARGE_INTEGER(Result).HighPart := Sr.FindData.nFileSizeHigh; // 0 !
        LARGE_INTEGER(Result).LowPart := Sr.FindData.nFileSizeLow; // 0 !
      finally
        FindClose(Sr);
      end
    end
    else
      Result := 0;
  end;
 
var
  C: Char;
  Info: SHQUERYRBINFO;
begin
  for C := 'A' to 'Z' do
  begin
    ZeroMemory(@Info, SizeOf(Info));
    Info.cbSize := SizeOf(Info);
    if SHQueryRecycleBin(PWideChar(C + ':\'), @Info) = s_OK then
      Memo.Lines.Add(Format('%s:\ - Taille occupée : %do pour %d éléments sur taille maximale %d', [C, Info.i64Size, Info.i64NumItems, GetFileSize(Format('%s:\$RECYCLE.BIN', [C]))]));
  end;
end;

[ShaiLeTroll]

GUID trouvé !

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
procedure TForm.ButtonClick(Sender: TObject);
 
  function GetBucketSize(C: Char): Int64;
  var
    VolumeName: array[0..MAX_PATH] of Char;
  Begin
    Result := 0;
    // Bug de déclaration  GetVolumeNameForVolumeMountPointW en LPCSTR au lieu de LPCWSTR
    if GetVolumeNameForVolumeMountPoint(PAnsiChar(PByte(C + ':\')), @VolumeName[0], MAX_PATH) then
    begin
      with TRegistry.Create(KEY_READ) do
      try
        if OpenKey('Software\Microsoft\Windows\CurrentVersion\Explorer\BitBucket\Volume', False) then
        begin
          if OpenKey(StringReplace(StringReplace(VolumeName, '\\?\Volume', '', []), '\', '', []), False) then
          begin
            Result := ReadInteger('MaxCapacity');
            Result := Result * 1024 * 1024;
          end
          else
            Result := -2;
        end
        else
          Result := -1;
      finally
        Free();
      end;
    end
    else
      RaiseLastOSError();
  end;
 
var
  C: Char;
  Info: SHQUERYRBINFO;
begin
  for C := 'A' to 'Z' do
  begin
    ZeroMemory(@Info, SizeOf(Info));
    Info.cbSize := SizeOf(Info);
    if SHQueryRecycleBin(PWideChar(C + ':\'), @Info) = s_OK then
      Memo.Lines.Add(Format('%s:\ - Taille occupée : %do pour %d éléments sur taille maximale %do', [C, Info.i64Size, Info.i64NumItems, GetBucketSize(C)]));
  end;
end;