shi502_path: pwidechar;
shi502_passwd: pwidechar;
shi502_reserved: dword;
shi502_security_descriptor: psecurity_descriptor;
end;
下面是完成的程序代码，其中有两部分，主程序和单元文件。运行环境 windows 2000 ads 开发工具 delphi5.0 。运行通过。
unit share;
interface
uses
windows, messages, sysutils, classes, graphics, controls, forms, dialogs,
stdctrls,filectrl,my_share;
type
tformshare = class(tform)
label1: tlabel;
label2: tlabel;
label3: tlabel;
btselect: tbutton;
editdir: tedit;//文件共享目录
