[KoLoB]

Нужно отслеживать на какие странички заходил пользователь и писать лог.

Насколько я понимаю это можно сделать через хуки.

Приведите пожалуйста пример или часть кода.


З.Ы. Надо отследить странички, которые запращиваються не только в ИЕ, но и опере, файерфоксе и т.д.

[zoltan]

Попробуй так

Код:

uses
  windows, ddeman, ...


function Get_URL(Servicio: string): string;
var
  Cliente_DDE: TDDEClientConv;
  temp: PChar;      //<<-------------------------This is new
begin
  Result := '';
  Cliente_DDE:= TDDEClientConv.Create( nil );
  with Cliente_DDE do
  begin
    SetLink( Servicio,'WWW_GetWindowInfo');
    temp := RequestData('0xFFFFFFFF');
    Result := StrPas(temp);
    StrDispose(temp);  // <<-- Предотвращаем утечку памяти
    CloseLink;
  end;
  Cliente_DDE.Free;
end;

procedure TForm1.Button1Click(Sender);
begin
   showmessage(Get_URL('Netscape'));
// или
   showmessage(Get_URL('IExplore'));
//или
   showmessage(Get_URL('Opera'));
end;