119电脑网

当前位置: 主页 > Delphi >

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

时间:2013-09-18 01:12来源: 作者: 点击:
在此文中,我就把如何在win2000与WIN98中创建共享文件夹的代码一一列出(包括相关的一系列网络函数等),以慰大家。
  在去年写的‘使用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;




回顾文章:Win2000虚拟内存优化设置谈

但win2000采用页面文件的方式来实现虚拟内存的创建。你的主板能不能支持1G的物理内存?Win9x通常是利用安装目录中的Win386.swp这个交换文件来实现虚拟内存的创建。通常情况下,大家在使用时都是按照系统默认的设置让Windows管理虚拟内存,这样做比较方便。

(责任编辑:admin)
顶一下
(0)
0%
踩一下
(0)
0%
------分隔线----------------------------
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
表情:
用户名: 验证码:点击我更换图片
推荐内容