temppip.pas

wbs43open-src.zip 数字隐藏工具

unit Temppip;

interface

uses
  SysUtils, {WinTypes, WinProcs, Messages,} Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls, FileCtrl, wbsData, MultiLang;

type
  TForm4 = class(TForm)
    Label1: TLabel;
    DriveComboBox1: TDriveComboBox;
    DirectoryListBox1: TDirectoryListBox;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private-Deklarationen }
  public
  end;

var
  Form4: TForm4;

implementation

{$R *.DFM}

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

procedure TForm4.FormCreate(Sender: TObject);
var
  DefDrv:    Char;
begin
  // ml support
  Button1.Caption:=ml.GetComponentString('Temppip.Button1.Caption');
  Button2.Caption:=ml.GetComponentString('Temppip.Button2.Caption');
  Form4.Caption:=ml.GetComponentString('Temppip.Form4.Caption');
  Label1.Caption:=ml.GetComponentString('Temppip.Label1.Caption');
  ///////////////////////////////////////////////////////////////////////////
  DefDrv:='C';
  DriveComboBox1.Drive:=DefDrv;
  DirectoryListBox1.Directory:=DefDrv+':\';
end;

procedure TForm4.Button2Click(Sender: TObject);
var
  DefDrv:    Char;
begin
  DefDrv:='C';
  DriveComboBox1.Drive:=DefDrv;
  DirectoryListBox1.Directory:=DefDrv+':\';
end;

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  temppath:=DirectoryListBox1.Directory;
  If Length(temppath)>3 Then temppath:=temppath+'\';
end;

end.