4 replies to this topic

[enecumene]

Con este truco podemos obtener el contenido del Clipboard de windows a través de la unidad "Clipbrd" de Delphi, coloquemos en un nuevo proyecto, un TButton, un TMemo y un TImage, en el evento OnClick del TButton colocaremo este code:

delphi

Uses Clipbrd;
 
...
 
procedure TForm1.Button1Click(Sender: TObject);
var
  MyHandle: THandle;
begin
  Clipboard.Open;
  if Clipboard.HasFormat(CF_TEXT) then
  begin
    MyHandle:=Clipboard.GetAsHandle(CF_TEXT);
    Memo1.Lines.Add(StrPas(GlobalLock(MyHandle)));
    GlobalUnlock(MyHandle);
  end;
  if (Clipboard.HasFormat(CF_BITMAP)) or
    (Clipboard.HasFormat(CF_PICTURE)) then
    Image1.Picture.Assign(Clipboard);
  Clipboard.Close;
end;

Tendremos un resultado similar a la imagen anexado más abajo.

Saludos.

[Wilson]

Buen aporte amigo.

[enecumene]

Buen aporte amigo.

Gracias amigo

[egostar]

Que bien amigo, estos aportes son muy buenos.

Salud OS

[enecumene]

Que bien amigo, estos aportes son muy buenos.

Salud OS

Pos sí­ , gracias amigo.