tntclipbrd.pas

支持版本:Delphi 5-2009, C++Builder 5-2009 ATViewer特性： Text, Binary, Hex, Unicode：所有文件

unit TntClipbrd;

interface

uses
  Windows, Clipbrd, SysUtils;

type
  TTntClipboard = class(TClipboard)
  public
    function AsWideText: WideString;
  end;

var
  TntClipboard: TTntClipboard;


implementation

function TTntClipboard.AsWideText;
begin
  Result := AsText;
end;

initialization
  
  TntClipboard := TTntClipboard.Create;

finalization

  FreeAndNil(TntClipboard);

end.