{映射网络驱动} procedure TForm1.Button10Click(Sender: TObject); var nw: TNetResource; code: integer; begin nw.dwType := RESOURCETYPE_DISK; nw.lpLocalName := PChar(Trim('J:')); if DirectoryExists(Trim('J:')) then Exit; nw.lpRemoteName := PChar(Trim('//192.168.0.2/软件区')); nw.lpProvider := nil; Code := WNetAddConnection2(nw, nil, nil, 0); if Code = NO_ERROR then ShowMessage('connected sucesfully'); end; {断开网络映射} procedure TForm1.Button11Click(Sender: TObject); begin WNetCancelConnection2(PChar(Trim('J:')), 0, True); end;