priv.pas

来自「How to restruct paradox DB when you enco」· PAS 代码 · 共 57 行

{$A+,B-,C-,D+,E-,F-,G+,H+,I+,J+,K-,L+,M-,N+,O+,P+,Q+,R+,S+,T-,U-,V+,W-,X+,Y-,Z1}
{$MINSTACKSIZE $00004000}
{$MAXSTACKSIZE $00100000}
{$IMAGEBASE $00400000}
{$APPTYPE GUI}

unit priv;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, BDE, DB, DBTables;

type
  TPrivateDirForm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    PrivDirEd: TEdit;
    SpeedButton1: TSpeedButton;
    OpenDialog1: TOpenDialog;
    OKBtn: TButton;
    CancelBtn: TButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PrivateDirForm: TPrivateDirForm;

implementation

{$R *.DFM}

procedure TPrivateDirForm.SpeedButton1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    PrivDirEd.Text := LowerCase(ExtractFilePath(OpenDialog1.FileName));
end;

procedure TPrivateDirForm.FormShow(Sender: TObject);
var
  SessionInfo: SesInfo;

begin
  Check(DbiGetSesInfo(SessionInfo));
  Label2.Caption := SessionInfo.szPrivDir;
  PrivDirEd.Text := SessionInfo.szPrivDir;
end;

end.