DELPHI中如何打开TEXT中指定路径的文件夹
答案:3 悬赏:60 手机版
解决时间 2021-12-23 09:47
- 提问者网友:最爱你的唇
- 2021-12-22 11:48
现在有一个edit,如何用delphi打开在edit.text中指定路径中的文件夹呢
最佳答案
- 五星知识达人网友:山君与见山
- 2021-12-22 11:55
//uses windows;
WinExec(pchar('Explorer.exe '+Edit.Text),SW_SHOWNORMAL);
WinExec(pchar('Explorer.exe '+Edit.Text),SW_SHOWNORMAL);
全部回答
- 1楼网友:舊物识亽
- 2021-12-22 14:19
方法有二,如下详述:
一、循环测试
已知相对路径,与绝对路径之差仅在于根路径,即探索究竟在哪个分区上,那么,最傻瓜的方法就是从c循环至z,逐一测试路径是否存在,大致代码为:
function geteurekalogdir : string;
const
c_sdir : string = 'eurekalog 5\delphi5';
var
i : integer;
s : string;
begin
result := '';
for i := ord( 'c' ) to ord( 'z' ) do
begin
s := chr( i ) + ':\' + c_sdir;
if directoryexists( s ) then
begin
result := s;
exit;
end;
end;
end;
也可以增加一点儿“技术含量”,不是简单地从c循环至z,而是先获取系统具有的分区配置,仅在配置列表中循环测试,调用getlogicaldrives或getlogicaldrivestrings均可实现。
二、查询注册表
不少软件安装后,会在注册表中记录其安装位置,对于eurekalog的安装位置,可以手工打开注册表编辑器(regedit),查找到它的位置,记住其关键的路径,然后编程序获取该路径下的键值。
这个方法应该更加正规,它还支持软件在安装之际,人为改变了安装路径的情形。例如,你把eurekalog安装在"c:\program files\mypreferred"等不带eurekalog字样的路径下时,也能找到它。
- 2楼网友:往事埋风中
- 2021-12-22 12:53
//添加Dialogs->OpenDialog
procedure TForm1.Button1Click(Sender: TObject);
begin
opendialog1.InitialDir:=edit1.Text; //edit1.text:=c:\
opendialog1.Execute;
end;
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯