application.messagebox('请先选择一个目录！', '共享', mb_iconinformation + mb_ok);
btselect.click;
exit;
end;
if editsharename.text = '' then
begin
application.messagebox('请先输入共享名称！', '共享', mb_iconinformation + mb_ok);
editsharename.setfocus;
exit;
end;
shareresource('eengi',editdir.text,editsharename.text,editinfo.text);
{注意：如果在共享目录名称后面添加 $ 符号，共享后在网络邻居里看不到此文件夹
但实际上已经共享了，你可以在本地看到}
end;
end.
以下是单元文件：
unit my_share;
interface
uses
windows,sysutils ;
type
