como criar um macro?

[RogerioMOYANO]

Ola estou criando uma macro so que eu tenho uma duvida gostaria que ele funcionase em uma janela(janelateste) especifica mesmo com ela minimizada esse macro continuaria a mandar determinado comando. Exemplo de comando: VK_NUMPAD1 (eu poderia minimizar a fazer outras trarefas e ele contunuaria a funcionar em tal janela)

[Jhonas]

Faça uma pesquisa no forum

http://scriptbrasil.com.br/forum/index.php...;highlite=macro

abraço

[RogerioMOYANO]

Ola procurei e achei +ou- o que eu quero so que nesse caso ele ta digitando em um bloco de notas ele manda a msg mesmo com o bloco minimizado eu gostaria que alguém ajuda-se a fazer a mesma fuçao so q usando um key_event muito obrigado.

procedure TForm1.Button1Click(Sender: TObject);

var

JanelaPrincipal, JanelaFilha: THandle;

I: integer;

Texto: string;

begin

Texto := 'Daniel';

JanelaPrincipal := FindWindow('Notepad', nil);

if JanelaPrincipal > 0 then

begin

JanelaFilha := FindWindowEx(JanelaPrincipal, 0, 'Edit', nil);

if JanelaFilha > 0 then

begin

for I := 1 to Length(Texto) do

PostMessage(JanelaFilha, WM_CHAR, Ord(Texto), 0);

end;

end;

end;

Editado Novembro 18, 2009 por RogerioMOYANO

[Jhonas]

Veja outros tópicos sobre key_event

http://scriptbrasil.com.br/forum/index.php...ghlite=keyevent

abraço