怎样传递局域网密码做参数 (200分)

我在一部机器（98）往另一部机器（98）备份数据时，需要提供密码，我希望可以在程序里
写好目标路径，密码，作为参数，这样程序就可以完全无人工干预的情况下自动备份
请给出源代码

gz

var NRW: TNetResource;
begin
with NRW do
begin
dwType:= RESOURCETYPE_ANY;
lpLocalName:=PChar(LocalDriver); //映射的网络驱动器，取自己最高盘符后面一个就可以了。
lpRemoteName:=PChar(ShareName); //共享文件夹名，例如 //hello/Share
lpProvider:='';
end;
result := WNetAddConnection2(NRW, PChar(Password), PChar(UserName), CONNECT_UPDATE_PROFILE);
end;

接受答案了.