Minha aplicacao fora de foco

Question

MEU PROGRAMA CAPTURA AS TECLAS DIGITADAS PELO USU�RIO COLOCA NUM MEMO E DEPOIS SALVA EM UMA ARQUIVO A CADA 15 MINUTOS...O PROBLEMA � QUE ELE S� FAZ ISSO QUANDO A JANELA EST� ATIVA OU O FOCO EST� NELA....

Anonymous · Answer

Como voce esta capturando as teclas na sua aplicacao ? Se o seu programa esta utilizando o evento OnKeyPress, voce nao vai conseguir fazer o que vc esta querendo, somente se vc fizer atraves da captura de tecla do Windows, atraves da captura das mensagens do Windows.

Se nao souber como fazer isso, coloque uma resposta para esse topico.

[]s,

JR

Iskatrek · Answer

[b:d800f75e55]manda a� vei, como faz a parada a�!manipular as msg do win, algumas eu sei, mas a de tecla pressionada �,manda a� o teu exemplo[/b:d800f75e55]...

Skaarj · Answer

Vc qeu uma esp�cie de Keylloger n�?
Olha, � sei fzer cm o teclado, ms vou t pssar a fun��o pra desmascarar senha [*], cmo o mouse vvc pssa sobre o texto em [*] que ele mostra em um Hint.. Msmo cm o prog minimizado, vai q t ajuda:

var
WndHint: THintWindow = nil; // declare a vari�vel fora da procedure

procedure TForm1.Timer1Timer(Sender: TObject);
var
Pos: TPoint;
HWin: THandle;
Paswd: array[0..63] of Char;
R: TRect;
begin
GetCursorPos(Pos);
HWin := WindowFromPoint(Pos);
if SendMessage(HWin, EM_GETPASSWORDCHAR, 0, 0) <> 0 then
begin
if WndHint = nil then
begin
WndHint := THintWindow.Create(Self);
WndHint.Color := clInfoBk;
SendMessage(HWin, WM_GETTEXT, 64, Longint(@Paswd));
R := Rect(Pos.X, Pos.Y + 18, Pos.X +
WndHint.Canvas.TextWidth(Paswd) + 8,
Pos.Y + 18 + WndHint.Canvas.TextHeight(Paswd));
WndHint.ActivateHint(R, Paswd);
end;
end
else if WndHint <> nil then
begin
WndHint.ReleaseHandle;
WndHint := nil;
end;
end;

Iskatrek · Answer

Eu queria por curiosidade saber como pegar uma tecla q � esta dirigida aminha aplicacao, nem � p/ o Key logger �, � p/ fazer algo q impeca alguns outtros comando em outros progs, mandem a� o code sobre as msg do Win [b:e118b66ef7]Junior Thurler[/b:e118b66ef7]

Dei uma ideia d cmo receber infos do ambiente externo.. E O q vc pd fzer pra proteger assim sua aplica��o? Tirar ALT+F4? CTRL+ALT+DEL..
Isso se faz diferent..

Skaarj · Answer

[quote:e118b66ef7=�IskaTreK�]Eu queria por curiosidade saber como pegar uma tecla q � esta dirigida aminha aplicacao, nem � p/ o Key logger �, � p/ fazer algo q impeca alguns outtros comando em outros progs,mandem a� o code sobre as msg do Win [b:e118b66ef7]Junior Thurler[/b:e118b66ef7][/quote:e118b66ef7]Dei uma ideia d cmo receber infos do ambiente externo.. E O q vc pd fzer pra proteger assim sua aplica��o? Tirar ALT+F4? CTRL+ALT+DEL..Isso se faz diferent.....

Morpheus · Answer

realmente e isso que eu preciso...estou usando o evento on-key...mas e claro que naum vai funcionar ja que o form naum estara aberto...como capturar essas teclas...como manipular essas mensagem do windows ???

Iskatrek · Answer

e a�, [b:165632dec0]Junior Thurler[/b:165632dec0] demosntra aki o uso da msg do Win sobre pressionamento de tecla,...

Anonymous · Answer

� SKAARJ,          Voc� esperneou mas findou n�o respondendo o que foi perguntado.Afinal voc� sabe ou n�o?...

Anonymous · Answer

para pegar as teclas digitadas, procurem pelo componente KeySpyespero ter ajudado[]s a todoseddye...

Skaarj · Answer

[quote:9f06fcfb57=�alencar�]� SKAARJ,          Voc� esperneou mas findou n�o respondendo o que foi perguntado.Afinal voc� sabe ou n�o?[/quote:9f06fcfb57]N�o sei fzer.. por isso coloqei a fun�ao d mouse pra vr se dava uma ideia.. As vzs ajuda..Cansei d vr uma coisa q era aprecida e resolver o probl..E vc sab?...

Skaarj · Answer

Morpheus, vc usou essa fun��o:function tbKeyIsDown(const Key: integer): boolean;begin  Result := GetKeyState(Key) and 128 > 0;end;...

Morpheus · Answer

REALMENTE AGRADE��CO A TODOS POR ME AJUDAREM...J��A TIVE UMA BOA ID��EIA E SEI QUAL O CAMINHO QUE DEVO TOMAR. Atraves da dica do SKAARJ percebi que tavano caminho errado tb a dica do Junior e todos ...mas naum resolvi meu problema ainda...espero que consiga vou pesquizar e qdo descobrir irei disponibilizar a todos principalmente aos que aki expressaram seu interesse em me ajudar....OBRIGADO....