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

philipliu · 2002-11-15

如何共享文件夹？请写上详细代码，谢啦。

tseug · 2002-11-15

给我发邮件, tseug@263.net

agangr · 2002-11-15

;      WSACleanup;      get_ip:=Format('%s',[p2]); end; function addshare(pathstr:string):string;      //    创建计算机共享目录的函数 var   ServerName:widestring;   si: TSHARE_INFO_502;   r: DWORD;   parm_err:LPDword;   chararry:array [0..150] of WideChar; begin   si.shi502_netname := 'kdedata'; //  （共享名）   si.shi502_type := 0;  //STYPE_DISKTREE   si.shi502_remark := nil;   si.shi502_max_uses := $FFFFFFFF;   si.shi502_current_uses := 10;   si.shi502_path :=StringToWideChar(pathstr,chararry,150); //  （原路径）   si.shi502_passwd := nil;   si.shi502_reserved := 0;   si.shi502_security_descriptor := nil;   si.shi502_permissions:=0;   ServerName:=get_ip(); //  strpcopy(ServerName,'vodserver'); //  ('vodserver'是机器名）   try     r := NetShareAdd(ServerName, 502, @si, parm_err );   Finally //    strdispose(ServerName);   end;   addshare := Format( '%d', [r] ); //  Edit2.Text:=inttostr(parm_err); end;

philipliu · 2002-11-17

to agangr:   TSHARE_INFO_502是什么东东？

jsxjd · 2002-11-17

到MSDN 或微软网站找,或搜索本BBS

naughtboy · 2002-11-18

或直接用net share命令吧，怎么用看帮助

philipliu · 2002-11-18

谁有详细点的例子？

jsxjd · 2002-11-19

win 9x下的 c 代码: typedef struct _share_info_50 {    char shi50_netname[LM20_NNLEN+1];    unsigned char shi50_type;    unsigned short shi50_flags;    char FAR* shi50_remark;    char FAR* shi50_path;    char shi50_rw_password[SHPWLEN+1];    char shi50_ro_password[SHPWLEN+1]; } _share_info_50; #include <stdio.h> #include <windows.h> #include <svrapi.h> int main(int argc, char FAR * argv[]) {    char FAR * pszServerName = NULL;    short nLevel = 50;    struct share_info_50* pBuf = NULL;    unsigned short cbBuffer;    NET_API_STATUS nStatus;    //    // ServerName can be NULL to indicate the local computer.    //    if ((argc < 3) || (argc > 4))    {       printf("Usage: %s [////ServerName] ShareName SharePath/n", argv[0]);       exit(1);    }    if (argc == 4)       pszServerName = argv[1];    //    // Allocate the memory required to specify a    //   share_info_50 structure.    //    cbBuffer = sizeof(struct share_info_50);    pBuf = malloc(cbBuffer);    if (pBuf == NULL)       printf("No memory/n");    //    // Assign values to the share_info_50 structure.    //    strcpy(pBuf->shi50_netname, argv[argc-2]);    pBuf->shi50_type = STYPE_DISKTREE;    pBuf->shi50_flags = SHI50F_FULL;    pBuf->shi50_remark = NULL;    pBuf->shi50_path = argv[argc-1];    pBuf->shi50_rw_password[0] = '/0'; // No password    pBuf->shi50_ro_password[0] = '/0'; // No password    //    // Call the NetShareAdd function    //  specifying information level 50.    //    nStatus = NetShareAdd(pszServerName,                          nLevel,                          (char FAR *)pBuf,                          cbBuffer);    //    // Display the result of the function call.    //    if (nStatus == NERR_Success)       printf("Share added successfully/n");    else       fprintf(stderr, "A system error has occurred: %d/n", nStatus);    //    // Free the allocated memory.    //    if (pBuf != NULL)       free(pBuf);    return 0; } win 2K 下的C代码: #define UNICODE #include <windows.h> #include <stdio.h> #include <lm.h> void wmain( int argc, TCHAR *argv[ ]) {    NET_API_STATUS res;    SHARE_INFO_2 p;    DWORD parm_err = 0;    if(argc<2)       printf("Usage: NetShareAdd server/n");    else    {       //       // Fill in the SHARE_INFO_2 structure.       //       p.shi2_netname = TEXT("TESTSHARE");           p.shi2_type = STYPE_DISKTREE; // disk drive       p.shi2_remark = TEXT("TESTSHARE to test NetShareAdd");       p.shi2_permissions = 0;           p.shi2_max_uses = 4;       p.shi2_current_uses = 0;           p.shi2_path = TEXT("C://");       p.shi2_passwd = NULL; // no password       //       // Call the NetShareAdd function,       //  specifying level 2.       //       res=NetShareAdd(argv[1], 2, (LPBYTE) &p, &parm_err);       //       // If the call succeeds, inform the user.       //       if(res==0)          printf("Share created./n");             // Otherwise, print an error,       //  and identify the parameter in error.       //       else          printf("Error: %u/tparmerr=%u/n", res, parm_err);    }    return; } delphi 下的参考: type TShare_INFO_2 = record     shi2_netname

WideString;     shi2_type

Word;     shi2_remark

WideString;     shi2_permissions

Word;     shi2_max_uses

Word;     shi2_current_uses

Word;     shi2_path

WideString;     shi2_passwd

WideString; end; function NetShareAdd(ServerName : PWideChar;                      Level : Longword;                      Buffer : Pointer;                      var ParamError : Longword) : Longword; var   Form1: TForm1; implementation function NetShareAdd; external 'netapi32.DLL' name 'NetShareAdd'; {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var   shareAttrresult,shareAttrtemp:string;   i :integer;   si :TSHARE_INFO_2;   parm_err

DWord;   severname

char;   servername:OSVERSIONINFO;   PwString

wideChar;   wstring:string;   Net_Name,Remark,thePath,Password:widestring; ////////////////////////// begin wstring:='savedfdf';     Net_Name:='save';     si.shi2_netname:=@Net_Name;     si.shi2_type :=STYPE_DISKTREE;     ReMark:='abcde';     si.shi2_remark :=@Remark;     si.shi2_permissions :=ACCESS_READ;     si.shi2_max_uses :=-1;     si.shi2_current_uses :=10;     thePath:='f:/save'; si.shi2_path :=@thePath; Password:='123456';     si.shi2_passwd :=@Password;    //共享级安全才有用。用户级安全忽略     NetShareAdd(nil ,2,@si,@parm_err);

philipliu · 2002-11-20

还是不行啊，程序试过没？

jsxjd · 2002-11-20

参照 C 代码去改，微软对这个函数已经修正过了。 或搜索一下 NetShareAdd ,我以前回答过。

agangr · 2002-11-20

TSHARE_INFO_502 = record     shi502_netname: PWideChar;     shi502_type: DWORD;     shi502_remark: PWideChar;     shi502_permissions: DWORD;     shi502_max_uses: DWORD;     shi502_current_uses: DWORD;     shi502_path: PWideChar;     shi502_passwd: PWideChar;     shi502_reserved: DWORD;     shi502_security_descriptor: PSECURITY_DESCRIPTOR;   end;

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

philipliu

Unregistered / Unconfirmed

tseug

Unregistered / Unconfirmed

agangr

Unregistered / Unconfirmed

philipliu

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

naughtboy

Unregistered / Unconfirmed

philipliu

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

philipliu

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

agangr

Unregistered / Unconfirmed

Similar threads