如何将文件夹共享(100分)

Cruiser · 2000-01-07

在DELPHI中好象无法用NetShareAdd，而且该函数的帮助也不太对。 最好给个例子，用VC实现也可。

Keyes · 2000-01-07

strang · 2000-01-07

listen

Cruiser · 2000-01-07

两位大侠的意思是？

Jams · 2000-01-07

>>

hubdog · 2000-01-07

看你是个新来的，不想让你对论坛失望， 如果你不是急着要的话，我有空时到是可以给你写一个。 否则你去找控件，肯定有这样的控件，我看见过。

sonie · 2000-01-07

我从别处抄一个例子给你： /*++   Copyright (c) 1995, 1996  Microsoft Corporation   Module Name:       netshare.c   Abstract:       This module illustrates how to use the Windows NT Lan Manager API     in conjunction with the Win32 security API to create a new share     on an arbitrary machine with permissions that grant an arbitrary     user/group Full Access to the share.   Author:       Scott Field (sfield)    01-Oct-95   --*/   #include <windows.h> #include <lm.h> #include <stdio.h>   #define RTN_OK 0 #define RTN_USAGE 1 #define RTN_ERROR 13   // // Note: UNICODE entry point and argv.  This way, we don't need to bother // with converting commandline args to Unicode //   int __cdecl wmain(     int argc,     wchar_t *argv[]     ) {     LPWSTR DirectoryToShare;     LPWSTR Sharename;     LPWSTR Username;     LPWSTR Server;       PSID pSid = NULL;     DWORD cbSid;       WCHAR RefDomain[DNLEN + 1];     DWORD cchDomain = DNLEN + 1;     SID_NAME_USE peUse;       SECURITY_DESCRIPTOR sd;     PACL pDacl = NULL;     DWORD dwAclSize;       SHARE_INFO_502 si502;     NET_API_STATUS nas;       BOOL bSuccess = FALSE; // assume this function fails       if(argc < 4) {         printf("Usage: %ls <directory> <sharename> <user/group> [////Server]/n", argv[0]);         printf(" directory is fullpath of directory to share/n");         printf(" sharename is name of share on server/n");         printf(" user/group is an WinNT user/groupname (REDMOND//sfield, Administrators, etc)/n");         printf(" optional Server is the name of the computer to create the share on/n");         printf("/nExample: %ls c://public public Everyone/n", argv[0]);         printf("c://public shared as public granting Everyone full access/n");         printf("/nExample: %ls c://private cool$ REDMOND//sfield ////WINBASE/n", argv[0]);         printf("c://private on ////WINBASE shared as cool$ (hidden) granting REDMOND//sfield access/n");           return RTN_USAGE;     }       //     // since the commandline was Unicode, just provide pointers to     // the relevant items     //       DirectoryToShare = argv[1];     Sharename = argv[2];     Username = argv[3];       if( argc > 4 ) {         Server = argv[4];     } else {         Server = NULL; // local machine     }       //     // initial allocation attempt for Sid     // #define SID_SIZE 96     cbSid = SID_SIZE;       pSid = (PSID)HeapAlloc(GetProcessHeap(), 0, cbSid);     if(pSid == NULL) {         printf("HeapAlloc error!/n");         return RTN_ERROR;     }       //     // get the Sid associated with the supplied user/group name     // force Unicode API since we always pass Unicode string     //       if(!LookupAccountNameW(         NULL,       // default lookup logic         Username,   // user/group of interest from commandline         pSid,       // Sid buffer         &cbSid,     // size of Sid         RefDomain,  // Domain account found on (unused)         &cchDomain, // size of domain in chars         &peUse         )) {           //         // if the buffer wasn't large enough, try again         //           if(GetLastError() == ERROR_INSUFFICIENT_BUFFER) {               pSid = (PSID)HeapReAlloc(GetProcessHeap(), 0, pSid, cbSid);               if(pSid == NULL) {                 printf("HeapReAlloc error!/n");                 goto cleanup;             }               cchDomain = DNLEN + 1;               if(!LookupAccountNameW(                 NULL,       // default lookup logic                 Username,   // user/group of interest from commandline                 pSid,       // Sid buffer                 &cbSid,     // size of Sid                 RefDomain,  // Domain account found on (unused)                 &cchDomain, // size of domain in chars                 &peUse                 )) {                     printf("LookupAccountName error! (rc=%lu)/n", GetLastError());                     goto cleanup;                 }           } else {             printf("LookupAccountName error! (rc=%lu)/n", GetLastError());             goto cleanup;         }     }       //     // compute size of new acl     //       dwAclSize = sizeof(ACL) +         1 * ( sizeof(ACCESS_ALLOWED_ACE) - sizeof(DWORD) ) +         GetLengthSid(pSid) ;       //     // allocate storage for Acl     //       pDacl = (PACL)HeapAlloc(GetProcessHeap(), 0, dwAclSize);     if(pDacl == NULL) goto cleanup;       if(!InitializeAcl(pDacl, dwAclSize, ACL_REVISION))         goto cleanup;       //     // grant GENERIC_ALL (Full Control) access     //       if(!AddAccessAllowedAce(         pDacl,         ACL_REVISION,         GENERIC_ALL,         pSid         )) goto cleanup;       if(!InitializeSecurityDescriptor(&sd, SECURITY_DESCRIPTOR_REVISION))         goto cleanup;       if(!SetSecurityDescriptorDacl(&sd, TRUE, pDacl, FALSE)) {         fprintf(stderr, "SetSecurityDescriptorDacl error! (rc=%lu)/n",             GetLastError());         goto cleanup;     }       //     // setup share info structure     //       si502.shi502_netname = (LPTSTR) Sharename;     si502.shi502_type = STYPE_DISKTREE;     si502.shi502_remark = NULL;     si502.shi502_permissions = 0;     si502.shi502_max_uses = SHI_USES_UNLIMITED;     si502.shi502_current_uses = 0;     si502.shi502_path = (LPTSTR) DirectoryToShare;     si502.shi502_passwd = NULL;     si502.shi502_reserved = 0;     si502.shi502_security_descriptor = &sd;       nas = NetShareAdd(         (LPTSTR) Server,         // share is on local machine         502,            // info-level         (LPBYTE)&si502, // info-buffer         NULL            // don't bother with parm         );       if(nas != NO_ERROR) {         printf("NetShareAdd error! (rc=%lu)/n", nas);         goto cleanup;     }       bSuccess = TRUE; // indicate success   cleanup:       //     // free allocated resources     //     if(pDacl != NULL)         HeapFree(GetProcessHeap(), 0, pDacl);       if(pSid != NULL)         HeapFree(GetProcessHeap(), 0, pSid);       if(!bSuccess) {         return RTN_ERROR;     }       return RTN_OK;

hsw · 2000-02-11

下边的程序， 封装 Windows95/98 SvrAPI 的单元， 提供开发人员轻松的让某个文件夹可以成为透过网络共享的状态 请认真的阅读代码……其实与sonie的程序原理是一样的， unit Sharing; interface uses Sysutils; 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 {Use ShareErr for Error Constants & Error functions} {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} { ShareResource: Shares a resource on the specified machine.   Parameters:     ServerName= Name of server on which to share resource. Nil = Local Machine.     FilePath  = Path to the resource to be shared. (This should be ALL upper-case);     NetName   = Network Name to give the shared resource. Must be 12 characters or less.     Remark    = Comment. Can be an empty string.     ShareType = Type of resource. See Constants declared above.     Flags     = Sharing flags. See Constants declared above.     RWPass    = Full Access Password - Must be 8 characters or less. Can be an empty string.     ROPass    = Read Only Password - Must be 8 characters or less. Can be an empty string.   Example Call: ShareResource(Nil, 'C:/TEMP', 'TESTING', 'My Comment', STYPE_DISKTREE, SHI50F_RDONLY, '','MYPASS');     This Shares Disk Resource C:/TEMP as 'TESTING' with comment 'My Comment' on the local machine.     Access is Read Only, with Read Only password = 'MYPASS'. No Full Access Password specified.     (It would be ignored if specified) } function ShareResource(ServerName : PChar; FilePath : PChar;                        NetName : PChar; Remark : PChar;                        ShareType : Byte; Flags : Word;                        RWPass : PChar; ROPass : PChar ) : Integer; { DeleteShare: Deletes a shared resource on the specified machine.   Parameters:     ServerName= Name of server on which to share resource. Nil = Local Machine.     NetName   = Network Name of the shared resource.   Example Call: DeleteShare(Nil, 'TESTING');     This Deletes The network share named 'TESTING' on the local machine.} function DeleteShare(ServerName : PChar; NetName : PChar) : Integer; { GetShareInfo: Gets information about a shared resource on the specified machine.   Parameters:     ServerName  = Name of server where the shared resource resides. Nil = Local Machine.     NetName     = Network Name of the shared resource. Must be 12 characters or less.     ShareStruct = Share_Info50. This structure will be filled with information on the                   specified share if the function succeeds.   Example Call:     var MyShareStruct : Share_Info50;     GetShareInfo(Nil, 'TESTING', MyShareStruct);     This fills MyShareStruct with share information about 'TESTING' on the local machine.} function GetShareInfo(ServerName : PChar; NetName : PChar; Var ShareStruct : Share_Info50) : Integer; { SetShareInfo: Sets information for a shared resource on the specified machine.   Parameters:     ServerName  = Name of server where the shared resource resides. Nil = Local Machine.     NetName     = Network Name of the shared resource. Must be 12 characters or less.     ShareStruct = Share_Info50. This structure contains the new information for the shared                   resource. It is easiest to fill this structure first with GetShareInfo and                   then change desired parameters; however you may fill it completely yourself.                   You may not change the path of a shared resource, if you change this                   parameter in the structure, it will be ignored.   Example Call: SetShareInfo(Nil, 'TESTING', MyShareStruct);     This changes the share information for 'TESTING' to reflect the data in MyShareStruct} function SetShareInfo(ServerName : PChar; NetName : PChar; ShareStruct : Share_Info50) : Integer; {These are the translated SVRAPI exports. I suggest you not use them yourself. Rather, use  the encapsulated versions I have written for you. If you wish to learn more about these  functions, browse the win32.hlp file.} function NetShareAdd(ServerName : PChar; ShareLevel : SmallInt; Buffer : Pointer; Size : Word) : Integer; StdCall; function NetShareDel(ServerName : PChar; NetName : PChar; Reserved : Word) : Integer; StdCall; function NetShareGetInfo(ServerName : PChar; NetName : PChar; ShareLevel : SmallInt; Buffer : Pointer; Size : Word; Var Used : Word) : Integer; StdCall; function NetShareSetInfo(ServerName : PChar; NetName : PChar; ShareLevel : SmallInt; Buffer : Pointer; Size : Word; Reserved : SmallInt) : Integer; StdCall; implementation function ShareResource(ServerName : PChar; FilePath : PChar;                        NetName : PChar; Remark : 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_remark := Remark;   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 ShareStruct : Share_Info50) : Integer;  var PMyShare : ^Share_Info50;      AmountUsed : Word;      Error : Integer; begin   PMyShare := AllocMem(255);   Error := NetShareGetInfo(ServerName,NetName,50,PMyShare,255,AmountUsed);   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_remark := PMyShare.shi50_remark;       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(ShareStruct),0); end; function NetShareAdd;     external 'SVRAPI.DLL'; function NetShareDel;     external 'SVRAPI.DLL'; function NetShareGetInfo; external 'SVRAPI.DLL'; function NetShareSetInfo; external 'SVRAPI.DLL'; end.

samecaoyh · 2000-02-12

//常量定义 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; //NetShareAdd Return ERROR      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); //NetShareDel Return ERROR      NERR_NetNotStarted = (NERR_BASE+2); //     NERR_ServerNotStarted = (NERR_BASE+14);      NERR_NetNameNotFound = (NERR_BASE+210);      NERR_ShareNotFound = (NERR_BASE+292); //类型定义   SHARE_INFO_50=Record     netname:array [0..NETNAME_LEN-1] of Char;     sharetype:ShortInt;     flags:SmallInt;     remark

Char;     path

Char;     rw_password:array [0..PASSWORD_LEN-1] of Char;     ro_password:array [0..PASSWORD_LEN-1] of Char;   End; //Win95/98中共享目录 Function NetShareAdd(servername

Char; level:SmallInt;   buf

ointer; buf_len:SmallInt):SmallInt;far;stdcall;external 'svrapi.dll'; //Win95/98中撤销共享目录 Function NetShareDel(servername

Char;   buf

ointer; reserved:SmallInt):SmallInt;far;stdcall;external 'svrapi.dll'; //使用方可以用如下函数,连接共享目录/撤销 WNetAddConnection WNetCancelConnection //------End----

KERRIGAN · 2000-05-04

Netshareadd的头文件是：imshare.h. 输入库：netapi32.lib(winnt), svrapi.lib(win95)

Cruiser · 2000-06-26

多人接受答案了。

如何将文件夹共享(100分)

Cruiser

Unregistered / Unconfirmed

Keyes

Unregistered / Unconfirmed

strang

Unregistered / Unconfirmed

Cruiser

Unregistered / Unconfirmed

Jams

Unregistered / Unconfirmed

hubdog

Unregistered / Unconfirmed

sonie

Unregistered / Unconfirmed

hsw

Unregistered / Unconfirmed

samecaoyh

Unregistered / Unconfirmed

KERRIGAN

Unregistered / Unconfirmed

Cruiser

Unregistered / Unconfirmed

Similar threads