GetNetworkDriveMappings(Memo1.Lines) ;
function GetNetworkDriveMappings (SList: TStrings): integer;Delphi tips navigator:
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;
» Get IE Favorites
« TColor to Hex & Hex to TColor
