nocrypt.pas

wbs43open-src.zip 数字隐藏工具

unit nocrypt;

interface

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

type
  TForm6 = class(TForm)
    Memo1: TMemo;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form6: TForm6;

implementation

{$R *.dfm}

procedure TForm6.Button2Click(Sender: TObject);
begin
  Close;
end;

procedure TForm6.Button1Click(Sender: TObject);
begin
{$IFDEF CLX}
  Application.HelpSystem.ShowContextHelp(300,Application.HelpFile);
{$ELSE}
  Application.HelpContext(300);
{$ENDIF}
end;

procedure TForm6.FormCreate(Sender: TObject);
begin
  // ml support
  Button1.Caption:=ml.GetComponentString('nocrypt.Button1.Caption');
  Button2.Caption:=ml.GetComponentString('nocrypt.Button2.Caption');
  Form6.Caption:=ml.GetComponentString('nocrypt.Form6.Caption');
  Label1.Caption:=ml.GetComponentString('nocrypt.Label1.Caption');
  ml.GetComponentStringList('nocrypt.Memo1.Lines',Memo1.Lines);
  ///////////////////////////////////////////////////////////////////
end;

end.