我不过是想在delphi里实现读写IE地址栏里的字符串,难道 真的有那么难吗???
愁死我了。100分悬赏!有高手快来。最好说的明白点!!附原代码》
愁死我了。100分悬赏!有高手快来。最好说的明白点!!附原代码》
解决方案 »
- delphi下如何打印日文字体?
- adostoredproc输入出参数与select结果集的问题。
- 如何在一个窗体中引用其他窗体
- vc代码翻译成delphi
- 强烈抗议, 强烈抗议,CSDN打开页面老是弹出广告。拉圾
- 请问有谁知道delphi 6和delphi 7的发布时间啊?小弟急等
- oer谢谢你的原代码
- inttostr(Count mod 16)如何变成一个Char值??
- 关于使用wmp的一些问题..还有就是messagbox的一些问题
- 如何开始com和dll编程?
- 高手过来看看,我在Web ServerApplication中的ISAPO/NSAPI建立 在虚拟目录下就是出现不了
- 在线等 简单问题!fastreport怎么预览阿
function Get_URL(Servicio: string): String;varCliente_DDE: TDDEClientConv;temp:PChar;beginResult := '';Cliente_DDE:= TDDEClientConv.Create( nil );with Cliente_DDE dobeginSetLink( Servicio,'WWW_GetWindowInfo');temp := RequestData('0xFFFFFFFF');Result := StrPas(temp);StrDispose(temp);CloseLink;end;Cliente_DDE.Free;end;procedure TForm1.Button1Click(Sender: TObject);beginEdit1.Text := Get_URL('IExplore');end;-----------------------------------------------------I tried to "play" with the code a bit...it seems to work if i change temp := RequestData('0xFFFFFFFF') to:temp := RequestData('1'); //1 windowortemp := RequestData('2'); //2 windowortemp := RequestData('3'); //3 windowand so on... until temp returns '' (empty string)Anyway, try it.