fuqexport4license.pas

来自「Advanced.Export.Component.v4.01.rar,delp」· PAS 代码 · 共 50 行

unit fuQExport4License;

interface

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

type
  TfmQExport4License = class(TForm)
    reLicense: TRichEdit;
    btnPrint: TButton;
    btnOK: TButton;
    procedure btnPrintClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmQExport4License: TfmQExport4License;

implementation

{$R *.dfm}

procedure TfmQExport4License.btnPrintClick(Sender: TObject);
begin
  reLicense.Print(Caption);
end;

procedure TfmQExport4License.FormCreate(Sender: TObject);
var
  resStream: TResourceStream;
begin
  if FindResource(HInstance, 'qe_eula', RT_RCDATA) > 0 then
  begin
    resStream := TResourceStream.Create(HInstance, 'qe_eula', RT_RCDATA);
    try
      reLicense.Lines.LoadFromStream(resStream);
    finally
      resStream.Free;
    end;
  end;
end;

end.