veURL是什么？

[finesky]

以下一段代码，我在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下运行通过.

[gjw310]

好像是个自定义的string类型，查查windows sdk