操作INI文件。需要密码问题。

Question

 Filename:=ExtractFilePath('\\192.168.1.80\公开资料共享区!!!!!\ERP资料存放区\Delphi测试\')+'myini.ini';
  Myinifile:=TInifile.Create(filename);
  Edit1.Text:= myinifile.readstring('程序参数','用户名称','缺省的用户名称');
  Edit2.Text:= Inttostr(myinifile.readinteger('程序参数','已运行时间',0));
  Checkbox1.Checked:= myinifile.readbool('程序参数','是否正式用户',False);这个是创建ini文件到公司共享上。但是这个共享是要密码才能进去的。。怎么样把密码写入到里面去。

Answer 1

localname:本地磁盘号   如：Y:   Z:   
remotename:   共享路径   如   :\\server\share 
username   :   用户名 
password:   密码 
function   connectserver(localname:   string;   remotename:   string;   username:   string;   password:   string):   boolean; 
var 
    NetSource:   TNetResource;   Errinfo:   longint; 
begin 
    with   NetSource   do   begin 
        dwType   :=   RESOURCETYPE_ANY;   //RESOURCETYPE_DISK 
        lpLocalName   :=   pchar(localname); 
                  //   将远程资源映射到此驱动器 
        lpRemoteName   :=   pchar(remotename); 
                //   远程网络资   源 
        lpProvider   :=   ' '; 
                //   必须赋值,如为空则使用lpRemoteName   的值。 
    end; 
    ErrInfo   :=   WnetAddConnection2(NetSource,   pchar(password),   pchar(username),   0); 
    result   :=   (ErrInfo   =   NO_ERROR); 
end;可以参考下这个。
http://topic.csdn.net/t/20060216/11/4559010.html