如何实时监控ie地址栏中的地址变化?
解决方案 »
- 利用delphi自带的Tchart想实现如下的功能:
- 请各位大侠帮我看看这个程序有什么问题?在线等!
- 【裸体后空翻3周半加转体1080度双膝落地跪求】视频通讯相关问题,有经验的大虾进来!(在线)
- 请教有关clientDataset的问题
- 此错误是否因为控件没有被包含进来?急需答案。
- 分布式开发问题?在线等待!
- 请教 当输入的id号在表中不存在则返回信息“此ID不存在”的存储过程如何实现?
- 为什么ADOQuery1在OPEN以后如果窗口CLOSE程序就出错呢
- 用quickrep做报表,怎样显示boolean型字段(急)
- DELPHI 5不能打开EXCEL2000????!!!!!
- 能不能这么用,大家帮个忙,进来看看
- 怎样给dxdbgrid或dxdbTreelist的某一个单元格添加背景图片或设置背景颜色?
{
参数说明:
sBrowerPrgFile: 浏览器exe文件的完整路径名
sServiceName: 浏览器的DDE-Service名字
Netscape是'Netscape',IE是'iexplore'
Title: 返回当前网页的title
返回值: pChar的字符串
}
var
DDEClientConv: TDDEClientConv;
StartPtr, EndPtr: pchar;
browserWinName: string;
begin
result:= #0;
Title:= ''; if (sBrowerPrgFile = '') or (not FileExists(sBrowerPrgFile)) then
raise EBrowserNotFoundError.create('shit!浏览器应用程序不存在!'); ddeClientConv:= TDDEClientConv.Create( nil );
try
with ddeClientConv do
begin
ServiceApplication := sBrowerPrgFile;
SetLink( sServiceName,'WWW_GetWindowInfo');
StartPtr:= RequestData('0xFFFFFFFF');
end;
finally
ddeClientConv.Free;
end; if startPtr^ = #0 then
exit;
{skip leading "}
inc(StartPtr);
EndPtr:= StartPtr;
{proceed to next "}
while (EndPtr^ <> '"') do
inc(EndPtr);
{terminate URL string}
EndPtr^:= #0;
result:= StartPtr;
{skip ","}
StartPtr:= EndPtr+3;
if Netscape then
inc(StartPtr,12); EndPtr:= StartPtr;
if Netscape then
while (EndPtr^ <> ']') do
inc(EndPtr)
else
while (EndPtr^ <> '"') do
inc(EndPtr); EndPtr^:= #0;
Title:= strPas(StartPtr);
end;
then use SetWindowlong to subclassing the window.
procedure TCustomRichEdit.WMPaint(var Message: TWMPaint);