2013年10月29日
打开WEBBROWSER的选中文件路径
摘要： 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_CH 阅读全文
posted @ 2013-10-29 10:48 XE2011 阅读(481) 评论(0) 推荐(0)