Ver Mensaje Individual
  #3  
Antiguo 05-11-2014
Avatar de nlsgarcia
[nlsgarcia] nlsgarcia is offline
Miembro Premium
 
Registrado: feb 2007
Ubicación: Caracas, Venezuela
Posts: 2.206
Reputación: 23
nlsgarcia Tiene un aura espectacularnlsgarcia Tiene un aura espectacular
dblx,

Cita:
Empezado por dblx
...debo capturar el texto que este seleccionado en la aplicación que este actualmente siendo utilizada, sea Bloc de Notas, Word, Excel, Firefox, Chrome, sea cualquier aplicación...


Revisa este código:
Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, ClipBrd;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Timer1: TTimer;
    Image1: TImage;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

// Inicializa la aplicación
procedure TForm1.FormCreate(Sender: TObject);
begin
   Timer1.Interval := 1000;
end;

// Monitorea el Clipboard
procedure TForm1.Timer1Timer(Sender: TObject);
begin

   // Captura Texto del Clipboard
   if Clipboard.HasFormat(CF_TEXT) then
   begin
      Memo1.Clear;
      Memo1.Text := Clipboard.AsText;
   end;

   // Captura Pictures del Clipboard
   if Clipboard.HasFormat(CF_PICTURE) then
   begin
      Image1.Picture := nil;
      Image1.Picture.Assign(Clipboard);
   end;

end;

end.
El código anterior en Delphi 7 sobre Windows 7 Professional x32, Monitorea el Clipboard y captura el contenido relacionado a Texto y Pictures, como se puede ver en la siguiente imagen:



Espero sea útil

Nelson.
Responder Con Cita