Buenas, verán estoy trabajando con la uses clipbrd. Y según he leido por los foros cada vez que el portapapeles guarda o pega alguna cadena, debe mantener el APi visor desde el que hizo la última función, (o algo asi entendí). Y por eso me tira siempre este error del que estoy quemado.
Pongo las 2 últimas funciones desde donde vienen los errores:
Código Delphi
[-]
Function CTRLC:string;
begin
wnd:=0;
wnd := FindWindow (Nil,'OtroProgramaexterno'); if wnd<>0 then begin
BringWindowToTop(wnd);
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;
end;
E inmediátamente seguido ejecuto esta función:
Código Delphi
[-]
Function CheckPaste:string;
var
S:string;
begin
S:=Clipboard.AsText;
if S = '' then
begin
form1.Timer1.Enabled:=false;
Showmessage('...');
end else
begin
Showmessage('...');
end;
end;
En cambio he porbado a ejecutar las 2 funciones por separado con 2 botones de acción y sí funciona.
Y el error creo que se da por lo que dije de que cambia el handle o algo.
Gracias, a ver si hay suerte y lo puedo solucionar.
PD: me he mirado 400 veces este
hilo pero no he sacado nada en claro ya que no trabaja con el uses clipbrd. 1 Saludo. =)