root/trunk/BrowseDirForm.pas

///////////////////////////////////////////////////////////
//                        EiEdit                         //
//      Ðåäàêòîð ÷àñòè ðåñóðñîâ Ïðîêëÿòûõ Çåìåëü         //
//             Copyright (C) 2002 Gipat Group            //
//              Ðàñïðîñòðàíÿåòñÿ íà óñëîâèÿõ             //
//    Gipat Group's opened EI-editor-utility license     //
//                      âåðñèè 1.0                       //
//                                                       //
//                  www.gipatgroup.org                   //
///////////////////////////////////////////////////////////

//Ê ðàáîòå íàä äàííûì ôàéëîì ïðèëîæèëè ðóêè, íîãè.... êîðî÷å àôôòàðû:
// 1) Sagrer (sagrer@yandex.ru)

////////////////////////////////////////////////////////////////////////

unit BrowseDirForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, FileCtrl, initer;

type
  TBrowseDirF = class(TForm)
    DirectoryListBox1: TDirectoryListBox;
    DriveComboBox1: TDriveComboBox;
    OkBut: TButton;
    CancelBut: TButton;
    procedure OkButClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    BrowseDirFOtv : string;
  end;

var
  BrowseDirF: TBrowseDirF;

implementation

{$R *.DFM}

procedure TBrowseDirF.OkButClick(Sender: TObject);
begin
  BrowseDirFOtv := DirectoryListBox1.Directory;
  //ShowMessage(BrowseDirFOtv);
end;

end.