本文整理自网络,侵删。
procedure TForm1.btn1Click(Sender: TObject); var doc:olevariant; str:string; begin doc:=wb1.Document; str:=doc.all.xx.value; ShowMessage(str); end;
相关阅读 >>
Delphi shellexecute调用系统命令关闭计算机
更多相关阅读请进入《Delphi》频道 >>