Einzelnen Beitrag anzeigen

Benutzerbild von KodeZwerg
KodeZwerg

Registriert seit: 1. Feb 2018
3.685 Beiträge
 
Delphi 11 Alexandria
 
#3

AW: GetFinalPathNameByHandle bei Netzlaufwerken?

  Alt 19. Feb 2021, 23:05
Erziehlst du hiermit das gleiche Ergebnis?

Delphi-Quellcode:
function GetSymTarget(const SymLink: string): string;
var
  LinkHandle: THandle;
  TargetName: array [0..512] of Char;
begin
  Result := '';
  LinkHandle := CreateFile(PChar(SymLink), 0, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_FLAG_BACKUP_SEMANTICS, 0);
  Win32Check(LinkHandle <> INVALID_HANDLE_VALUE);
  try
    if GetFinalPathNameByHandle(LinkHandle, TargetName, 512, FILE_NAME_NORMALIZED) > 0 then
      Result := string(TargetName);
      else
      RaiseLastOSError;
  finally
    CloseHandle(LinkHandle);
  end;
end;
Gruß vom KodeZwerg
  Mit Zitat antworten Zitat