D dxpjj Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-12 #1 提供控件者加100分(类似于DirectoryListBox,但一定要显示桌面，我的电脑)， 如winzip8.0中的Extract中的那样！ 在线等侯...
D delphi Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-12 #2 Delphi 6的Samples里面不是有吗？ ShellTreeView....
易 易名烦 Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-12 #4 pbfolderdialog,我用过,很好,给其它的标准DIALOG一样,我可以给你发过来,邮箱!
A Adnil Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-12 #5 找个Delphi 6，把Sample中的Shell一套组件的源代码拷贝过来，安装一下不就行了吗？
D DZHZH2000 Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-12 #6 何必呢？用这个函数BrowseDirectory() rxlib套件的fileutil单元有。
D dxpjj Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-12 #7 应类似于DirectoryListBox,而不是跳出来对话框
小 小隐 Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-12 #8 用这段代码试试…… 一定义Uses CommDlg哦！ var ofn: TOpenFileName; szFile: array[0..MAX_PATH] of Char; Result: string; beign FillChar(ofn, SizeOf(TOpenFileName), 0); with ofn do begin lStructSize := SizeOf(TOpenFileName); hwndOwner := Handle; lpstrFile := szFile; nMaxFile := SizeOf(szFile); lpstrTitle := PChar('打开'); lpstrInitialDir := nil; lpstrFilter := PChar('所有文件(*.*)'#0'*.*'#0); Flags := 6148; end; if GetOpenFileName(ofn) then begin Result := StrPas(ofn.lpstrFile); //在这里加入自己的代码 end;
用这段代码试试…… 一定义Uses CommDlg哦！ var ofn: TOpenFileName; szFile: array[0..MAX_PATH] of Char; Result: string; beign FillChar(ofn, SizeOf(TOpenFileName), 0); with ofn do begin lStructSize := SizeOf(TOpenFileName); hwndOwner := Handle; lpstrFile := szFile; nMaxFile := SizeOf(szFile); lpstrTitle := PChar('打开'); lpstrInitialDir := nil; lpstrFilter := PChar('所有文件(*.*)'#0'*.*'#0); Flags := 6148; end; if GetOpenFileName(ofn) then begin Result := StrPas(ofn.lpstrFile); //在这里加入自己的代码 end;
O OopsWare Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-12 #9 http://www.delphibbs.com/delphibbs/dispq.asp?lid=907024 中的 ShellPack 控件组不错...
Q QuickSilver Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-12 #10 TLsDirTree21 v2.862 http://www.delphibyte.com/download/softlist.php?category=19
