procedure TForm1.Button1Click(Sender: TObject);
var
H: HWND;
begin
H := FindWindow(nil, 'Club Delphi - Mozilla Firefox');
if H <> 0 then
begin
SetForegroundWindow(H);
EnableWindow(H, False);
keybd_event(VK_F5, 0, WM_KEYDOWN, 0);
EnableWindow(H, True);
SetForegroundWindow(Handle);
end;
end;