var
NetSource : TNetResource;
dwResult:DWORD;
begin
g_bFlag:=True;
with NetSource do
begin
dwType := RESOURCETYPE_ANY;
lpLocalName :='';
lpRemoteName:='\\192.168.0.216\零件图片';
lpProvider :='';
end;
dwResult:=WnetAddConnection2(NetSource,'Rs@2015','administrator',CONNECT_UPDATE_PROFILE);
if (dwResult<>0)and (dwResult<>1219) then
begin
ShowMessage('连接服务器失败!'+inttostr(dwResult));
g_bFlag:=False;
end;
self.Image1.Picture.LoadFromFile('\\192.168.0.216\零件图片\0AV09B0154.JPG');
(* else
begin
if winexec('net use p: \\192.168.0.216\e$ Rs@2015 /user:administrator',SW_HIDE)>31 then
Sleep (3000)
else
begin
application.MessageBox('登录失败.','提示信息',48);
exit;
end;
// I:/零件图片/
//从服务里拷贝文件到本地D盘
if copyfile(PChar('p:\wenjianjia\2.txt'),PChar('d:\1.txt'),false) then
application.MessageBox('文件复制成功.','提示信息',64)
else
application.MessageBox('文件复制失败.','提示信息',48);
//直接打开共享文件夹
// ShellExecute(0, 'open', pchar('p:\wenjianjia\'), '', '', SW_SHOW);
// ShowMessage('OK!');
end; *)
if g_bFlag then
WNetCancelConnection2('\\192.168.0.216\零件图片',CONNECT_UPDATE_PROFILE,True);
NetSource : TNetResource;
dwResult:DWORD;
begin
g_bFlag:=True;
with NetSource do
begin
dwType := RESOURCETYPE_ANY;
lpLocalName :='';
lpRemoteName:='\\192.168.0.216\零件图片';
lpProvider :='';
end;
dwResult:=WnetAddConnection2(NetSource,'Rs@2015','administrator',CONNECT_UPDATE_PROFILE);
if (dwResult<>0)and (dwResult<>1219) then
begin
ShowMessage('连接服务器失败!'+inttostr(dwResult));
g_bFlag:=False;
end;
self.Image1.Picture.LoadFromFile('\\192.168.0.216\零件图片\0AV09B0154.JPG');
(* else
begin
if winexec('net use p: \\192.168.0.216\e$ Rs@2015 /user:administrator',SW_HIDE)>31 then
Sleep (3000)
else
begin
application.MessageBox('登录失败.','提示信息',48);
exit;
end;
// I:/零件图片/
//从服务里拷贝文件到本地D盘
if copyfile(PChar('p:\wenjianjia\2.txt'),PChar('d:\1.txt'),false) then
application.MessageBox('文件复制成功.','提示信息',64)
else
application.MessageBox('文件复制失败.','提示信息',48);
//直接打开共享文件夹
// ShellExecute(0, 'open', pchar('p:\wenjianjia\'), '', '', SW_SHOW);
// ShowMessage('OK!');
end; *)
if g_bFlag then
WNetCancelConnection2('\\192.168.0.216\零件图片',CONNECT_UPDATE_PROFILE,True);