Forum: Win32/Win64 API (native code)
Delphi
by Mazel,
12. Jun 2008
Moin,
ok, das könnte möglich sein. :wink: Ich werde es als const lassen, scheint wohl, wie du sagts, in einigen Fällen doch praktischer zu sein. Ich bin jedenfalls jetzt froh, dass das Problem gelöst ist.
Danke nochmals und gute Nacht und schönen Freitag ;).
Forum: Win32/Win64 API (native code)
Delphi
by Mazel,
12. Jun 2008
Ich habe cbSize nicht initialisiert, richtig. Warum geht es dann aber, wenn ich ein Paar der 4 Anweisungen auskommentiere?
Forum: Win32/Win64 API (native code)
Delphi
by Mazel,
12. Jun 2008
type
// Papierkorb Infos
TSHQueryRBInfo = packed record
cbSize : LongWord;
i64Size : Int64;
i64NumItems : Int64;
end;
const
DLL_SHELL = 'shell32.dll';
Forum: Win32/Win64 API (native code)
Delphi
by Mazel,
12. Jun 2008
Guten Abend,
ich habe bei der oben genannten Funktion ein komisches Verhalten festgestellt, dass ich mir nicht erklären kann, zunächst einmal der Quellcode:
if SHQueryRecycleBin('', RecycleBinInfo) = S_OK then
begin
Result.RecycleItems := IntToStr(RecycleBinInfo.i64NumItems);
Result.RecycleSize := GetStringSize(RecycleBinInfo.i64Size, 0);
end
else
begin