Wie lasse ich einen UNC-Namen eingeben?

[Stefan Kraus]

Hallo,
in meinem Programm kann der Benutzer das Datenbankverzeichnis einstellen. Dies mache ich mit DriveComboBox und DirectoryListBox und wandele das Verzeichnis mit ExpandUNCFilename in einen UNC-Namen um, falls das Verzeichnis auf einem Server liegt. Dies funktioniert auch, hat aber den Nachteil das der Server mit einem Laufwerksbuchstaben verbunden sein muss. Andererseits kann ich von den Benutzern nicht erwarten, dass sie einen UNC-Namen in ein Edit-Feld schreiben. Mit welcher Komonente lässt sich ein Server-Verzeichnis auswählen?
Danke Stefan

[Günter Portisch]

Ich weis zwar nicht genau was du möchtest, aber versuch es mal damit:
<p>
Damit kann einen Vetrzeichnissbaum darstellen, mit dem sich auch UNC-Pfade wählen lassen!

function Getfolder(root: integer; cCaption: string; var cPfad: string): boolean; <br>
//Siehe Buch Borland Delphi 4 Kochbuch Seite 401 ff. Rezept 155<br>
<br>
var <br>
bi : TBROWSEINFO; <br>
lpBuffer : PChar; <br>
pidlPrograms, <br>
pidlBrowse : PItemIDList; <br>
<br>
begin <br>
Result := False; <br>
if (not SUCCEEDED(SHGetSpecialFolderLocation(getactivewind ow, root, pidlPrograms))) then exit; <br>
lpBuffer := StrAlloc(max_path); <br>
<br>
bi.hwndOwner := getactivewindow; <br>
bi.pidlRoot := pidlPrograms; <br>
bi.pszDisplayName := lpBuffer; <br>
bi.lpszTitle := pChar(cCaption); <br>
bi.ulFlags := BIF_RETURNONLYFSDIRS; <br>
bi.lpfn := nil; <br>
bi.lParam := 0; <br>
<br>
pidlBrowse := SHBrowseForFolder(bi); <br>
if (pidlBrowse <> nil) then begin <br>
Result := True; <br>
if (SHGetPathFromIDList(pidlBrowse, lpBuffer)) then cPfad:=lpBuffer; <br>
end else Result := False; <br>
StrDispose(lpBuffer); <br>
end; <br>
<p>
Gib mir bitte eine Rückmeldung, wenn Du was damit anfangen kontest!
<p>
Gruß Günte