特急，忘了这个函数

Question

SHBrowseForFolder
Displays a dialog box that enables the user to select a Shell folder. 
LPITEMIDLIST SHBrowseForFolder(
LPBROWSEINFO lpbi
); Parameters

Answer 1

var
   directory: string;
begin
   if SelectDirectory('Please Select the directory', '', directory) then
      edit1.text := directory;
end;

Answer 2

function SelectDirectory(const Caption: WideString; const Root: string; var Directory: string): Boolean;
function SelectDirectory(const Caption: string; const Root: WideString; out Directory: string): Boolean;

Answer 3

CreateDir
CreateDirectory
参看帮助