Delphi-Quellcode:
type
// Papierkorb Infos
TSHQueryRBInfo = packed record
cbSize : LongWord;
i64Size : Int64;
i64NumItems : Int64;
end;
const
DLL_SHELL = 'shell32.dll';
...
...
function SHQueryRecycleBin(pszRootPath: PAnsiChar; var pSHQueryRBInfo: TSHQueryRBInfo): HRESULT; stdcall;
...
...
{--[SHQueryRecycleBin]---------------------------------------------------------}
function SHQueryRecycleBin; external DLL_SHELL name 'SHQueryRecycleBinA';
Wenn die Funktion fehlschlägt, dann gibts sie einen
COM Fehlerwert (
COM-defined error value, aus
msdn).
Man sieht aber, dass S_OK nicht zurückgegeben wird, wenn die 4 nachfolgenden Anweisungen nicht auskommentiert sind, also muss sie ja fehlschlagen.
Ich werde mal dein Code ausprobieren und schauen, ich sehe, dass du ein paar Dinge anders machst.
[EDIT]
Die kleinen Korrekturen haben geholfen. Ich hatte nicht den Pointer übergeben sondern den Typ. Jetzt funktioniert es, auch wenn ich weiterhin nicht verstehe, dass das intern anders zu scheinen scheint.
Ich danke dir Christian
, du warst sehr schnell mit einer Antwort, finde ich super
[/EDIT]