Project Structure

• UniClipboard.dpr
• UniClipboard_MainForm.pas
• UniClipboard_MainForm.dfm {FormUniClipboard}

program UniClipboard;

uses
  Forms,
  UniClipboard_MainForm in 'UniClipboard_MainForm.pas' {FormUniClipboard};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TFormUniClipboard, FormUniClipboard);
  Application.Run;
end.

unit UniClipboard_MainForm;

interface

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

type
  TFormUniClipboard = class(TForm)
    btnCopy: TButton;
    Edit1: TEdit;
    Memo1: TMemo;
    btnJapanese: TButton;
    btnPaste: TButton;
    btnWinVersion: TButton;
    procedure btnCopyClick(Sender: TObject);
    procedure btnJapaneseClick(Sender: TObject);
    procedure btnPasteClick(Sender: TObject);
    procedure btnWinVersionClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormUniClipboard: TFormUniClipboard;

implementation

uses
  ClipBrd;

{$R *.dfm}

procedure TFormUniClipboard.btnCopyClick(Sender: TObject);
begin
  Clipboard.Open;
  Clipboard.AsText := Edit1.Text;
  Clipboard.Close;
end;

procedure TFormUniClipboard.btnJapaneseClick(Sender: TObject);
begin
  Edit1.Text := #0$3042#0$3044;
end;

procedureTFormUniClipboard.btnPasteClick(Sender:TObject);
begin
  Clipboard.Open;
  if Clipboard.HasFormat(CF_TEXT) then
    Memo1.Lines.Add('CF_TEXT');
  if Clipboard.HasFormat(CF_UNICODETEXT) then
    Memo1.Lines.Add('CF_UNICODETEXT');
  Memo1.Lines.Add(Clipboard.AsText);
  Clipboard.Close;
end;

procedure TFormUniClipboard.btnWinVersionClick(Sender: TObject);
begin
  // code snippet not related with the Clipboard demo
  if CheckWin32Version(6) then
    ShowMessage ('Running on Windows Vista or later');
  if CheckWin32Version(5) then
    ShowMessage ('Running on Windows 2000 or later');
end;

end.

object FormUniClipboard: TFormUniClipboard
  Left = 0
  Top = 0
  Caption = 'UniClipboard'
  ClientHeight = 322
  ClientWidth = 558
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object btnCopy: TButton
    Left = 80
    Top = 72
    Width = 91
    Height = 25
    Caption = 'btnCopy'
    TabOrder = 0
    OnClick = btnCopyClick
  end
  object Edit1: TEdit
    Left = 192
    Top = 72
    Width = 185
    Height = 21
    TabOrder = 1
    Text = 'Edit1'
  end
  object Memo1: TMemo
    Left = 192
    Top = 104
    Width = 185
    Height = 145
    Lines.Strings = (
      'Memo1')
    TabOrder = 2
  end
  object btnJapanese: TButton
    Left = 80
    Top = 104
    Width = 91
    Height = 25
    Caption = 'btnJapanese'
    TabOrder = 3
    OnClick = btnJapaneseClick
  end
  object btnPaste: TButton
    Left = 80
    Top = 135
    Width = 91
    Height = 25
    Caption = 'btnPaste'
    TabOrder = 4
    OnClick = btnPasteClick
  end
  object btnWinVersion: TButton
    Left = 80
    Top = 224
    Width = 91
    Height = 25
    Caption = 'btnWinVersion'
    TabOrder = 5
    OnClick = btnWinVersionClick
  end
end