建立虛擬驅動器，可以通過如下程序完成： 
procedure TForm1.Button1Click(Sender: TObject);
var
    NRW: TNetResource;
begin
    with NRW do
        begin
            dwType := RESOURCETYPE_ANY;
            lpLocalName := 'X:'; //驅動器號
            lpRemoteName := '\\MyServer\MyDirectory';
            lpProvider := '';
        end;
    WNetAddConnection2(NRW, 'MyPassword', 'MyUserName', CONNECT_UPDATE_PROFILE);
end;