快急疯了!如何通过密码和用户名登录局域网电脑并copy文件?(50分)

  • 主题发起人 主题发起人 winner104
  • 开始时间 开始时间
W

winner104

Unregistered / Unconfirmed
GUEST, unregistred user!
delphi程序怎样实现通过用户名和密码登录其他电脑 进行copy
我不要函数 我要实例 我不需要网络映射
请各位高手 给予帮助
 
自己顶
补充一个问题 很简单啊
如何delphi中函数为整型 怎样用if else
判断这个函数
 
再补充个问题
如何检测与局域网电脑是否连接成功
 
来看看疯了没有。
 
[:)]
给你点提示吧,百度搜索以下函数
WNetEnumResource
NetShareEnum
NetShareEnum
 
分数太少,问题太多,懒得回答。
 
现学现卖,昨天我刚问过的问题(Savetofile出错的问题)
用NET USE命令实现
procedure UseShare(ShareName, User, Pwd:string);
var
str:string;
stinfo:TStartUpInfo;
proinfo:TProcessInformation;
proresult:boolean;
begin
str:='net use "'+ShareName+'"';
if not SameText(User,'') then
str:=str+'net use "'+ShareName+'"'+' /user:'+User+' '+Pwd;
FillChar(stinfo, sizeof(TStartupInfo), 0);
proresult:=CreateProcess(nil,pchar(str),nil,nil,false,
DETACHED_PROCESS or CREATE_NO_WINDOW,nil,nil,stinfo,proinfo);
if proresult then
WaitForSingleObject(proinfo.hProcess,INFINITE);
end;
 
检测与局网是否联通在运行里随便输入一个局网里的IP地址看是否能联上不就行了?
 
后退
顶部