Ersatz für Max_Path

[Go2EITS]

Guten Morgen DP!

Ich benötige für die Umsetzung eines Codes einen Ersatz für Max_Path. In der Hilfe von DP7 konnte ich nicht finden; ich denke, es ist aus einer alten Delphi Version...
Für DWord muss Types in die Uses.

Hier der Code:

Delphi-Quellcode:

function GetNetworkDriveMappings(SList:TStrings):Integer;
var
I:Char;
ThePath:string;
MaxNetPathLen:DWord;
begin
SList.Clear;
MaxNetPathLen:=MAX_PATH;
SetLength(ThePath,MAX_PATH);
for I := 'A' to 'Z' do
if WNetGetConnection(
PChar(''+I+':'),PChar(ThePath),
MaxNetPathLen)=NO_ERROR then
SList.Add(I+': '+ThePath);
Result := SList.Count;
end;

Wie kann ich den Max_path ersetzen?
Beste Grüße
Go2EITS