tntclipbrd.pas

来自「支持版本:Delphi 5-2009, C++Builder 5-2009 A」· PAS 代码 · 共 34 行

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.