function Chrome(wnd: THandle; Param: Integer): Bool; stdcall; var Buffer: PChar; begin if wndClass = 'Chrome_WidgetWin_1' then begin ClipBoard.Clear; SetForegroundWindow(wnd); While ClipBoard.AsText='' do begin PostMessage(wnd, WM_SYSKEYDOWN, VK_F6,0); keybd_event(VK_CONTROL, 0, 0, 0); keybd_event($43, 0, 0, 0); keybd_event($43, 0, KEYEVENTF_KEYUP, 0); keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0); end; Form1.memo1.Lines.Add(Clipboard.AsText); Result := False; else Result := True; SetForegroundWindow( Form1.Handle); end;
#1
Escrito 08 junio 2017 - 11:46
#2
Escrito 08 junio 2017 - 01:41
Hola draker, bienvenido a delphiaccess
Veo que validas que Clipboard.AsText tenga algo para realizar los eventos del teclado, pero ¿que pasa cuando no tiene nada? si haces un debug en esa función podrías encontrar el problema.
Saludos
#3
Escrito 08 junio 2017 - 03:13
jejejeje, claro amigo egostar, sorry por el horror, a la hora de quitar todas las basurillas de como tengo el código le cambie el signo, ahí lo edite, como vez primero limpio el clipboard y después hago la validación, el punto de validarlo es por que si mando a llamar nuevamente a la función y si ya se dio F6 una vez el crhome deja de seleccionar el texto, vuelves a pulsarlo y no hace nada, hasta la tercera vez vuelve a seleccionar el texto.
Etiquetado también con una o más de estas palabras: crhome, url, clipboard
PROGRAMACIÓN →
Delphi →
[OOP] →
copiar excel clipboard a ClientDatasetComenzado por look , 21 nov 2018 excel, clipboard, dataset |
|
|
||
PROGRAMACIÓN →
Otros Lenguajes (.NET, Web, C, C++, Java, ASM) →
PHP, Ajax, Javascript y HTML →
Ocultar varibale enviada via GET en URL Amigable (PHP)Comenzado por santiagocarlos , 20 jul 2015 url, seo, get, amigable |
|
|
||
PROGRAMACIÓN →
Otros Lenguajes (.NET, Web, C, C++, Java, ASM) →
Joomla →
paginas web distintas cargan mismo urlComenzado por Dxnexus , 10 jul 2015 joomla, pagina web, url |
|
|