передача параметров окну

[DinamoBrynsk]

h:=FindWindow(0,'яндекс-Opera');
SendMessage(h,WM_KEYDOWN,VK_control,ord('w')); 
SendMessage(h,WM_KEYUP,VK_control,ord('w'));

нужно передать опере закрытие вкладки. не работает
или подскажите с заменой url:

procedure TForm1.Button1Click(Sender: TObject);
var h:hwnd;
    s:string;
begin
//"вводим" изменённый адрес
h:=FindWindow(0,'яндекс-Opera');
s:='www.rambler.ru';
SendMessage(h, WM_SETTEXT, 0, longint(Pchar(s)));
//"нажимаем" клавишу "Ввод" (Enter)
SendMessage(h, WM_KEYDOWN, VK_RETURN, 0);
end;

[asmodey1]

А чему равен дескриптор окна h ? Не нулю ли ?

[DinamoBrynsk]

а как правильно написать?

[MaxNik2009]

а как правильно написать?

procedure TForm1.Button1Click(Sender: TObject);
var h:hwnd;
    s:string;
begin
//"вводим" изменённый адрес
h:=FindWindow(0,'яндекс-Opera');
if h <> 0 then
begin
  s:='www.rambler.ru';
  SendMessage(h, WM_SETTEXT, 0, longint(Pchar(s)));

  //"нажимаем" клавишу "Ввод" (Enter)
  SendMessage(h, WM_KEYDOWN, VK_RETURN, 0);
  SendMessage(h, WM_KEYUP, VK_RETURN, 0);
end ;
end;

[DinamoBrynsk]

всеравно не работает

[DinamoBrynsk]

спасибо всем. Разобрался. Нужно вот так для закрытия вкладки:

var
  h : thandle;
  s:Pchar;
begin
s:='Яндекс - Opera';
    h := findwindow(nil,s);
    if h<> NULL then begin
    SetForegroundWindow(h);
    keybd_event(VK_CONTROL, 0, 0, 0);
    keybd_event(vk_f4, 0, 0, 0);
    keybd_event(vk_f4, 0, KEYEVENTF_KEYUP, 0);
    keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0);
end;