怎样才可以使网络上和服务器的连接在程序退出后自动断开？(10分)

一个查询程序，查询的内容在网络上的两台服务器上，我用odbc建了两个数据源。
这样odbc就自动映射了两个盘符 指向服务器上的相应的文件夹，每次开机后他就自动
建立了这个连接。 我想问一下，能不能在我的查询程序使用的时候才建立这种连接，
当我的查询程序退出后，这种连接就自动断掉？

我做了两个函数能构建立与断开网络上的映射盘符，代码如下（
其中用到的API与TNetResource类在Windows单元中有函数原型）：
function Mapping(const ARemoteName, AUserName, APassword, ALocalName : String): Boolean;
var
NetResource : TNetResource;
begin
NetResource.dwType := RESOURCETYPE_DISK;
NetResource.lpLocalName := Pchar(ALocalName);
NetResource.lpRemoteName := Pchar(ARemoteName);
NetResource.lpProvider := '';

if WnetAddConnection2(NetResource, Pchar(APassword),
Pchar(AUserName), CONNECT_UPDATE_PROFILE)
= NO_ERROR then
result := True
else
result := False;
end;

function DisMapping(const ALocalName : String): Boolean;
begin
if WNetCancelConnection2(Pchar(ALocalName), CONNECT_UPDATE_PROFILE, True)
= NO_ERROR then
result := True
else result := False;
end;

接受答案了.