Hi, also ich will in meiner Anwendung nur nen Ordner auswählen und nicht den kompletten Pfad einer Datei. Dazu hatte Mathias nen Link ausn Forum gegeben, in dem ich eine solche Funktion gefunden habe. Nur bekomme ich hier Fehlermeldungen, das er bestimmte Bezeichner nicht kennt. Kann jemand ma über den Code schauen und mir sagen welche Units ich dafür noch brauche??
Delphi-Quellcode:
function ChooseFolder(
const Title:
string):
string;
var
Path:
array [0..MAX_PATH]
of char;
pidl: PItemIDList;
// Den kennt er nicht
bi: TBrowseInfo;
// Den auch nicht..
begin
result := '
';
OleInitialize(
nil);
with bi
do
begin
hwndOwner := ;
// Und den nicht (N Handle muss ich dann noch eintragen)
pidlRoot :=
nil;
pszDisplayName := Path;
lpszTitle := PChar(Title);
ulFlags := BIF_RETURNONLYFSDIRS
or BIF_NEWDIALOGSTYLE;
lpfn :=
nil;
lParam := 0;
end;
pidl := ShBrowseForFolder(bi);
if (pidl <>
nil)
and (SHGetPathFromIDList(pidl, path))
then
result := path;
OleUninitialize;
end;