问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

DELPHI 如何获得 Webbrowser 浏览文件夹 选中的文件路径

发布网友 发布时间:2022-04-27 00:03

我来回答

3个回答

热心网友 时间:2022-06-20 20:09

//哥封装的函数
function GetWebPath(web:TWebBrowser): string;
var
item : TLvItem;
clsName: array[0..MAX_PATH] of char;
hwndLv: HWND;
selCount,fileCount,selMark:integer;
fileName: array[0..MAX_PATH] of char;
begin
hwndLV := GetWindow(web.Handle,GW_CHILD);
hwndLV := GetWindow(hwndLV,GW_CHILD);
GetClassName( hwndLV,clsName,MAX_PATH);
if(UpperCase(clsName)<>'SYSLISTVIEW32')then Exit;
Result := web.LocationURL;
Result := StringReplace(Result,'file:///','',[rfIgnoreCase]);
Result := StringReplace(Result,'/','\',[rfReplaceAll]);
if(Result[length(Result)]<>'\')then
Result := Result + '\';

fileCount := ListView_GetItemCount(hwndLV);
selCount := ListView_GetSelectedCount(hwndLV);
selMark := ListView_GetSelectionMark(hwndLV);
if(selCount=0)or(selMark=-1)then
exit;

ListView_GetItemText(hwndLV,selMark,0,@fileName[0],MAX_PATH);

Result := Result + fileName;
end;

//调用示例
procere TForm1.Button1Click(Sender: TObject);
begin
ShowMessage( GetWebPath(WebBrowser1) );
end;

注意:
uses commctrl

热心网友 时间:2022-06-20 20:10

虽然webbrowser可以实现查看文件夹的功能,但是你可以试一下,当你要打开某个文件夹的时候,实际是在资源管理器中打开的,使用webbrowser是没法查看文件的完整路径的,要想实现资源管理器的功能,建议使用listview控件

热心网友 时间:2022-06-20 20:10

占位看解决方法
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
倩碧黄油适合哪种肤质的人使用? 倩碧有哪些护肤品比较受女性青睐? 倩碧紧致面霜适合哪些肤质的人使用? 倩碧护肤品适合什么肤质使用? 哪些肤质的人适合使用倩碧卓越润肤乳? 学校发的移动卡,套餐38的送一年宽带 现在卡不想用了,貌似宽带合约没到期... ...我居住浙江,有一个广西的移动卡,移动卡上还捆绑有宽带 我现在在外地我想注销移动卡或者联通卡怎么注销,回不到办卡的地方。 上海最建议去三个景点 为什么叫北京鸭篮球 web gateway是什么意思 推荐几首外国诗歌 很有特点的 如果可以 请赏析下 并介绍作者 写一篇大家都熟悉的诗歌赏析文章,简要介绍 特点,作者,尽量500到600字... 古代诗歌四首作家作品介绍 古诗词: 孟郊的《游子吟》诗跟作者介绍 诗歌的介绍作品原文 诗歌的写作 诗歌可以从哪些方面介绍? 什么是诗歌创作? 介绍点优美的诗歌...还有作者.. 请你选择最喜欢的诗歌佳作,向同学们推荐介绍,150字左右。 华为手机双系统能同时接吗 两部华为可以同时登录一个吗 华为手机能同时两个手机登一个吗 华为手机双系统能同时接吗 华为手机双系统能同时接吗 快手作品里出现支付宝余额图片可以吗? 货车皮带式打气泵? 打气泵排气阀十来秒排一次气正常吗? 柴油货车气泵在哪想看图 VC 如何获取WebBrowser控件里面网页句柄 [114电影网全新域名我愿意.HD-Web1280高清国语中英双字种子下载地址有么?好人一生平安 如何搭配 webpack 使用 babel 如何保证单位的对外web服务器,单位内部网络安全。 如何获取ACCESS2003中Webbrowser控件的句柄? vb 控件webbrowser 句柄问题 哪些硬件防火墙有WEB界面 手机版的wps,为什么复制粘贴文档后,图片只显示“图片”两字? sap怎么查看webservice 哈佛h1车架号Lgwed2a35ge018254请问这台车是哪一年的 电波表在计时模式中出现mon在按一下d键nyc佐小盘指向m是什么意思我的手表型号是gw3500d-1a delphi webbrower与 sendmessage的问题 200分问个英语网页的内容 tomcat 中, 在web.xml中增加定时器定义后,整个web.xml就不起作用了 为什么? 报社里面总编室主任是什么级别 总编室职能 总编室的出版社总编室 图书出版中,编辑加工阶段的流程是什么?总编室都做什么?请详细说明,小菜鸟请教高人~万分感谢~ 总编室的介绍 总编辑室助理是干什么的