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
  #2  
Antiguo 06-07-2007
gabrielkc gabrielkc is offline
Miembro
 
Registrado: jun 2007
Ubicación: Chihuahua Mexico
Posts: 118
Poder: 19
gabrielkc Va por buen camino
mmm no es muy ortodoxo pero puedes emular que envias teclas al Acrobat Reader.

Código Delphi [-]

procedure PostKeyEx32(Key: Word; const Shift: TShiftState; SpecialKey: Boolean);

type
TShiftKeyInfo = record
shift: Byte;
vkey : Byte;
end;

byteset = set of 0..7;
const
ShiftKeys: array [1..3] of TShiftKeyInfo =
((shift: Ord(ssCtrl); vkey: VK_CONTROL ),
(shift: Ord(ssShift); vkey: VK_SHIFT ),
(shift: Ord(ssAlt); vkey: VK_MENU ));
var
 flag: DWORD;
 bShift: ByteSet absolute shift;
 i: Integer;
begin
 for i := 1 to 3 do
  begin
   if ShiftKeys[i].Shift in bShift then
    keybd_event( shiftkeys[i].vkey, MapVirtualKey(shiftkeys[i].vkey, 0), 0, 0);
  end;
 if SpecialKey then
  flag := KEYEVENTF_EXTENDEDKEY
 else
  flag := 0;

 keybd_event( key, MapvirtualKey( key, 0 ), flag, 0 );
 flag := flag or KEYEVENTF_KEYUP;
 keybd_event( key, MapvirtualKey( key, 0 ), flag, 0 );

 for i := 3 downto 1 do
  begin
   if ShiftKeys[i].Shift in bShift then
    keybd_event( ShiftKeys[i].vKey, MapVirtualKey(ShiftKeys[i].vKey, 0), KEYEVENTF_KEYUP, 0);
  end;
end; { PostKeyEx32 }

con el procedimiento anterior envias teclas a la ventana activa. Aunque si el usuario cambia la pantalla activa pues se enviarian a otra aplicación. Igual está el código por si te sirve
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
Interactuar con un Servicio en Terminal Server JJAlf API de Windows 1 29-01-2007 20:52:38
Interactuar pagina web con delphi manuweb Varios 6 20-12-2006 11:36:10
Interactuar pagina web con Delphi manuweb API de Windows 1 13-12-2006 11:18:52
Interactuar Con Servicio de Windows Enan0 API de Windows 4 27-01-2006 17:31:38
Interactuar con una web Masu Internet 1 03-07-2005 00:37:08


La franja horaria es GMT +2. Ahora son las 16:25:33.


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