OpenDialog问题，给分题(50分)

  • 主题发起人 kevin8093
  • 开始时间
K

kevin8093

Unregistered / Unconfirmed
GUEST, unregistred user!
1 我想用OpenDialog选择目录，这要求得到目录就可以了，不可选择目录下的文件
2 我想得到我算选择的目录的名字，filename得到的是绝对路径，我只要文件夹的名字就行了
，扯了用截取字符串的方法外有没有更简单的办法？
 
2.extractfilepath('文件名')

aaa:=extractfilepath('c:/windows/notepad.exe') //返回值为'c:/windows'
 
to jyh_jack：你看我的第一个问题，我想得到文件夹，这是的filename应该不是那样的吧？
我想得到我选择的文件夹的名字。
 
SelectDirectory("选择路径","C:",dir)；试试这个函数，呵呵，C：是开始打开盘符，dir
是你要的返回值。
 
第一个问题：我也有这个疑问，后来想想，觉得单用 OpenDialog 是无法实现的，我觉得
比较好的办法就是 用一个 TreeView 控件，将其 MultiSelect 属性设为 True，然后自己
递归搜索文件夹树，就像 Sample => ShellTreeView （可惜它没有 MultiSelect）一样。
 
SelectDirectory
 
if OpenDialog.Execute then
EditPath.Text := ExtractFilePath(OpenDialog.FileName);
设置：
OpenDialog.filter:='目录';
OpenDialog.Filename:='选择好路径点两次“打开”即可';
 
我有现成的控件， 要吗？
 
我的mail是kevin8093@hotmail.com，如果有控件的话谢了
 
知麻大问题也要控件解决?!
打死你我也不干:0(
 
user FileCtrl;
procedure TForm1.Button1Click(Sender: TObject);
var dir:string;
begin
if SelectDirectory ('选择路径','C:',dir) then
begin
showmessage('你选择了:'+dir);
end;
end;
 
有专门的目录选择对话框的API函数SelectDirectory，
你在使用它时，还得uses一个单元，
这个单元我记不得了，可能叫ShellAPI吧，

你找找看了
 
SelectDirectory要引用 FileCtrl 单元, 不是shellapi
 
大哥，MR.ZY写的太对头了，就是有个小小的问题问一下：
怎么让它弹出后在应用程序的中间，而不是在右下角！
 
接受答案了.
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
B
请问，如何在选择文件对话框（最好是OpenDialog）中限制根目录？(100分)
回复
19
查看
127
balloy
B
L
opendialog的使用问题。(10分)
回复
3
查看
94
luckhacker
L
C
如何取出OpenDialog选择的文件名？(30分)
回复
4
查看
65
tomol
T
L
有用来选择目录的控件吗？(50分)
回复
9
查看
88
ly_8
L
顶部