1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

    ...
    // Dialog aufrufen
    FSelected := '';
    pidlResult := SHBrowseForFolder(BrowseInfo);
    if(pidlResult <> nil) then
    begin
      if(FSelected = '') then
        if(SHGetPathFromIdList(pidlResult,Path)) and
          (Path[0] <> #0) then
        begin
          FSelected := Path;
          Result    := true;
        end;

      self.FreeItemIdList(pidlResult);
    end;
    ...					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

  fb := TFolderBrowser.Create(self.handle,
    'Please choose the directory of the LCC-Compiler',
    ExtractFilePath(ParamStr(0)) );

  if(fb <> nil) then
    try
      repeat
        if( fb.Execute ) then //click on OK
          //check whether lcc.exe exists
          if not FileExists( fb.SelectedItem + '\bin\lcc.exe' ) then
            ShowMessage('lcc.exe was not found in subdirectory \bin!' + #13#10
              + 'Please select again.' )
          else  //lcc found
            WriteDir( fb.SelectedItem )
        else begin //aborted
          break;
        end;
      until( FileExists( fb.SelectedItem + '\bin\lcc.exe' ) );

  finally
    fb.Free;
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
  fb : TFolderBrowser;
  hwndDlg:cardinal;

begin
  fb := TFolderBrowser.Create(hwndDlg,'Bitte wählen Sie einen Ordner');
  if fb <> nil then
  try  
    if fb.Execute then
      ShowMessage(Format('gewählter Ordner: "%s"',[fb.SelectedItem]));
  finally
    fb.Free;  
  end;
end;

end.					

1:
2:

fb.ShowFiles:=true;
fb := TFolderBrowser.Create(hwndDlg,'Bitte wählen Sie einen Ordner');					

1:

    BrowseInfo.ulFlags := BrowseInfo.ulFlags or BIF_USENEWUI;					

1:

BrowseInfo.ulFlags := BrowseInfo.ulFlags or BIF_NEWDIALOGSTYLE;					

1:
2:
3:

    // BIF_USENEWUI sorgt dafür dass besagter Button immer angezeigt wird,
    // egal, ob BIF_BROWSEINCLUDEFILES gesetzt wird oder nicht, daher
    // rausgenommen (Luckie)