Ich habe bei mir das mit TBrowseForFolder gemacht. Das zeigt ein Dialogfeld zur Auswahl eines Folder, man kann dort auch einen neuen anlegen.
Delphi-Quellcode:
function TClassCommonLib.OpenDialogSetFolder(
const nInitFolder:
string;
var SelectedFolder:
string ): Boolean;
var
nFolder: TBrowseForFolder;
begin
nFolder:=
nil;
try
nFolder:= TBrowseForFolder.Create(
nil);
try
nFolder.BrowseOptions:= [bifDontGoBelowDomain, bifNewDialogStyle ];
nFolder.UseFileDialog:= True;
nFolder.Folder:= nInitFolder;
if nFolder.Execute
then
SelectedFolder := nFolder.Folder;
except
on E:
exception do
begin
Result := False;
Exit;
end;
end;
finally
nFolder.Free;
end;
Result := True;
end;
Gruß
Heinz