Window SubClassing另类运用（之二）

Window SubClassing另类运用（之二）

你大概已经熟悉通用对话框（打开/保存文件，选择字体/颜色，以及查找和替换）的使用，不过你是否了解如何调用“选择文件夹”对话框呢？如果答案是否的话，你可以先看看一个简单的例子，籍以做个热身。如果你自认为已经了解它的话，可以跳过下面这一段。

要调用“选择文件夹”对话框，和其他通用对话框所使用的方法非常类似：一个结构（BROWSEINFO）加一个函数（SHBrowseForFolder）即可。请看代码：

procedure TForm1.Button2Click(Sender: TObject);

var

bi : BROWSEINFO;

szDisplay : array[0..MAX_PATH] of char;

pidl : PItemIDList;

str : string;

begin

with bi do begin

hwndOwner := Handle;

pidlRoot := nil;

pszDisplayName := szDisplay;

lpszTitle := ''''Select a Directory'''';

ulFlags := BIF_RETURNONLYFSDIRS or BIF_STATUSTEXT;

lpfn := @BrowseCallback;

lParam := 0;

end;

pidl := SHBrowseForFolder(bi);

if pidl<>nil then begin

SetLength(str, MAX_PATH);

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有