PB获取系统目录,我的文档等Api调用实例
来源:互联网 发布:网络通信的工作原理 编辑:程序博客网 时间:2024/05/22 08:06
PB获取系统目录,我的文档等Api调用实例
一个比较全的代码
函数声明
Function long SHGetSpecialFolderLocation (Long hwndOwner, Integer nFolder, ref Long ppidl) library "shell32.dll"
Function long SHGetPathFromIDList(long pidl, ref String szPath) library "shell32.dll" Alias for "SHGetPathFromIDListA"
Function long GetWindowsDirectory (ref String lPBuffer, Long nSize) Library "kernel32" Alias for "GetWindowsDirectoryA"
Function long GetSystemDirectory (ref String lpBuffer, Long nSize) Library "kernel32" Alias for "GetSystemDirectoryA"
Function long GetTempPath (Long nBufferLength, ref String lpBuffer) Library "kernel32" Alias for "GetTempPathA"
代码
Constant integer MAX_LEN = 200//字符串最大长度
Constant integer DESKTOP = 0//桌面
Constant integer PROGRAMS = 2//程序集
Constant integer MYDOCUMENTS = 5//我的文档
Constant integer MYFAVORITES = 6//收藏夹
Constant integer STARTUP = 7//启动
Constant integer RECENT = 8//最近打开的文件
Constant integer SENDTO = 9//发送
Constant integer STARTMENU = 11 //开始菜单
Constant integer NETHOOD = 19//网上邻居
Constant integer FONTS = 20//字体
Constant integer SHELLNEW = 21//ShellNew
Constant integer APPDATA = 26//Application Data
Constant integer PRINTHOOD = 28//PrintHood
Constant integer PAGETMP = 32//网页临时文件
Constant integer COOKIES = 33//Cookies目录
Constant integer HISTORY = 34//历史
StringsTmp //存放结果的固定长度的字符串
LongLength//字符串的实际长度
Longpidl//某特殊目录在特殊目录列表中的位置
Stringls_data, ls_path
//获得Windows目录
sTmp = space(200)
Length = GetWindowsDirectory(sTmp, MAX_LEN)
ls_path = Left(sTmp, Length)
ls_data += ls_path + "~r~n"
//获得System目录
sTmp = space(200)
Length = GetSystemDirectory(sTmp, MAX_LEN)
ls_path = Left(sTmp, Length)
ls_data += ls_path + "~r~n"
//获得Temp目录
sTmp = space(200)
Length = GetTempPath(MAX_LEN, sTmp)
ls_path = Left(sTmp, Length)
ls_data += ls_path + "~r~n"
//获得DeskTop目录
SHGetSpecialFolderLocation(0, DESKTOP, pidl)
SHGetPathFromIDList(pidl, sTmp)
ls_path = sTmp
ls_data += ls_path + "~r~n"
//获得发送到目录
SHGetSpecialFolderLocation(0, SENDTO, pidl)
SHGetPathFromIDList(pidl, sTmp)
ls_path = sTmp
ls_data += ls_path + "~r~n"
//获得我的文档目录
SHGetSpecialFolderLocation(0, MYDOCUMENTS, pidl)
SHGetPathFromIDList(pidl, sTmp)
ls_path = sTmp
ls_data += ls_path + "~r~n"
//获得程序集目录
SHGetSpecialFolderLocation(0, PROGRAMS, pidl)
SHGetPathFromIDList(pidl, sTmp)
ls_path = sTmp
ls_data += ls_path + "~r~n"
//获得启动目录
SHGetSpecialFolderLocation(0, STARTUP, pidl)
SHGetPathFromIDList(pidl, sTmp)
ls_path = sTmp
ls_data += ls_path + "~r~n"
//获得开始菜单目录
SHGetSpecialFolderLocation(0, STARTMENU, pidl)
SHGetPathFromIDList(pidl, sTmp)
ls_path = sTmp
ls_data += ls_path + "~r~n"
//获得收藏夹目录
SHGetSpecialFolderLocation(0, MYFAVORITES, pidl)
SHGetPathFromIDList(pidl, sTmp)
ls_path = sTmp
ls_data += ls_path + "~r~n"
//获得最后打开的文件目录
SHGetSpecialFolderLocation(0, RECENT, pidl)
SHGetPathFromIDList(pidl, sTmp)
ls_path = sTmp
ls_data += ls_path + "~r~n"
//获得网上邻居目录
SHGetSpecialFolderLocation(0, NETHOOD, pidl)
SHGetPathFromIDList(pidl, sTmp)
ls_path = sTmp
ls_data += ls_path + "~r~n"
//获得字体目录
SHGetSpecialFolderLocation(0, FONTS, pidl)
SHGetPathFromIDList(pidl, sTmp)
ls_path = sTmp
ls_data += ls_path + "~r~n"
//获得Cookies目录
SHGetSpecialFolderLocation(0, COOKIES, pidl)
SHGetPathFromIDList(pidl, sTmp)
ls_path = sTmp
ls_data += ls_path + "~r~n"
//获得历史目录
SHGetSpecialFolderLocation(0, HISTORY, pidl)
SHGetPathFromIDList(pidl, sTmp)
ls_path = sTmp
ls_data += ls_path + "~r~n"
//获得网页临时文件目录
SHGetSpecialFolderLocation(0, PAGETMP, pidl)
SHGetPathFromIDList(pidl, sTmp)
ls_path = sTmp
ls_data += ls_path + "~r~n"
//获得ShellNew目录
SHGetSpecialFolderLocation(0, SHELLNEW, pidl)
SHGetPathFromIDList(pidl, sTmp)
ls_path = sTmp
ls_data += ls_path + "~r~n"
//获得Application Data目录
SHGetSpecialFolderLocation(0, APPDATA, pidl)
SHGetPathFromIDList(pidl, sTmp)
ls_path = sTmp
ls_data += ls_path + "~r~n"
//获得PrintHood目录
SHGetSpecialFolderLocation(0, PRINTHOOD, pidl)
SHGetPathFromIDList(pidl, sTmp)
ls_path = sTmp
ls_data += ls_path + "~r~n"
messagebox('', ls_data)
- PB获取系统目录,我的文档等Api调用实例
- 获取 我的文档 等目录
- Qt4 获取桌面、我的文档、Home等目录
- 获取系统特殊路径如:我的文档,开始路径等
- 获取系统特殊路径如:我的文档,开始路径等
- windows上获取“我的文档”目录
- 修改收藏夹,我的文档等目录默认位置
- 使用MFC的API函数获取Window下的特殊目录(例如CSIDL_PERSONAL 我的文档)
- API之五在PB中如何获取目录信息
- API获取系统常用目录
- C#中获取我的文档系统文件夹路径
- PB API调用指南
- pb的api调用
- 解决《获取My Document目录错误,可能”我的文档“目录不存在》
- 在VBA中获取“我的文档”的目录路径
- C# 如何获取某用户的“我的文档”的目录
- PB获取系统打印机
- PB获取系统用户名
- HibernateTemplate删除方式 org.hibernate.MappingException: Unknown entity: java.lang.Long
- PostgreSQL VS MySQL's Storage EngineSss..
- 排序试题
- iphone中自定义Universal Framework
- 思想
- PB获取系统目录,我的文档等Api调用实例
- Spring Aop实现——Annotation方式(注解式)and Schema-based式(xml配置)
- js调用浏览器打印功能
- Ext comboBoxTree (完整的数据加载)--下拉列表里边是树结构
- Cannot create PoolableConnectionFactory (ORA-01017: invalid username/password; logon denied
- WHY prepared Statement running slower in some situation
- 虚方法在类继承中的使用
- ORA-01017 invalid username/password;logon denied" (密码丢失解决方案)
- Boost 编译