哪里有问题了！？(100分)

这是我写的用netshareADD函数的代码，共享是可以成功的共享，不过有很多地方出错了，比如共享之后共享名字是乱吗，mark也是乱吗，密码设定了之后没有变化，我都在下面说明了那里有问题了
还有就是我实在win2000下用的，win98下是不是应该用Share_INFO_502这个！如果可以能不能给出你们的代码来，让我研究研究
TShare_INFO_2 = record
shi2_netname : PWideChar;
shi2_type : Longword;
shi2_remark : PWideChar;
shi2_permissions : Longword;
shi2_max_uses : Longword;
shi2_current_uses : Longword;
shi2_path : PWideChar;
shi2_passwd : PWideChar;
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:Longword;
severname: pchar;
servername:OSVERSIONINFO;
PwStringwideChar;
wstring:string;
begin
wstring:='savedfdf';

si.shi2_netname :='save';//这里如果用一个string的型的变量然后用pwidechar()来把他转化成pwidechar类型的话最后里乱吗
si.shi2_type :=0;
si.shi2_remark :='abcde';//这里也和上面的一样
si.shi2_permissions := ;//这里如果填写ACCESS_READ这类的参数的话程序说未指定ACCESS_READ(其他的参数也一样)
si.shi2_max_uses :=10;
si.shi2_current_uses :=10;
si.shi2_path :='f:/save';
si.shi2_passwd :='123456';//这个密码设定之后和没有设定好像没有什么变化，如何使这个密码有效果，或者如何可以看出密码成功设定了！谢谢了！
//GetVersionEx(servername);
NetShareAdd('lonelybug',2,@si,parm_err);
‘lonelybug’是计算机的名字请问我想面的这个程序写的队吗！？