Freigegebene Festplatten eines PCs ermitteln

[MicMic]

Ich kürze das mal hier ab. Ich glaube diese Zeile macht mir Probleme:

Zitat von Christian Seehase:

Code:

  Inc(LsiWork); // Da der Typ jetzt dem der Struktur entspricht reicht inc

Ich hatte auch mal ähnliches benutzt, wo die Variable mit SizeOf() hochgezählt wurde. Dies ging ebenfalls nicht aber ein Test mit der hälfte (größe div 2) ging dann wiederum. Aber man kann ja nicht (ohne Plan) irgendwas machen
Ich bekomme jedenfalls immer eine "c0000005 ACCESS_VIOLATION" Meldung angezeigt. Im Debugger wird eine Zeile markiert:

Code:

function _PWCharLen(P: PWideChar): Integer;
{$IFNDEF LEGACY_PWCHARLEN}
begin
  Result := 0;
  if P <> nil then
    while P[Result] <> #0 do   // <- diese hier wird markiert (ist aus der system.pas)
      Inc(Result);
end;

Hier beim schreiben... ich habe den Code gerade mal unter Win32 ausgeführt. Ist mir gerade so eingefallen. Da geht es. Zurück auf Win64 und schon ist der Fehler wieder da. Weiß jemand, wie ich das anpasse, damit es bei 32 sowie auch bei 64 Bit geht?