关于利用Twebbroweser访问磁盘的问题...请讨论!(200分)

  • 主题发起人 主题发起人 chenshan
  • 开始时间 开始时间
C

chenshan

Unregistered / Unconfirmed
GUEST, unregistred user!
例如:
执行webbrowser.nevigate('D:')
在控件Webbrowser中进入D盘,当点击D盘中某一文件怎么能获的该文件的文件名或路径
并且赋值到一个edit1
 
var
Flags: OLEVariant;

begin
Flags := 0;
UpdateCombo := True;
try
WebBrowser1.Navigate(WideString(Edit1.Text), Flags, Flags, Flags, Flags);
except
WebBrowser1.Navigate(WideString('C:'), Flags, Flags, Flags, Flags);
end;
 
aomiao
我要求的是:
当点击D盘中某一文件时,怎么能获的该文件的文件名或路径.
请帮帮忙!
 
大家请帮忙!分数不够可以加!
 
难道真的没有人会吗?
 
我觉得不太可能。你可以不用webbrowser,用其它控件,比如DFS的SysListView。
 
WebBrowser1.Navigate(PChar('file:///d:/'))
 
smilboy:
这是赋值,我要的是获取
 
用DDE
procedure Tform1.button1Click(Sender:TObject);
var
DDE:TDdeclientConv;
begin
DDE:TDdeClientConv.Create(self);
if DDE.SetLink('Iexplore','WWW_GetWindowInfo') then
edit1.text:=DDE.RequestData('0xFFFFFFFF',SURL,sTitle');
else
Showmessage('Not Found Ie');
DDE.free;
end;
 
smilboy:
TDdeclientConv;是什么来的....
 
webbrowser 控件的befornavagitate2事件的url属性
 
后退
顶部