formupdateunit.~pas

duiwenjiandechuli fangbianguanli.

unit FormUpdateUnit;

interface

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

type
  TFormUpdate = class(TForm)
    Panel1: TPanel;
    richEdit: TRxRichEdit;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public

  end;

var
  FormUpdate        : TFormUpdate;

implementation

uses PublicU;

{$R *.dfm}

procedure TFormUpdate.FormCreate(Sender: TObject);
var
  UpdateLogTxt      : Tstrings;
begin
  UpdateLogTxt := TstringList.Create;

  UpdateLogTxt.Text :='此片谨献给辛勤工作的杜鹃同志,辛苦了!!!';


  UpdateLogTxt.SaveToFile(GetExePath + 'files\UpdateLog.rtf');//UpdateLog.rtf
  try
    richEdit.Lines.LoadFromFile(GetExePath + 'files\UpdateLog.rtf');
    deleteFile(GetExePath + 'files\UpdateLog.rtf');
  finally
    UpdateLogTxt.Free;
  end;
end;

end.