SHQueryRecycleBin: mysteriöses Verhalten

[Christian Seehase]

Moin Marcel,

wie hast Du die Funktion den importiert?
Was gibt die Funktion zurück wenn sie fehlschlägt?

[EDIT]
Ich hab's mal so gemacht (und funktioniert):

Delphi-Quellcode:

type
  PSHQUERYBININFO = ^SHQUERYBININFO;
  SHQUERYBININFO = packed record
    cbSize      : DWORD;
    i64Size     : Int64;
    i64NumItems : Int64;
  end;

function SHQueryRecycleBin(const pszRootPath : PChar;const pSHQueryRBInfo : PSHQUERYBININFO) : HRESULT; stdcall; external 'shell32.dll' name 'SHQueryRecycleBinA';

procedure TForm1.btn1Click(Sender: TObject);

var
  rbInfo : SHQUERYBININFO;
  dwRes  : DWORD;

begin
  rbInfo.cbSize := SizeOf(rbInfo);
  dwRes := SHQueryRecycleBin('',@rbInfo);
  ShowMessage(IntToStr(rbInfo.cbSize)+#13#10+
              IntToStr(rbInfo.i64Size)+#13#10+
              IntToStr(rbInfo.i64NumItems)+#13#10+
              IntToStr(dwRes));
end;

[/EDIT]