cpi_decod.pas

wbs43open-src.zip 数字隐藏工具

unit cpi_decod;

interface

uses
  SysUtils, Classes, MultiLang
{$IFDEF CLX}
  , QControls, QForms, QDialogs, QStdCtrls
{$ELSE}
  , Controls, Forms, Dialogs, StdCtrls
{$ENDIF}
  ;

type
  TForm13 = class(TForm)
    Memo1: TMemo;
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    CPIFile:   String;
  end;

var
  Form13: TForm13;

implementation

{$R *.dfm}

procedure TForm13.Button1Click(Sender: TObject);
begin
  Close;
end;

procedure TForm13.FormShow(Sender: TObject);
var
  cpi:   TextFile;
  line:  String;
begin
  Memo1.Lines.Clear;
  if FileExists(CPIFile) then begin
    AssignFile(cpi,CPIFile);
    Reset(cpi);
    Readln(cpi,line);
    Memo1.Lines.Add(ml.GetComponentString('copyrightmgr.Label2.Caption')+': '+line);
    Readln(cpi,line);
    Memo1.Lines.Add(ml.GetComponentString('copyrightmgr.Label3.Caption')+': '+line);
    Readln(cpi,line);
    Memo1.Lines.Add(ml.GetComponentString('copyrightmgr.Label4.Caption')+': '+line);
    Readln(cpi,line);
    Memo1.Lines.Add(ml.GetComponentString('copyrightmgr.Label5.Caption')+': '+line);
    Readln(cpi,line);
    Memo1.Lines.Add(ml.GetComponentString('copyrightmgr.Label9.Caption')+': '+line);
    Readln(cpi,line);
    Memo1.Lines.Add(ml.GetComponentString('copyrightmgr.Label10.Caption')+': '+line);
    Readln(cpi,line);
    Memo1.Lines.Add(ml.GetComponentString('copyrightmgr.Label6.Caption')+': '+line);
    Memo1.Lines.Add(ml.GetComponentString('copyrightmgr.Label7.Caption')+' '+ml.GetComponentString('copyrightmgr.Label7.Caption'));
    while not(EOF(cpi)) do begin
      ReadLn(cpi,line);
      Memo1.Lines.Add(line);
    end;
    CloseFile(cpi);
   end;
end;

procedure TForm13.FormCreate(Sender: TObject);
begin
  Label1.Caption:=ml.GetComponentString('cpi_decod.Label1.Caption');
  Button1.Caption:=ml.GetComponentString('cpi_decod.Button1.Caption');
end;

end.