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

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

Delphi(Pascal) code

 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);

Delphi(Pascal) code

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;