请问需要引用什么单元，才能够识别PITEMIDLIST，BROWSEINFO...?

cokegirl 2002-01-22 01:09:36

请教高手，我copy了一段程序，其中用到了
PITEMIDLIST
BROWSEINFO
SHGetSpecialFolderLocation
CSIDL_NETWORK
TBrowseInfo
这些东东导致我的程序无法编译，总是提示Undeclared indentifier:"xxx"。
这是怎么回事？

...全文

252 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

王集鹄 2002-01-22

打赏
举报

当不知道标识是什么单元声明的时候
最有效的方法是
用Win系统的 "查找文件"

名称="*.pas"
包含文字="<未知标识>"
搜索="C:\Program Files\Borland\Delphi6"

除非是在dcu中
试试，很管用

王集鹄 2002-01-22

打赏
举报

uses
ShellApi, ShlObj;

MFC打开文件和文件夹一、利用API实现打开文件对话框和利用MFC来实现打开文件对话框。方法一：API部分： // OPENFILENAME ofn; // TCHAR szFile[MAX_PATH]; // ZeroMemory(&ofn,sizeof(ofn)); // ofn.lStructSize = sizeof(ofn); // ofn.lpstrFile = szFile; // ofn.lpstrFile[0] = TEXT('/0'); // ofn.nMaxFile = sizeof(szFile); // ofn.lpstrFilter = TEXT("all/0*.*/0jpg/0*.jpg/0bmp/0*.bmp/0"); //定义三个选项，all，text和exe // ofn.nFilterIndex = 1; //定义首选项是哪一个 // ofn.lpstrFileTitle = NULL; // ofn.nMaxFileTitle = 0; // ofn.lpstrInitialDir = NULL; // ofn.Flags = OFN_EXPLORER |OFN_PATHMUSTEXIST | OFN_FILEMUSTEXIST; // if(GetOpenFileName(&ofn)) // { // ::SetDlgItemText(this->m_hWnd,IDC_EDIT1,szFile); // } 方法二、MFC实现 // CFileDialog dlg(TRUE, NULL, NULL, // OFN_HIDEREADONLY | OFN_OVERWRITEPROMPT, // NULL); // // if(dlg.DoModal() == IDOK) // { // szFilename = dlg.GetPathName(); // ::MessageBox(NULL,szFilename,NULL,MB_OK); // } 注意：打开文件的方式和打开文件夹的方式是不同的。打开文件的方式是不断的打开直到出现末端为文件，否则遇到文件夹还要继续打开。而打开文件夹则是只要选择到一个路径的文件夹就打开。下面的这种方式是打开文件夹：MFC实现。 static TCHAR strDirName[MAX_PATH]; BROWSEINFO bi; CString szString = TEXT("选择一个源文件子文件夹"); bi.hwndOwner = ::GetFocus(); bi.pidlRoot = NULL; bi.pszDisplayName = strDirName; bi.lpszTitle = szString; bi.ulFlags = BIF_BROWSEFORCOMPUTER | BIF_DONTGOBELOWDOMAIN | BIF_RETURNONLYFSDIRS; bi.lpfn = NULL; bi.lParam = 0; bi.iImage = 0; LPITEMIDLIST pItemIDList = ::SHBrowseForFolder(&bi); if(pItemIDList == NULL) { return ; } ::SHGetPathFromIDList(pItemIDList, strDirName); CString str = strDirName; if(str != "" && str.Right(1) != '//') str += '//'; ::SetDlgItemText(this->m_hWnd,IDC_EDIT1,str);

资源管理器树状菜单,Delphi源代码，也就是Windows资源管理器中的展开树菜单，通过这个菜单你或许能了解到：　　几个对项目标识符进行操作的函数、将二进制表示的项目标识符列表转换成有可识的项目名、获得每个文件夹在系统中的图标、获得系统的图标列表、生成文件夹管理树等等技巧。　　需要注意：　　ParentFolder: IShellFolder; // 节点对应的文件夹的父文件夹的IShellFolder接口　　Pidl, FullPidl: PItemIDList;// 节点对应的文件夹的相对和绝对项目标识符列表　　HasExpanded: Boolean; // 节点是否展开

一个Delphi编写的相当不错的TreeView树控菜单，类似于Windows资源管理器中的树状菜单。　　ParentFolder: IShellFolder; // 节点对应的文件夹的父文件夹的IShellFolder接口　　Pidl, FullPidl: PItemIDList;// 节点对应的文件夹的相对和绝对项目标识符列表　　HasExpanded: Boolean; // 节点是否展开　　通过这个树形菜单制作实例，你可以学习到几个对项目标识符进行操作的函数，同时还有将二进制表示的项目标识符列表转换成有可识的项目名，获得每个文件夹在系统中的图标，获得系统的图标列表，生成文件夹管理树等。

uses ShellAPI, ShlObj; procedure TForm1.Button1Click(Sender: TObject); var TitleName : string; lpItemID : PItemIDList; BrowseInfo : TBrowseInfo; DisplayN...

非技术区

829

社区成员

53,610

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章