[Decoding]

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
   keybd_event( VK_SHIFT, 0, 0, 0 );
   ShellExecute(0, 'open', 'http://www.delphisource.ru', nil, nil, SW_SHOW);
   keybd_event( VK_SHIFT, 0, KEYEVENTF_KEYUP, 0 );
end;