‘壹’ delphi编程 登录局域网共享计算机 打开共享文件
比较简单的是建个网络映射，映射为到本地机的分区，就直接可以像拷本地文件一样操作了。一般来说只需映射一次直接将密码、用户输入即可。
‘贰’ 在delphi中如何访问共享目录
NET USE [devicename | *] [\\computername\sharename[\volume] [password | *]]
[/USER:[domainname\]username]
[/USER:[dotted domain name\]username]
[/USER:[username@dotted domain name]
[[/DELETE] | [/PERSISTENT:{YES | NO}]]
NET USE {devicename | *} [password | *] /HOME
NET USE [/PERSISTENT:{YES | NO}]
上面可以用指定的用户和密码连接共享目录，它肯定是调用了windows的某个API函数(即用指定的用户和密码连接共享目录)，应该有一个API(或者几个API联用)可以实现这个功能！
‘叁’ DELPHI共享文件夹权限
采用操作系统文件权限的方式本身就有缺陷，所以才有数据库系统，由数据库系统来统一协调数据库文件的共享访问。即使是使用数据库系统，当一个用户用独占方式访问某个表时，其他用户也是不能访问的。共享访问、冲突的处理是很复杂的事情。
另，win2003服务器中文件夹的权限由服务器决定，终端是不能更改的。
‘肆’ delphi如何取CefCookie
static void Main(string[] args)
{
try {
WebClient MyWebClient = new WebClient();
MyWebClient.Credentials = CredentialCache.DefaultCredentials;//获取或设置用于向Internet资源的请求进行身份验证的网络凭据
Byte[] pageData = MyWebClient.DownloadData(“”); //从指定网站下载数据
string pageHtml = Encoding.Default.GetString(pageData); //如果获取网站页面采用的是GB2312，则使用这句
//string pageHtml = Encoding.UTF8.GetString(pageData); //如果获取网站页面采用的是UTF-8，则使用这句
Console.WriteLine(pageHtml);//在控制台输入获取的内容
using (StreamWriter sw = new StreamWriter("c:\\test\\ouput.html"))//将获取的内容写入文本
{
sw.Write(pageHtml);
}
Console.ReadLine(); //让控制台暂停,否则一闪而过了
}
catch(WebException webEx) {
Console.WriteLine(webEx.Message.ToString());
}
}
‘伍’ 用delphi访问局域网sql server2000 服务器
你的连接字符串需要动态处理，因为在你机器上，你连接可以用127.0.0.1，但是其他机器上就必须输入你的IP地址以及用户名和密码进行访问
你连接的时候，ip要用你的ip，用户名和密码是SqlServer的用户名和密码，一般用户名是sa，密码你要是没设就是空
二楼的，个人版一样支持ip访问
‘陆’ delphi能不能将本机共享文件夹、磁盘设为不共享
uses Registry
var
MyReg:TRegistry;
//以下为注册表修改
MyReg:=TRegistry.Create ;
MyReg.RootKey :=HKEY_LOCAL_MACHINE;MyReg.OpenKey ('\SOFTWARE\Microsoft\Windows\CurrentVersion\Network\LanMan\C',True)
begin
MyReg.WriteInteger('Flags',258); //共享为完全共享
MyReg.WriteInteger('Type',0);
MyReg.WriteString('Path','C:\');//共享
MyReg.WriteString('Remark','');
MyReg.CloseKey ;
end;
见笑了
***************
DELPHI 关于WIN9X下共享文件夹问题
作者：房客（Jason）
经常看到有人问起如何在程序中增加和删除共享文件夹，于是就尽可能把相关信息写出来，更深入答案还请大虾共同讨论。
共享/删除共享可以直接调用标准的Win32API函数 NetShareAdd()和NetShareDel()。
建立共享目录函数：Function NetShareAdd(servername:PChar; level:SmallInt;buf:Pointer; buf_len:SmallInt):SmallInt;far;stdcall;external 'svrapi.dll';
撤销共享目录函数：Function NetShareDel(servername:PChar;buf:Pointer; reserved:SmallInt):SmallInt;far;stdcall;external 'svrapi.dll';
这里再提供两个关于连接共享目录/撤销共享目录函数WnetAddConnection和WnetCancelConnection。
关于映射网络驱动器的方法如下：
WNetAddConnection(%共享目录名%,%口令%,'X:'); //映射X盘
WNetCancelConnection('X:',True); //撤销X盘映射
关于建立/撤消共享的函数返回变量说明如下：
const NETNAME_LEN = 13;PASSWORD_LEN = 9;SHI50F_RDONLY = $0001;
SHI50F_FULL = $0002;SHI50F_DEPENDSON = $0003;
SHI50F_ACCESSMASK = $0003;SHI50F_PERSIST = $0100;
SHI50F_SYSTEM = $0200;STYPE_DISKTREE = 0;
STYPE_PRINTQ = 1;STYPE_DEVICE = 2;
STYPE_IPC = 3;NERR_Success = 0;
NERR_BASE = 2100; //常量说明
NERR_UnKnownDevDir=(NERR_BASE+16);NERR_UnknownServer=(NERR_BASE+3);
NERR_ServerNotStarted=(NERR_BASE+14);NERR_RedirectedPath=(NERR_BASE+17);
NERR_DuplicateShare=(NERR_BASE+18);NERR_BufTooSmalll=(NERR_BASE+23); //NetShareAdd返回错误
NERR_NetNotStarted = (NERR_BASE+2);
NERR_ServerNotStarted = (NERR_BASE+14);
NERR_NetNameNotFound = (NERR_BASE+210);
NERR_ShareNotFound = (NERR_BASE+292); //NetShareDel返回错误
SHARE_INFO_50=Record
netname:array [0..NETNAME_LEN-1] of Char;
sharetype:ShortInt;
flags:SmallInt;
remark:PChar;
path:PChar;
rw_password:array [0..PASSWORD_LEN-1] of Char;
ro_password:array [0..PASSWORD_LEN-1] of Char;
End; //以上为类型定义
再有就是关于Window9X共享目录口令问题（其实屏保口令也是同样保存的）,口令（原始为十六进制字符）在注册表位置：HKEY_LOCAL_MACHINE\SOFTWARE\micorsoft\windows\current_version\network\lanman\共享文件夹名\Parm1enc和Parm2enc两位置，Parm1enc为对应的是完全共享密码，Parm2enc对应的是只读共享密码。字符与数列(前八个数是35,9A,4D,A6,53,A9,D4,6A)作异或运算即得密码的二进制ASCII码，转换后可得到密码。
另外提供一个比较幼稚但可行的方案（在注册表做动作）：
var reg : TRegistry; name : String; //s是在网上邻居里的文件夹名
begin
name := 'DirName'；//建立一个只读,无密码共享目录
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Network\LanMan\'+name,true );
reg.WriteInteger( 'Flags', 401 ) ; //权限:401代表为访问，258为完全访问，259为密码访问
reg.WriteInteger( 'Parm1enc', 0 ) ; //参数2,放置完全访问密码,已加密
reg.WriteInteger( 'Parm2enc', 0 ) ; //参数2,放置只读访问密码,已加密
reg.WriteString( 'Path', 'C:\MYDIR' ) ; //放置要共享的目录的绝对路径
reg.WriteString( 'Remark', '' ) ;
reg.WriteInteger( 'Type', 0 ) ;
end;
这样的缺点就是要重启系统，可以ExitWindowsEx( EWX_FORCE and EWX_SHUTDOWN , 0 )来重启。
此外你还可以使用控件File Sharing 95/98，该控件包含了几个方便的function：ShareResource、DeleteShare、GetShareInfo、SetShareInfo、GetNetErrorString等。
附：关于NetUserAdd等相关API
WNetCloseEnum 结束网络资源列表
WNetConnectionDialog 开始网络连接对话框
WNetDisconnectDialog 断开网络对话框
WNetEnumResource 继续列表网络资源
WNetGetConnection 获取网络资源名
WNetGetLastError 返回网络函数最近错误
WNetGetUser 获取当前网络用户名
WNetOpenEnum 列出网络资源
‘柒’ 如何用Delphi操作共享文件夹
不需要建立本地映射，而且你这个映射NR.lpLocalName := 'C:';也是错的，显然你的电脑B本身就有C:了。
你直接用CopyFile/CopyFileEx、SHFileOperation都可以，这些都支持网络路径。
‘捌’ delphi 中如何实现对象之间的数据共享
record的不就是吗。与C++中完全相同
type
CDataType = (dtFullData,DtA,DtB,DtC);
type
TDataRecord = record
case i : CDataType of
dtFullData :
(FullData : array[0..1023]of char);
DtA:
(
Ahead : array[0..100]of char;
Atext : array[0..99]of char;
);
DtB:
(
Bhead : array[0..200]of char;
BLen : integer;
Btext : array[0..199]of char;
);
DtC:
(
Chead : array[0..300]of char;
CCmd : char;
Ctext :array[0..299]of char;
) ;
end;
// dtFullData与DtA,DtB,DtC,共享同一个内存区域,各值由定义的类型长度自动填充,
// 所分配的内存为最大结构体的大小
‘玖’ 如何用Delphi提取网络共享文件夹中的文件
你可以像访问本机一样访问\\IP地址或计算机名\共享名称路径名，提取到本地电脑其实就是一个文件复制过程用 FILECOPY 函数就可以了，如有一台IP地址是192.168.0.2的机器共享了一个文件夹叫"数据"，那么就可以访问 \\192.168.0.2\数据\文件名 就可以了
‘拾’ 用delphi开发的程序（带access的数据库），怎么实现在多台电脑上同时操作
Access是那种文件类的数据库，不适合网络操作。
如果一定要这么做的话，只能通过网络完全共享的方式，在不同电脑上访问这个共享的access的mdb文件来实现。
强烈建议不要这么做，比如，文件被意外或者有意删除怎么办？
建议用网络数据库sqlserver，迁移的工作量也不是很大。