您现在的位置：星云电脑教程 >> 电脑教程 >> 经验共享 >> 操作系统 >> win98-win2000-NT >> 正文

在WIN2000与98中创建共享文件夹

星云电脑教程文章来源：PConline 作者：happy_da… 更新时间：2004-8-4 9:29:53 点击数【有问必答】

在去年写的‘使用SQLSERVER的扩展存储过程实现远程备份与恢复一文中许多人都提到如何在程序中创建共享文件夹的问题，我当时因为工作忙，只看到了留言没有及时去回复，对读者造成的不便深感抱歉。在此文中，我就把如何在WIN2000与WIN98中创建共享文件夹的代码一一列出（包括相关的一系列网络函数等），以慰大家。

unit PubLib;

interface

uses
windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Menus, ComCtrls, ToolWin, Db, ADODB, DBCtrls, StdCtrls,Math,dbgrids,
Buttons, ExtCtrls,clipbrd,Registry, variants;
const
NTlib = 'NETAPI32.DLL';
MElib = 'SVRAPI.DLL';
{共享类型}
STYPE_DISKTREE = 0 ;
STYPE_PRINTQ = 1 ;
STYPE_DEVICE = 2 ;
STYPE_IPC = 3 ;
{访问权限}
ACCESS_READ = 0 ;
ACCESS_WRITE = 1 ;
ACCESS_CREATE = 2 ;
ACCESS_EXEC = 3 ;
ACCESS_DELETE = 4 ;
ACCESS_ALL = 7 ;

type
NET_API_STATUS = DWord;
//纪录类型声明，注意参数类型的正确对应，最好别看 delphi 的帮助，引起误导
TSHARE_INFO_502 = record
shi502_netname: PWideChar;
shi502_type: DWord;
shi502_remark: PWideChar;
shi502_permissions: DWord;
shi502_max_uses: DWord;
shi502_current_uses: DWord;