Hallo Zusammen,
hey meine Frage war ja noch warm und schon habe ich die Antwort.
ExpandUNCFileName habe ich gesucht.
So funkt es einwandfrei.
Delphi-Quellcode:
{-----------------------------------------------------}
{}function GetRemoteMachineName(UNCPath:String):string;
{-----------------------------------------------------}
var i:integer;
begin
result := '';
UNCPath := ExpandUNCFileName(UNCPath);
for i:=3 to length(UNCPath) do
begin
if copy(UNCPath,i,1)='\' then
begin
result := copy(UNCPath,3,i-3);
break;
end;{if}
end;
end;{GetRemoteMachineName}
Ein Herzliches Dankeschön an alle.
Gruß Kostas