[Alegun]

Скачайте себе drkb, там есть всё

Код:

uses ddeman;
function Get_URL(Servicio: string): String;
var
 Cliente_DDE: TDDEClientConv;
 temp:PChar;
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.Timer1Timer(Sender: TObject);
begin
if Get_URL('IExplore') = 'odnoklassniki.ru/games' then ShowMessage('иди на кухню!');
end;