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:

function getfolder(root:integer;caption:string):string;
var
bi:TBROWSEINFO;
lpbuffer:pchar;
pidlprograms,
pidlbrowse:PItemidlist;
begin
if (not succeeded(SHGETSPECIALFOLDERLOCATION(GETACTIVEWINDOW, root, pidlprograms)))
then exit;
lpbuffer:=stralloc(max_path);
bi.hwndOwner:=getactivewindow;
bi.pidlRoot:=pidlprograms;
bi.pszDisplayName:=lpbuffer;
bi.lpszTitle:=pchar(caption);
bi.ulFlags:=BIF_RETURNONLYFSDIRS;
bi.lpfn:=nil;
bi.lParam:=0;
pidlbrowse:=shbrowseforfolder(bi);
if (pidlbrowse<>nil) then begin
if (shgetpathfromidlist(pidlbrowse, lpbuffer)) then result:=lpbuffer;
end;
strdispose(lpbuffer);
end;

//----

ordnerlabel.Caption:=getfolder(CSIDL_PROGRAM_FILES,'Wählen Sie das Ausgabeverzeichnis aus:');