Registriert seit: 1. Feb 2018
3.691 Beiträge
Delphi 11 Alexandria
|
AW: GetFinalPathNameByHandle bei Netzlaufwerken?
20. Feb 2021, 00: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;
|
|
Zitat
|