first_cpim.pas

来自「wbs43open-src.zip 数字隐藏工具」· PAS 代码 · 共 65 行

unit first_cpim;

interface

uses
  Windows, Messages, SysUtils, Classes, {Graphics,} Controls, Forms, Dialogs,
  StdCtrls, FileCtrl, Registry, MultiLang, QStdCtrls, QControls;

type
  TForm10 = class(TForm)
    DriveComboBox1: TDriveComboBox;
    DirectoryListBox1: TDirectoryListBox;
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    path:       String;
  end;

var
  Form10: TForm10;

implementation

{$R *.DFM}

procedure TForm10.Button2Click(Sender: TObject);
begin
  Application.HelpContext(880);
end;

procedure TForm10.Button1Click(Sender: TObject);
var
  reg:    TRegistry;
begin
  path:=DirectoryListBox1.Directory;
  if path[Length(path)]<>'\' then path:=path+'\';
  reg:=TRegistry.Create;
  reg.RootKey:=HKEY_CURRENT_USER;
  reg.OpenKey('SOFTWARE\WBailer\wbStego',True);
  reg.WriteString('CopyrightPath',path);
  reg.CloseKey;
  reg.Free;
  Close;
end;

procedure TForm10.FormCreate(Sender: TObject);
begin
  // ml support
  Button1.Caption:=ml.GetComponentString('first_cpim.Button1.Caption');
  Button2.Caption:=ml.GetComponentString('first_cpim.Button2.Caption');
  Form10.Caption:=ml.GetComponentString('first_cpim.From10.Caption');
  ml.GetComponentStringList('first_cpim.Memo1.Lines',Memo1.Lines);
  ///////////////////////////////////////////////////////////////////////
  path:=DirectoryListBox1.Directory;
  if path[Length(path)]<>'\' then path:=path+'\';
end;

end.