Delphi-PRAXiS - Delphi MapUNCPathToDrivePath

Ich habe mir eine Funktion geschrieben, die einen UNC-Pfad (beginnt mit "\\") in den zugehörigen Drive-Path (startet z.B. mit "C:\") konvertiert:

Delphi-Quellcode:

			function MapUNCPathToDrivePath(UNCPath: string): string;

var

  DrivePath: array[0..MAX_PATH] of Char;

  BufferSize: DWORD;

  Error: DWORD;

begin

  BufferSize := SizeOf(DrivePath);

  Error := Winapi.Windows.WNetGetUniversalName(PChar(UNCPath), UNIVERSAL_NAME_INFO_LEVEL, @DrivePath[0], BufferSize);

  if Error = NO_ERROR then

  begin

    Result := DrivePath;

    CodeSite.Send('MapUNCPathToDrivePath: NO_ERROR');

  end

  else

  begin

    Result := '';

    CodeSite.Send('MapUNCPathToDrivePath: ERROR', Error);

  end;

end;

Auf meinem Test-System ist "\\Mac\Home" äquivalent zu "Y:\". Beides wird im Windows File Explorer äquivalent angezeigt.

Aber diese Funktion gibt einen Leerstring und den Fehlercode 1200 zurück:

Delphi-Quellcode:

MapUNCPathToDrivePath('\\Mac\Home');