如何得到WINDOWS环境中映射的网络路径全名；

Question

如何得到WINDOWS环境中映射的网络路径全名？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
  if WNetConnectionDialog(handle,RESOURCETYPE_DISK) =  NO_ERROR then
    Button2.Enabled:= true;
end;procedure TForm1.Button2Click(Sender: TObject);
var
  nLen, nResult: Cardinal;
  aArray: array [0..MAX_PATH] of char;
begin
  //Delphi 5 测试通过！
  nLen:= SizeOf(aArray);
  nResult:= WNetGetConnection('I:', aArray, nLen);
  if nResult <> NO_ERROR then
    ShowMessage('Error code is: ' + IntToStr(nResult))
  else
    ShowMessage(aArray);
end;
//应该给我100分了吧？：），快给分！！！