Moin,
hab folgendes Problem.
Ich möchte gerne in einem Edit
UNC-Pfade eingeben und diese auf Existens prüfen. Dabei könnte es sein, dass diese Netzwerkressource noch nicht verbunden, bzw. nicht die Berechtigungen vorhanden sind.
Beispiel: \\Servername oder \\Servername\<Freigabe>
Diese Eingabe soll nun geprüft werden, wenn man Return drückt.
1. Gibt es den Server schon
2. Habe ich die Rechte dafür, wenn nicht, dann Dialog zur Eingabe von Benutzername und Passwort (wie im Explorer)
Hintergrund ist, das die Kunden schneller einen UNCPfad eingeben können als es sich durch eine ShellExplorerSicht zu klicken...
Mit meiner lösung kann man rudimentär die Eingaben prüfen. ich damit aber nicht prüfen ob eine Netzwerkverbindung besteht, ob Rechte angefordert werden müssen, etc.
Delphi-Quellcode:
procedure TForm3.ePfadKeyUp(Sender: TObject;
var Key: Word; Shift: TShiftState);
begin
if Key = vk_return
then
begin
if TPath.IsUNCPath(ePfad.Text)
then
begin
if directoryexists(ePfad.Text)
then
begin
cxShellListView1.path := ePfad.Text;
end
else
showmessage('
not found');
end
else
showmessage('
kein gültiger UNC Pfad');
end;
end;
Gibt es dafür APIs, Delphilösungen?