unit Unit2;    interface
uses
  dialogs ;    function MyOpenDialog:string ;    implementation    function MyOpenDialog:string ;
var
  od : TOpenDialog ;
begin
  od:=TOpenDialog.Create(nil) ;
  Result:='' ;
  try
    if od.Execute then
      Result:=od.FileName ;
  finally
    od.free ;
    end ;
end ;    end.
 
 

Uses FileCtrl;    function MyGetDir : String;
begin
  Result := '';
  if SelectDirectory('選擇資料夾','',Result) then begin
     Result :=Result '\';
  end;
end;