正在阅读：在WIN2000与98中创建共享文件夹在WIN2000与98中创建共享文件夹

2004-03-18 14:45 出处：PConline 作者：happy_david 责任编辑：linjixiong

在去年写的‘使用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;

察看评论详细内容我要发表评论