Inserir dados no cursor do teclado
Pessoal!
Agradeceria muito se alguém pudesse me ajudar com isso...
Estou precisando saber alguma forma de jogar uma informação, qualquer que seja, diretamente onde o está o cursor do teclado, não importando em que tela ele esteja e mesmo que esteja fora do meu programa.
Por exemplo: Eu crio uma janela que tem um botão que ao ser clicado insere as informações de data e hora no local onde estiver o cursor do teclado... que poderia ser em um documento do word por exemplo.
Muito obrigado pela atenção.
Abraço!
Agradeceria muito se alguém pudesse me ajudar com isso...
Estou precisando saber alguma forma de jogar uma informação, qualquer que seja, diretamente onde o está o cursor do teclado, não importando em que tela ele esteja e mesmo que esteja fora do meu programa.
Por exemplo: Eu crio uma janela que tem um botão que ao ser clicado insere as informações de data e hora no local onde estiver o cursor do teclado... que poderia ser em um documento do word por exemplo.
Muito obrigado pela atenção.
Abraço!
Renan Fernandes
Curtidas 0
Respostas
Renan Mattos
02/01/2012
Olá Renan, bem não sei exatamente o que você pretende fazer mas para escrever
fora da sua aplicação o único jeito que eu conheço é simulando o pressionamento das teclas.
neste código que eu fiz ele digita o texto que estiver no edit1 onde o cursor do mouse aponta:
procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
//Simula um clique do botão esquerdo do mouse para dar foco
Mouse_Event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
Mouse_Event(MOUSEEVENTF_LEFTUP,0,0,0,0);
// digita o texto que esta no edit1
for i:=1 to length(Edit1.Text) do
keybd_event(vkKeyScan(Edit1.Text[i]),0,0,0);
end;
Obs.:lembrando que o estado do CapsLock afeta na hora da digitação.
Espero ter ajudado,
abraço.
fora da sua aplicação o único jeito que eu conheço é simulando o pressionamento das teclas.
neste código que eu fiz ele digita o texto que estiver no edit1 onde o cursor do mouse aponta:
procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
//Simula um clique do botão esquerdo do mouse para dar foco
Mouse_Event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
Mouse_Event(MOUSEEVENTF_LEFTUP,0,0,0,0);
// digita o texto que esta no edit1
for i:=1 to length(Edit1.Text) do
keybd_event(vkKeyScan(Edit1.Text[i]),0,0,0);
end;
Obs.:lembrando que o estado do CapsLock afeta na hora da digitação.
Espero ter ajudado,
abraço.
GOSTEI 0