强制OpenDialog只能打开某个目录

强制OpenDialog只能在某个目录下面选择文件，或者只能打开某个目录：

只是一最简单的例子而已，如果要实现的比较好的话，可以自己写代码了。

type

 TForm1 = class ( TForm )

   OpenDialog1 : TOpenDialog ;

   Button1 : TButton ;

   Memo1 : TMemo ;

    procedure OpenDialog1FolderChange ( Sender : TObject );

    procedure Button1Click ( Sender : TObject );

  private

    { Private declarations }

   Busy : Boolean ;

  public

    { Public declarations }

  end ;

var

 Form1 : TForm1 ;

implementation

{$R *.dfm}

procedure SetOpenDialogDir ( hWnd : HWND ; Path : string ; var Busy : Boolean );

const

 ID_FILENAME_98 = 1152 ;

 ID_FILENAME_WIN2K = 1148 ;

 ID_OK = 1 ;

var

 hFileName : THandle ;

 hOK : THandle ;

 Buff : string [ 255 ];

begin

  if Busy then exit ;

 Busy := True ;

  if Win32MajorVersion >= 5 then

  begin

   hFileName := GetDlgItem ( GetParent ( hWnd ), ID_FILENAME_WIN2K );

   hFileName := FindWindowEx ( hFileName , 0 , 'ComboBox' , nil );

   hFileName := FindWindowEx ( hFileName , 0 , 'Edit' , nil );

  end else hFileName := GetDlgItem ( GetParent ( hWnd ), ID_FILENAME_98 );

 hOK := GetDlgItem ( GetParent ( hWnd ), ID_OK );

 GetWindowText ( hFileName ,@ Buff [ 1 ], Length ( Buff ));

  if LowerCase ( Buff )= LowerCase ( Path ) then exit ;

 SetWindowText ( hFileName , pchar ( Path ));

 SendMessage ( hOK , WM_LBUTTONDOWN , MK_LBUTTON , MAKEWORD ( 0 , 0 ));

 SendMessage ( hOK , WM_LBUTTONUP , MK_LBUTTON , MAKEWORD ( 0 , 0 ));

 Busy := False ;

end ;

procedure TForm1 . OpenDialog1FolderChange ( Sender : TObject );

begin

 SetOpenDialogDir ( OpenDialog1 . Handle , 'C:\' , Busy );

end ;

procedure TForm1 . Button1Click ( Sender : TObject );

begin

 OpenDialog1 . Execute ;

end ;