如何获得网络驱动全路径？

Question

我要用delphi写一个程序，可以获得网络驱动的全路径名。
比如：我映射了一个驱动：\\192.123.11.9\TFolder映射成u:\当我用delphi控件opendialog 访问该路径时，只能得到u:\XXX\XXX
但是无法获得：\\192.123.11.9\TFolder\XXX\XXX请问该如何实现？

Answer 1

下面的程序可以显示u:的路径procedure TForm1.Button1Click(Sender: TObject);
var
   RemoteString:array[0..254] of char;
   lpRemote : PChar;
   StringLen : Cardinal;
begin
  lpRemote := @RemoteString;
  StringLen := 255;
  WNetGetConnection(Pchar(ExtractFileDrive('u:')),lpRemote,StringLen);
  edit1.Text:=RemoteString;
end;