delphi资源网络映射

unctionMapNetworkDrive(consthandle:THandle;constuncPath:string):string;//returnsmappeddrive("z:")onsuccess//oruncPathonfailure/cancelvarcds:TConnectDlgStruct;netResource:TNetResource;beginresult:=uncPath;ZeroMemory(@netResource,SizeOf(TNetResource));