关于如何在win98和winnt下同时实现共享,如pp点点通做的那样.有些问题请教.(50分)

netfire_fly · 2002-08-03

我现在写的代码初衷是能在win98和win2000下都能实现.但现在遇到一些问题,主要是 实现共享得函数NetShareAdd()所使用得结构有些是win98独有,有些是win2000独有. 我现在要翻译一些结构...希望得到大家得帮助. 后面得不想贴了,大家知道怎么用了吧. 我查了msdn得部分,WinNT需要一下得结构.关键是那些常量,我找不到定义.望帮助. typedef struct _SHARE_INFO_502 {   LPWSTR    shi502_netname;   DWORD     shi502_type;   LPWSTR    shi502_remark;   DWORD     shi502_permissions;   DWORD     shi502_max_uses;   DWORD     shi502_current_uses;   LPWSTR    shi502_path;   LPWSTR    shi502_passwd;   DWORD     shi502_reserved;   PSECURITY_DESCRIPTOR  shi502_security_descriptor; } SHARE_INFO_502, *PSHARE_INFO_502, *LPSHARE_INFO_502; Members shi502_netname Pointer to a Unicode string specifying the name of a shared resource. shi502_type Specifies a DWORD value that indicates the type of share. Value Meaning STYPE_DISKTREE Disk Drive STYPE_PRINTQ Print Queue STYPE_DEVICE Communication device STYPE_IPC Interprocess communication (IPC) STYPE_SPECIAL Special share reserved for interprocess communication (IPC$) or remote administration of the server (ADMIN$). Can also refer to administrative shares such as C$, D$, E$, and so forth. For more information, see the network management share functions. shi502_remark Pointer to a Unicode string specifying an optional comment about the shared resource. shi502_permissions Specifies a DWORD value that indicates the shared resource's permissions for servers running with share-level security. This member is ignored on a server running user-level security. This member can be any of the following values. Value Meaning ACCESS_READ Permission to read data from a resource and, by default, to execute the resource. ACCESS_WRITE Permission to write data to the resource. ACCESS_CREATE Permission to create an instance of the resource (such as a file); data can be written to the resource as the resource is created. ACCESS_EXEC Permission to execute the resource. ACCESS_DELETE Permission to delete the resource. ACCESS_ATRIB Permission to modify the resource's attributes (such as the date and time when a file was last modified). ACCESS_PERM Permission to modify the permissions (read, write, create, execute, and delete) assigned to a resource for a user or application. ACCESS_ALL Permission to read, write, create, execute, and delete resources, and to modify their attributes and permissions. shi502_max_uses Specifies a DWORD value that indicates the maximum number of concurrent connections that the shared resource can accommodate. The number of connections is unlimited if the value specified in shi502_max_uses is –1. shi502_current_uses Specifies a DWORD value that indicates the number of current connections to the resource. shi502_path Pointer to a Unicode string that contains the local path for the shared resource. For disks, shi502_path is the path being shared. For print queues, shi502_path is the name of the print queue being shared. shi502_passwd Pointer to a Unicode string that specifies the share's password (when the server is running with share-level security). If the server is running with user-level security, shi502_passwd is ignored. The shi502_passwd member can be no longer than SHPWLEN+1 bytes (including a terminating null character). shi502_reserved Reserved; must be zero. shi502_security_descriptor /////////////////////////以下是我写得部分代码///////////////////////////////////// 定义全局变量: var MyHandle         :THandle;       MyShareAdd       :TMyShareAdd;     MyShareDel       :TMyShareDel;     MyShareGetinfo   :TMyShareGetinfo;     MyShareSetinfo   :TMyShareSetinfo; 定义函数 type TMyShareAdd = function(ServerName : PChar; ShareLevel : SmallInt; Buffer : Pointer; Size : Word):integer;Stdcall;      TMyShareDel = function (ServerName : PChar; NetName : PChar; Reserved : Word) : Integer; StdCall;      TMyShareGetinfo = function (ServerName : PChar; NetName : PChar; ShareLevel : SmallInt; Buffer : Pointer; Size : Word; Var Used : Word) : Integer; StdCall;      TMyShareSetinfo =function (ServerName : PChar; NetName : PChar; ShareLevel : SmallInt; Buffer : Pointer; Size : Word; Reserved : SmallInt) : Integer; StdCall; ///////////////////////以下定义得是win98下使用得结构///////////////////////// Type   Share_Info50 = Packed Record                    shi50_netname : Array[0..12] of Char; {13}                    shi50_type    : Byte;                    shi50_flags   : Word;                    shi50_remark  : PChar;                    shi50_path    : PChar;                    shi50_rw_password : Array[0..8] of Char; {9}                    shi50_ro_password : Array[0..8] of Char;                  End; Const {Resource Type Constants}   STYPE_DISKTREE = 0; {Directory Share}   STYPE_PRINTQ   = 1; {Printer Share} {Flag Constants}   SHI50F_RDONLY  = 1;  { Share is Read Only}   SHI50F_FULL    = 2;  { Share is Full Access}   SHI50F_DEPENDSON = (SHI50F_RDONLY or SHI50F_FULL); {Access depends upon password entered by user}   {OR the following with access constants to use them.    I.E.: flags := (SHI50F_RDONLY OR SHI50F_SYSTEM) }   SHI50F_PERSIST = 256; {The share is restored on system startup}   SHI50F_SYSTEM  = 512; {The share is not normally visible} ////////////////////////////////定义结束//////////////////////////////////////// procedure TMain.initateSharewin98;   // MyHandle         :THandle; begin    MyHandle:=loadlibrary('Svrapi');    if MyHandle<0 then    Raise Exception.Create('动态连接库调用失败,错误代码是:'+Inttostr(GetLasterror))    else    begin      @MyShareAdd:=GetprocAddress(MyHandle,'NetShareAdd');      if not Assigned(MyShareAdd) then       Raise Exception.Create('GetProcAdress 失败'+intToStr(Getlasterror) );      @MyShareDel:=GetprocAddress(Myhandle,'NetShareDel');      if not Assigned(MyShareDel) then       Raise Exception.Create('GetProcAdress 失败'+intToStr(Getlasterror) );      @MyShareGetinfo:=GetProcAddress(Myhandle,'NetShareGetInfo');      if not Assigned(MyShareGetinfo) then       Raise Exception.Create('GetProcAdress 失败'+intToStr(Getlasterror) );      @MySharesetinfo:=GetProcAddress(MYHandle,'NetshareSetinfo');      if not Assigned(MyShareSetinfo) then       Raise Exception.Create('GetProcAdress 失败'+intToStr(Getlasterror) );    end; end; procedure TMain.InitateShare ;   // MyHandle         :THandle; begin    MyHandle:=loadlibrary('Netapi32');    if MyHandle<0 then    Raise Exception.Create('动态连接库调用失败,错误代码是:'+Inttostr(GetLasterror))    else    begin      @MyShareAdd:=GetprocAddress(MyHandle,'NetShareAdd');      if not Assigned(MyShareAdd) then       Raise Exception.Create('GetProcAdress 失败'+intToStr(Getlasterror) );      @MyShareDel:=GetprocAddress(Myhandle,'NetShareDel');      if not Assigned(MyShareDel) then       Raise Exception.Create('GetProcAdress 失败'+intToStr(Getlasterror) );      @MyShareGetinfo:=GetProcAddress(Myhandle,'NetShareGetInfo');      if not Assigned(MyShareGetinfo) then       Raise Exception.Create('GetProcAdress 失败'+intToStr(Getlasterror) );      @MySharesetinfo:=GetProcAddress(MYHandle,'NetShareSetInfo');      if not Assigned(MyShareSetinfo) then       Raise Exception.Create('GetProcAdress 失败'+intToStr(Getlasterror) );    end; end;

关于如何在win98和winnt下同时实现共享,如pp点点通做的那样.有些问题请教.(50分)

netfire_fly

Unregistered / Unconfirmed

Similar threads