学习别人的网络共享目录的设定
--------------------------------------------------------------------------------(【问题】 在局域网环境中共享目录或者共享打印机等是常见的操作，许多日常工作都是依赖于此的。如果能通过程序完成以往人工繁琐的操作，无疑会方便用户的使用。 【原理】
在Windows95/97/98中有一个svrapi.dll动态库，基本上所有的设定网络资源共享的函数都存在于此，我们只要调用这里的函数就能完成我们希望的功能。但是要注意的是这个动态库仅仅在Windows95/97/98中有效，在NT下为了保证其安全性，是通过更复杂的函数调用完成这些操作的，所以这里的方法不适于NT环境。 【步骤】
我们将用到的几个函数封装起来以方便使用，此外根据svrapi.h，补充了一些常量申明，使得调用更加直观。 unit Sharing; { Sharing 98 v2.0 freeware}
interface
uses Sysutils ,ShareErr {其中包含一些意外错误的代码和其他的小功能};
Type
Share_Info50 = Packed Record
shi50_netname : Array[0..12] of Char; {13}
shi50_type : Byte;
shi50_flags : Word;
shi50_re : PChar;
shi50_path : PChar;
shi50_rw_password : Array[0..8] of Char; {9}
shi50_ro_password : Array[0..8] of Char;
End;
Const
NERR_Success = 0; { Success – 没有发生错误 }
NERR_BASE = 2100; {资源类型常量}
STYPE_DISKTREE = 0; {共享目录}
STYPE_PRINTQ = 1; {共享打印机} {属性标记常量}
SHI50F_RDONLY = 1; { 只读共享}
SHI50F_FULL = 2; { 开放所有权限的共享}
SHI50F_DEPENDSON = (SHI50F_RDONLY or SHI50F_FULL); {根据用户口令访问} {下面两者的关系是OR， 例如: flags := (SHI50F_RDONLY OR SHI50F_SYSTEM
) }
SHI50F_PERSIST = 256; {系统启动时建立}
SHI50F_SYSTEM = 512; {共享不可见}
ShareResource: 在指定机器上共享指定资源.
参数:
ServerName= 需要共享资源的机器的名字，如果是 Nil 则表示本机
FilePath = 需要共享的资源的目录. (字母都应大写);
NetName = 共享资源的网络名称（别名），最长12个字母
Re = 备注，可以为空
ShareType = 资源类别，参见常量设定.
Flags = 共享标记，参见常量设定.
RWPass = 读/写权限的口令，可以为空
ROPass = 只读权限的口令，可以为空 例如: ShareResource(Nil, 'C:\TEMP', 'TESTING', 'My Comment', STYPE_DIS
KTREE, SHI50F_RDONLY, '','MYPASS');
这里需要将本机的 C:\TEMP共享为'TESTING'，备注是 'My Comment'。
访问权限是只读（Read Only）, 只读权限口令是 'MYPASS'. 没有全权访问口令 function ShareResource(ServerName : PChar; FilePath : PChar;
NetName : PChar; Re : PChar;
ShareType : Byte; Flags : Word;
RWPass : PChar; ROPass : PChar ) : Integer;
{ DeleteShare: 在指定机器上删除指定的已经共享的资源.
参数:
ServerName=需要共享资源的机器的名字，如果是 Nil 则表示本机.
NetName =共享资源的网络名称（别名），最长12个字母 例如: DeleteShare(Nil, 'TESTING');
这个操作将本机上的名为'TESTING'的共享资源取消共享
function DeleteShare(ServerName : PChar; NetName : PChar) : Integer; { GetShareInfo: 取得指定机器上指定的共享资源的信息
参数:
ServerName =共享资源存在的机器的名字，如果是 Nil 则表示本机；
NetName =共享资源的网络名称（别名），最长12个字母；
ShareStruct = Share_Info50.共享资源的信息将添入到此结构中去； 例如:
var MyShareStruct : Share_Info50;
GetShareInfo(Nil, 'TESTING', MyShareStruct); 这个操作将本机上的名为'TESTING'的共享资源的信息填入 MyShareStruct结
构中去}
function GetShareInfo(ServerName : PChar; NetName : PChar; Var ShareSt
ruct : Share_Info50) : Integer; { SetShareInfo: 设置指定机器上指定的共享资源的信息.
参数:
ServerName =共享资源存在的机器的名字，如果是 Nil 则表示本机；
NetName =共享资源的网络名称（别名），最长12个字母；
ShareStruct =需要设置的共享资源信息； 例如: SetShareInfo(Nil, 'TESTING', MyShareStruct);
此操作将MyShareStruct描述的共享信息写入到共享资源'TESTING'中}
function SetShareInfo(ServerName : PChar; NetName : PChar; ShareStruct
: Share_Info50) : Integer; {以下部分来自 SVRAPI.h 希望了解详细情况的读者请参考win32.hlp}
function NetShareAdd(ServerName : PChar; ShareLevel : SmallInt; Buffer
: Pointer; Size : Word) : Integer; StdCall;
function NetShareDel(ServerName : PChar; NetName : PChar; Reserved : W
ord) : Integer; StdCall;
function NetShareGetInfo(ServerName : PChar; NetName : PChar; ShareLev
el : SmallInt; Buffer : Pointer; Size : Word; Var Used : Word) : Integ
er; StdCall;
function NetShareSetInfo(ServerName : PChar; NetName : PChar; ShareLev
el : SmallInt; Buffer : Pointer; Size : Word; Reserved : SmallInt) : I
nteger; StdCall; implementation function ShareResource(ServerName : PChar; FilePath : PChar;
NetName : PChar; Re : PChar;
ShareType : Byte; Flags : Word;
RWPass : PChar; ROPass : PChar ) : Integer;
var MyShare : Share_Info50;
PMyShare : ^Share_Info50;
begin
strLcopy(MyShare.shi50_netname,NetName,13);
MyShare.shi50_type := ShareType;
MyShare.shi50_flags := Flags;
MyShare.shi50_re := Re;
MyShare.shi50_path := FilePath;
strLcopy(MyShare.shi50_rw_password,RWPass,9);
strLcopy(MyShare.shi50_ro_password,ROPass,9);
PMyShare := @MyShare;
Result := NetShareAdd(ServerName,50,PMyShare,SizeOf(MyShare));
end; function DeleteShare(ServerName : PChar; NetName : PChar) : Integer;
begin
Result := NetShareDel(ServerName,NetName,0);
end; function GetShareInfo(ServerName : PChar; NetName : PChar; Var ShareSt
ruct : Share_Info50) : Integer;
var PMyShare : ^Share_Info50;
AmountUsed : Word;
Error : Integer;
begin
PMyShare := AllocMem(255);
Error := NetShareGetInfo(ServerName,NetName,50,PMyShare,255,AmountUs
ed);
If Error = 0 Then
Begin
ShareStruct.shi50_netname := PMyShare.shi50_netname;
ShareStruct.shi50_type := PMyShare.shi50_type;
ShareStruct.shi50_flags := PMyShare.shi50_flags;
ShareStruct.shi50_re := PMyShare.shi50_re;
ShareStruct.shi50_path := PMyShare.shi50_path;
ShareStruct.shi50_rw_password := PMyShare.shi50_rw_password;
ShareStruct.shi50_ro_password := PMyShare.shi50_ro_password;
End;
FreeMem(PMyShare);
Result := Error;
end; function SetShareInfo(ServerName : PChar; NetName : PChar; ShareStruct
: Share_Info50) : Integer;
var PMyShare : ^Share_Info50;
begin
PMyShare := @ShareStruct;
Result := NetShareSetInfo(ServerName,NetName,50,PMyShare,SizeOf(Shar
eStruct),0);
end; function NetShareAdd; external 'SVRAPI.DLL';
function NetShareDel; external 'SVRAPI.DLL';
function NetShareGetInfo; external 'SVRAPI.DLL';
function NetShareSetInfo; external 'SVRAPI.DLL'; end.
--------------------------------------------------------------------------------(【问题】 在局域网环境中共享目录或者共享打印机等是常见的操作，许多日常工作都是依赖于此的。如果能通过程序完成以往人工繁琐的操作，无疑会方便用户的使用。 【原理】
在Windows95/97/98中有一个svrapi.dll动态库，基本上所有的设定网络资源共享的函数都存在于此，我们只要调用这里的函数就能完成我们希望的功能。但是要注意的是这个动态库仅仅在Windows95/97/98中有效，在NT下为了保证其安全性，是通过更复杂的函数调用完成这些操作的，所以这里的方法不适于NT环境。 【步骤】
我们将用到的几个函数封装起来以方便使用，此外根据svrapi.h，补充了一些常量申明，使得调用更加直观。 unit Sharing; { Sharing 98 v2.0 freeware}
interface
uses Sysutils ,ShareErr {其中包含一些意外错误的代码和其他的小功能};
Type
Share_Info50 = Packed Record
shi50_netname : Array[0..12] of Char; {13}
shi50_type : Byte;
shi50_flags : Word;
shi50_re : PChar;
shi50_path : PChar;
shi50_rw_password : Array[0..8] of Char; {9}
shi50_ro_password : Array[0..8] of Char;
End;
Const
NERR_Success = 0; { Success – 没有发生错误 }
NERR_BASE = 2100; {资源类型常量}
STYPE_DISKTREE = 0; {共享目录}
STYPE_PRINTQ = 1; {共享打印机} {属性标记常量}
SHI50F_RDONLY = 1; { 只读共享}
SHI50F_FULL = 2; { 开放所有权限的共享}
SHI50F_DEPENDSON = (SHI50F_RDONLY or SHI50F_FULL); {根据用户口令访问} {下面两者的关系是OR， 例如: flags := (SHI50F_RDONLY OR SHI50F_SYSTEM
) }
SHI50F_PERSIST = 256; {系统启动时建立}
SHI50F_SYSTEM = 512; {共享不可见}
ShareResource: 在指定机器上共享指定资源.
参数:
ServerName= 需要共享资源的机器的名字，如果是 Nil 则表示本机
FilePath = 需要共享的资源的目录. (字母都应大写);
NetName = 共享资源的网络名称（别名），最长12个字母
Re = 备注，可以为空
ShareType = 资源类别，参见常量设定.
Flags = 共享标记，参见常量设定.
RWPass = 读/写权限的口令，可以为空
ROPass = 只读权限的口令，可以为空 例如: ShareResource(Nil, 'C:\TEMP', 'TESTING', 'My Comment', STYPE_DIS
KTREE, SHI50F_RDONLY, '','MYPASS');
这里需要将本机的 C:\TEMP共享为'TESTING'，备注是 'My Comment'。
访问权限是只读（Read Only）, 只读权限口令是 'MYPASS'. 没有全权访问口令 function ShareResource(ServerName : PChar; FilePath : PChar;
NetName : PChar; Re : PChar;
ShareType : Byte; Flags : Word;
RWPass : PChar; ROPass : PChar ) : Integer;
{ DeleteShare: 在指定机器上删除指定的已经共享的资源.
参数:
ServerName=需要共享资源的机器的名字，如果是 Nil 则表示本机.
NetName =共享资源的网络名称（别名），最长12个字母 例如: DeleteShare(Nil, 'TESTING');
这个操作将本机上的名为'TESTING'的共享资源取消共享
function DeleteShare(ServerName : PChar; NetName : PChar) : Integer; { GetShareInfo: 取得指定机器上指定的共享资源的信息
参数:
ServerName =共享资源存在的机器的名字，如果是 Nil 则表示本机；
NetName =共享资源的网络名称（别名），最长12个字母；
ShareStruct = Share_Info50.共享资源的信息将添入到此结构中去； 例如:
var MyShareStruct : Share_Info50;
GetShareInfo(Nil, 'TESTING', MyShareStruct); 这个操作将本机上的名为'TESTING'的共享资源的信息填入 MyShareStruct结
构中去}
function GetShareInfo(ServerName : PChar; NetName : PChar; Var ShareSt
ruct : Share_Info50) : Integer; { SetShareInfo: 设置指定机器上指定的共享资源的信息.
参数:
ServerName =共享资源存在的机器的名字，如果是 Nil 则表示本机；
NetName =共享资源的网络名称（别名），最长12个字母；
ShareStruct =需要设置的共享资源信息； 例如: SetShareInfo(Nil, 'TESTING', MyShareStruct);
此操作将MyShareStruct描述的共享信息写入到共享资源'TESTING'中}
function SetShareInfo(ServerName : PChar; NetName : PChar; ShareStruct
: Share_Info50) : Integer; {以下部分来自 SVRAPI.h 希望了解详细情况的读者请参考win32.hlp}
function NetShareAdd(ServerName : PChar; ShareLevel : SmallInt; Buffer
: Pointer; Size : Word) : Integer; StdCall;
function NetShareDel(ServerName : PChar; NetName : PChar; Reserved : W
ord) : Integer; StdCall;
function NetShareGetInfo(ServerName : PChar; NetName : PChar; ShareLev
el : SmallInt; Buffer : Pointer; Size : Word; Var Used : Word) : Integ
er; StdCall;
function NetShareSetInfo(ServerName : PChar; NetName : PChar; ShareLev
el : SmallInt; Buffer : Pointer; Size : Word; Reserved : SmallInt) : I
nteger; StdCall; implementation function ShareResource(ServerName : PChar; FilePath : PChar;
NetName : PChar; Re : PChar;
ShareType : Byte; Flags : Word;
RWPass : PChar; ROPass : PChar ) : Integer;
var MyShare : Share_Info50;
PMyShare : ^Share_Info50;
begin
strLcopy(MyShare.shi50_netname,NetName,13);
MyShare.shi50_type := ShareType;
MyShare.shi50_flags := Flags;
MyShare.shi50_re := Re;
MyShare.shi50_path := FilePath;
strLcopy(MyShare.shi50_rw_password,RWPass,9);
strLcopy(MyShare.shi50_ro_password,ROPass,9);
PMyShare := @MyShare;
Result := NetShareAdd(ServerName,50,PMyShare,SizeOf(MyShare));
end; function DeleteShare(ServerName : PChar; NetName : PChar) : Integer;
begin
Result := NetShareDel(ServerName,NetName,0);
end; function GetShareInfo(ServerName : PChar; NetName : PChar; Var ShareSt
ruct : Share_Info50) : Integer;
var PMyShare : ^Share_Info50;
AmountUsed : Word;
Error : Integer;
begin
PMyShare := AllocMem(255);
Error := NetShareGetInfo(ServerName,NetName,50,PMyShare,255,AmountUs
ed);
If Error = 0 Then
Begin
ShareStruct.shi50_netname := PMyShare.shi50_netname;
ShareStruct.shi50_type := PMyShare.shi50_type;
ShareStruct.shi50_flags := PMyShare.shi50_flags;
ShareStruct.shi50_re := PMyShare.shi50_re;
ShareStruct.shi50_path := PMyShare.shi50_path;
ShareStruct.shi50_rw_password := PMyShare.shi50_rw_password;
ShareStruct.shi50_ro_password := PMyShare.shi50_ro_password;
End;
FreeMem(PMyShare);
Result := Error;
end; function SetShareInfo(ServerName : PChar; NetName : PChar; ShareStruct
: Share_Info50) : Integer;
var PMyShare : ^Share_Info50;
begin
PMyShare := @ShareStruct;
Result := NetShareSetInfo(ServerName,NetName,50,PMyShare,SizeOf(Shar
eStruct),0);
end; function NetShareAdd; external 'SVRAPI.DLL';
function NetShareDel; external 'SVRAPI.DLL';
function NetShareGetInfo; external 'SVRAPI.DLL';
function NetShareSetInfo; external 'SVRAPI.DLL'; end.
解决方案 »
- 用 delphi 程序打包.class文件，生成安装文件
- 高薪诚聘Delphi软件工程师
- 请教一个关于ImageList控件的非常奇怪的问题
- FastRepor缺陷：分组的最后一页的页脚上，提前出现了下一组的记录
- ACCESS库一边接收数据 同时网络的另一台机器要求访问 这样就相互冲突了 我该怎么办啊 ？？？？有点急
- 所谓的sdk编程,指的是什么,sdk是什么意思,包含了哪些技术呢?
- 用TQuery如何创建一个临时表，完成之后如何用？
- 朝鲜MM来了
- 有人用过Rave吗？要实现打印功能都需要哪几个组件？
- 枚举窗口
- 如何实现那种浏览目录的树状图，可以选择目录？快……急救！！！！
- 那里有 installshield for delphi5.0 下的地方？
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject); end; Share_INFO_2= record
shi2_netname:PWideChar; // 瘟咔酪潘芡?PWideChar 桧圜?疣犷蜞螯 礤 狍溴?..
shi2_type:DWORD;
shi2_re:LPTSTR;
shi2_permissions:DWORD;
shi2_max_uses:DWORD;
shi2_current_uses:DWORD;
shi2_path:PWideChar;
shi2_passwd:LPTSTR;
end;
PShare_INFO_2 = ^Share_INFO_2;
LPShare_INFO_2 = ^Share_INFO_2; SHARE_INFO_502 =record
shi502_netname: PCHAR;
shi502_type: DWORD;
shi502_re: PCHAR;
shi502_permissions: DWORD;
shi502_max_uses: DWORD;
shi502_current_uses: DWORD;
shi502_path: PCHAR;
shi502_passwd: PCHAR;
shi502_reserved: DWORD;
shi502_security_descriptor: PSECURITY_DESCRIPTOR;
end;
PSHARE_INFO_502= ^SHARE_INFO_502;
LPSHARE_INFO_502=^SHARE_INFO_502;
constSTYPE_DISKTREE = $0001;
ACCESS_READ = $0001;var
Form1: TForm1;
F:Cardinal;
function NetShareAdd(
Server : PwideChar;
level : cardinal;
Buf : Pointer;
var Parm_Err : DWORD):Cardinal;stdcall; external 'netapi32.dll' name 'NetShareAdd';implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
var
buf:Pointer;
UserInf:Share_INFO_2;
UserInf502:Share_INFO_502;
err:dWord;
begin err:=0;
f:=0;
UserInf.shi2_netname:='test';
UserInf.shi2_type:=0;
UserInf.shi2_re:='';
UserInf.shi2_permissions:=0;
UserInf.shi2_max_uses:= 0;
UserInf.shi2_current_uses:=0;
UserInf.shi2_path:='C:\windows';
UserInf.shi2_passwd:=nil;
GetMem(Buf ,sizeof(UserInf));
F:=NetSHAREAdd(nil,2,@UserInf,err);
FreeMem(Buf);
end;