(1)請參考以下的範例自行修改

#include "lm.h"
void __fastcall TForm1::Button1Click(TObject *Sender)
{
NET_API_STATUS res;
SHARE_INFO_2 p;
DWORD parm_err=0;
AnsiString sNetname="TESTSHARE";
wchar_t wszNetname[256]={0};
sNetname.WideChar(wszNetname, sNetname.WideCharBufSize());
AnsiString sRemark="TESTSHARE to test NetShareAdd";
wchar_t wszRemark[256]={0};
sRemark.WideChar(wszRemark, sRemark.WideCharBufSize());
AnsiString sPath="C:\\temp";
wchar_t wszPath[256]={0};
sPath.WideChar(wszPath, sPath.WideCharBufSize());
char szComputer[256]={0};
DWORD dwSize=256;
GetComputerName(szComputer, &dwSize);
AnsiString sComputer=szComputer;
wchar_t wszComputer[256]={0};
sComputer.WideChar(wszComputer, sComputer.WideCharBufSize());

p.shi2_netname=wszNetname;
p.shi2_type=STYPE_DISKTREE;
p.shi2_remark=wszRemark;
p.shi2_permissions=0;
p.shi2_max_uses=4;
p.shi2_current_uses=0;
p.shi2_path=wszPath;
p.shi2_passwd=NULL;

res=NetShareAdd(wszComputer, 2, (LPBYTE)&p, &parm_err);
if(res==0)
{
ShowMessage("Share created.");
}
else
{
ShowMessage("Error: " IntToStr(res) "\ntparmerr=" IntToStr(parm_err));
}
}

(2)以下連結有相關的 Win32 API 使用說明

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/stgmgmt/fs/netshareadd.asp

感謝大大的指導,我來去試試

可否在請問一個問題，我用NetShareAdd已可以建立一個網路共享資料夾，但其它電腦卻無法開啟該資料夾，出現權限不足，但其它電腦開啟由檔案總管設定共享資料卻可以開啟，唯獨我用程式建立的共享資料夾無法開啟，請問為何會如此，請各位知道的大大可否告知，謝謝