List All Network Drives

To show a list of all mapped network drives, use the GetNetworkDriveMappings function. Example usage:

GetNetworkDriveMappings(Memo1.Lines) ; 

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