veURL是什么?

finesky 2008-04-01 08:54:01

以下一段代码,我在delphi在试验时,发现veURL不知道是什么,不知道如何声明?

===========================================
监视IE的地址栏
procedure TForm1.GetWndClassName(wnd: HWND);
var
fwIE:HWND;
fwIEChild:HWND;
pTxt,pCap:PChar;
begin
GetMem(pTxt,256);
try
fwIEChild :=GetWindow(wnd,GW_CHILD);
while fwIEChild<>0 do
begin
GetClassName(fwIEChild,pTxt,256);
if pTxt='Edit' then
begin
GetMem(pCap,256);
try
sendmessage(fwIEChild,WM_GETTEXT,256,integer(pCap));
if not ExistsTheValue(strpas(pCap),veURL.Strings) then
veURL.Strings.Add(Format('%s=%s',[DateTimeToStr(now),strpas(pCap)]));
finally
FreeMem(pCap);
end;
end;
GetWndClassName(fwIEChild);
fwIEChild:=GetWindow(fwIEChild,GW_HWNDNEXT);
end;
finally
FreeMem(pTxt);
end;
end;

procedure TForm1.btnExitClick(Sender: TObject);
begin
close;
end;

procedure TForm1.btnClearClick(Sender: TObject);
begin
veURL.Strings.Clear;
end;

procedure TForm1.btnSaveClick(Sender: TObject);
begin
if SaveDialog1.Execute then
veURL.Strings.SaveToFile(SaveDialog1.FileName);
end;

procedure TForm1.btnStartClick(Sender: TObject);
begin
timer1.Enabled :=btnStart.Caption ='开始监视';
if timer1.Enabled then
begin
btnStart.Caption :='停止监视';
StatusBar1.Panels[0].Text :='正在工作';
end
else
begin
btnStart.Caption :='开始监视';
StatusBar1.Panels[0].Text :='停止';
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
fwIE:HWND;
fwIEChild:HWND;
begin
fwIE :=FindWindow('IEFrame',nil);
if fwIE=0 then
begin
Application.MessageBox('没有启动IE浏览器!','提示',MB_ICONHAND);
timer1.Enabled :=false;
exit;
end;
GetWndClassName(fwIE);
end;

function TForm1.ExistsTheValue(sValue:string;sList: TStrings): boolean;
var
i:integer;
begin
Result :=false;
for i:=0 to sList.Count -1 do
if sValue=Copy(sList.Strings[i],Pos('=',sList.Strings[i])+1,256) then
Result:=true;
end;
以上程序在WINDOWS2000下运行通过.

...全文
13 点赞 收藏 1
写回复
1 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
gjw310 2008-04-04
好像是个自定义的string类型,查查windows sdk
回复
相关推荐
发帖
网络通信/分布式开发
创建于2007-08-02

1573

社区成员

Delphi 网络通信/分布式开发
申请成为版主
帖子事件
创建了帖子
2008-04-01 08:54
社区公告
暂无公告