unit uGetLink;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,

  Clipbrd
  ;

type
  TfGetLink = class(TForm)
    eLink: TEdit;
    bCopyToBuffer: TButton;
    bClose: TButton;
    procedure bCopyToBufferClick(Sender: TObject);
    procedure bCloseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

//var
//  fLink: TfLink;

implementation

{$R *.dfm}

procedure TfGetLink.bCloseClick(Sender: TObject);

begin
//
Close();
end;

procedure TfGetLink.bCopyToBufferClick(Sender: TObject);

var ClipBoard:TClipboard;

begin

//Clipboard
ClipBoard:=TClipboard.Create;
ClipBoard.SetTextBuf(PWideChar(eLink.Text));
ClipBoard.Free;

end;

end.
