打开WEBBROWSER的选中文件路径
2013-10-29 10:48
429 查看
uses CommCtrl, httpApp, ShellApi;
{
GetWebPath(WebBrowser1);
}
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]);
// Result := StringReplace(Result, '%20', ' ', [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 := HttpDecode(Result + fileName);
end;
来自为知笔记(Wiz)
{
GetWebPath(WebBrowser1);
}
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]);
// Result := StringReplace(Result, '%20', ' ', [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 := HttpDecode(Result + fileName);
end;
来自为知笔记(Wiz)
相关文章推荐
- 汇编中结构体的声明与定义
- 字符串倒序 单词次序不变----
- 虚拟机下(Ubuntu12.04)与windows文件共享传输
- Android系统手机端抓包方法
- Nginx-防止负载过高模块sysguard
- Java 多线程运行时的两种关系
- "Linus Torvalds" 语录
- "Linus Torvalds" 语录
- (eular)最大公约(1552)
- 5.3指针和数组
- 中兴手机指令集,哥刚入手的小旋风
- shell 批量修改密码
- Mongodb启动命令mongod参数说明
- 高点击率的BANNER设计14招
- Latch的使用详解
- VC自动发送邮件程序
- Jquery系列-JqueryAPI
- 【discuzx2】space_album_list.htm
- 自定义的带tab的可左右滑动的viewpager之三fragment之间信息的传递
- 微信公众号开发第一课 预备知识和申请权限账号