dirseldlg.pas

来自「国外著名恢复软件Drive_Rescue 公布的早期源码 版本是1.8 delp」· PAS 代码 · 共 68 行

unit dirseldlg;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls,
  StdCtrls, ExtCtrls, Forms, FileCtrl, ComCtrls, ShellCtrls;

type
  TDirSelectDialog = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Panel1: TPanel;
    ComboBoxFAT: TComboBox;
    Label4: TLabel;
    Label5: TLabel;
    ShellComboBox1: TShellComboBox;
    ShellTreeView1: TShellTreeView;
    procedure ShellComboBox1Change(Sender: TObject);
    procedure ShellTreeView1Change(Sender: TObject; Node: TTreeNode);
    public
    FATno: byte;
    directory: string;
    function Execute: boolean;

  end;

var
  DirSelectDialog: TDirSelectDialog;

implementation

{$R *.DFM}


function TDirSelectDialog.Execute: boolean;
begin
  if DirSelectDialog.showmodal <> idCancel then
  begin
    FATno:=DirSelectDialog.ComboBoxFAT.itemindex;
    directory:=ShellTreeView1.Path;
    result:=true;
  end else result:=false;
end;



procedure TDirSelectDialog.ShellComboBox1Change(Sender: TObject);
var
  destdir: shortstring;
begin
  destdir:=ShellComboBox1.Path;
  if destdir[length(destdir)] <> '\' then destdir:=destdir+'\';

  Label2.caption:=destdir;
end;

procedure TDirSelectDialog.ShellTreeView1Change(Sender: TObject;
  Node: TTreeNode);
begin
  ShellComboBox1Change(sender);
end;

end.