Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #3  
Antiguo 24-06-2007
Avatar de cHackAll
[cHackAll] cHackAll is offline
Baneado?
 
Registrado: oct 2006
Posts: 2.159
Poder: 22
cHackAll Va por buen camino
Cool Creo yo...

Creo que lo que buscas es el siguiente código:

Código Delphi [-]
procedure SendKeys(Keys: PChar; const milliseconds: Cardinal);
var vk: Cardinal;
begin
 while Keys[0] <> #0 do
  begin
   vk := VkKeyScan(Keys[0]);
   Inc(Cardinal(Keys));
   keybd_event(vk, 0, 0, 0);
   keybd_event(vk, 0, KEYEVENTF_KEYUP, 0);
   Sleep(milliseconds);
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 SetForegroundWindow(FindWindow('notepad', nil));
 SendKeys('hola'+#13, 100);
end;

Espero os sea de utilidad; Saludos!
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Enviar teclas al Box del screensaver Uzy API de Windows 2 17-06-2006 16:59:11
Enviar combinaciones de teclas LordVermiis API de Windows 4 08-06-2006 17:57:43
Enviar Teclas a una aplicacion JulioCesarPauli API de Windows 2 20-10-2003 19:28:30
Enviar teclas a aplicacion externa El_Lu Varios 2 24-08-2003 02:59:20
Enviar teclas al teclado albeiro_ospina API de Windows 12 03-07-2003 00:24:48


La franja horaria es GMT +2. Ahora son las 14:24:30.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi