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

占位看解决方法