1:
2:

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

1:
2:
3:

fb := TFolderBrowser.Create(hwndDlg,
  'Bitte wählen Sie einen Ordner',
  'c:\windows');					

1:
2:
3:
4:
5:
6:
7:
8:

if(fb <> nil) then
try
  if(fb.Execute) then
    MessageBox(hwndDlg,pchar(fb.SelectedItem),
    'gewähltes Item',MB_OK or MB_ICONINFORMATION);
finally
  fb.Free;
end;					

1:

  fb.SetRoot(CSIDL_PERSONAL);					

1:

  fb.SetRoot('C:\Mein Ordner');					

1:

  fb.Filter := '*.txt';					

1:

  fb.Filter := '*.txt'#0'*.*htm*'#0'*.xml';					

1:

  fb.NoTargetTranslation := true;					

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

fb := TFolderBrowser.Create(hwndDlg,
  'Bitte wählen Sie einen Ordner');
if(fb <> nil) then
try
  fb.SetRoot(CSIDL_STARTMENU);
  fb.ShowFiles := true;
  fb.NoTargetTranslation := true;

  if(fb.Execute) then
  begin
    MessageBox(hwndDlg,pchar(fb.SelectedItem + ' -> ' +
      fb.TranslateLink(fb.SelectedItem)),'Verknüpfungsziel',
      MB_OK or MB_ICONINFORMATION)
  end;
finally
  fb.Free;
end;					

1:

if(CoInitialize(nil) = S_OK) then					

1:

fb := TFolderBrowser.Create(hwndDlg);					

1:

if (CoInitialize(nil)=S_OK) then					

1:

 if not (CoInitializeEx(nil,irgendeinekonstante)=S_FALSE) then					

1:

if not(CoInitializeEx(nil,...) = S_FALSE)					

1:

if CoInitializeEx(nil,...) <> S_FALSE					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

  hr           := CoInitializeEx(nil,COINIT_APARTMENTTHREADED);
  // Wenn die COM-Bibliothek noch nicht initialisiert ist,
  // dann ist das Ergebnis S_OK; ist sie bereits initialisiert
  // ist sie S_FALSE
  if(hr = S_OK) or (hr = S_FALSE) then
  try
    { ... }
  finally
    CoUninitialize;
  end;					

1:
2:

uses
  { eure sonstigen Units }, fldbrows;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.Button1Click(Sender: TObject);
var
  fb : TFolderBrowser;
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;					

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

fb := TFolderBrowser.Create(Handle, 'Bitte wählen Sie einen Ordner');
if(fb <> nil) then
try
  fb.SetRoot(CSIDL_COMMON_STARTMENU);
  fb.ShowFiles := true;
  fb.NoTargetTranslation := true;

  if(fb.Execute) then
  begin
    // hier wird geprüft, ob es sich um eine MSI-Verknüpfung handelt,
    // die man zurückverfolgen kann, ...
    tmp := fb.TranslateMsiLink(fb.SelectedItem);

    // ... Wenn Nein, dann ist der String leer, und es wird die bisher
    // bekannte "TranslateLink"-Funktion verwendet
    if(tmp = '') then tmp := fb.TranslateLink(fb.SelectedItem);

    // Ergebnis anzeigen
    MessageBox(hwndDlg, pchar(fb.SelectedItem + ' -> ' + tmp),
      'Verknüpfungsziel', MB_OK or MB_ICONINFORMATION)
  end;
finally
  FreeAndNil(fb);
end;					

1:

{.$DEFINE VCLCOMPONENTMODE}					

1:
2:
3:
4:
5:
6:
7:
8:
9:

  TFolderBrowser = class(TComponent)
    { ... }
  published
    property Caption: string read FCaption write FCaption;
    property PreselectedFolder: string read FInitFolder write FInitFolder;
    { ... }
    property Top: integer read FTop write SetTopPosition default 0;
    property Left: integer read FLeft write SetLeftPosition default 0;
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

function fileexists(const FileName: string): boolean;
var
  Handle   : THandle;
  FindData : TWin32FindData;
begin
  Handle   := FindFirstFile(pchar(FileName),FindData);
  Result   := (Handle <> INVALID_HANDLE_VALUE);

  if(Result) then FindClose(Handle);
end;					

1:

[Warnung] fldbrows.pas(73): Methode 'Create' verbirgt virtuelle Methode vom Basistyp 'TComponent'