Я уже всю сеть облазил, всё равно берёт на себя фокус,а самое главное теряет фокус приложение в котором я находился до этого.
Ниже программа которую я запускаю по комбинации клафишь (через ярлык)
И она по идее должна вставлять текст в блокноте в котором я нажал эту комбинацию клавиш (запустил прогу)
Но вставки не происходит,блокнот теряет фокус и вставка происходит хз куда.
Код:
unit Unit1;
procedure TForm1.FormCreate(Sender: TObject);
begin
ShowWindow(Handle,SW_HIDE); //
ShowWindow(Application.Handle,SW_HIDE); //
showWindow(Form1.Handle, SW_SHOWNOACTIVATE);
Application.ShowMainForm :=false;
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
// S:=IdHTTP1.Get('http://www.cbr.ru/');
// S:= copy(S,Pos('руб.',S)+16,5); // парсим страницу :)
// Clipboard.AsText:=S;
Clipboard.AsText:='1234567890';
keybd_event(VK_RCONTROL, 0, 0, 0); //Нажатие правого Ctrl.
keybd_event(Ord('v'), 0, 0, 0); //Нажатие 'v'.
keybd_event(Ord('v'), 0, KEYEVENTF_KEYUP, 0); // отпускание v
keybd_event(VK_RCONTROL, 0, KEYEVENTF_KEYUP, 0); //Отпускание правого Ctrl.
Form1.close ;
end;
end.