Wie function IsNetworkPath(APath : string) : Boolean; umsetzen?

[TiGü]

Hallo miteinander,

für einen speziellen Fall in meiner Anwendung, darf ich nur UNC-Netzwerkpfade und keine lokalen Pfade zulassen.
Meine erste Idee war zu überprüfen, ob die ersten beiden Zeichen im String '\\' sind, aber gibt es vielleicht noch eine elegantere Lösung?

[himitsu]

\\?\C:\Program Files

Nun ja, wozu willst du das unbedingt erreichen und UNC-Pfade können sonstwo hinzeigen.
Oder soll es gar nur auf bestimmte Pfade beschränkt sein?

[Morphie]

Da gibt es eine API für...
http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

[TiGü]

Zitat von Morphie:

Da gibt es eine API für...
http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

Hm, soweit, so gut!
Ist die standardmäßig irgendwo gewrappt?
In der RAD Studio 2009 Windows.pas ist sie nicht!

[DeddyH]

Shlwapi steht unten unter Header.

[Uwe Raabe]

Unter D2010+ hätte ich jetzt TPath.IsUNCPath aus IOUtils.pas eingeworfen.

[Luckie]

Zitat von DeddyH:

Shlwapi steht unten unter Header.

Und in der Shlwapi.pas sollte es schon drin sein.

[TiGü]

Zitat von himitsu:

Nun ja, wozu willst du das unbedingt erreichen und UNC-Pfade können sonstwo hinzeigen.
Oder soll es gar nur auf bestimmte Pfade beschränkt sein?

Beispiel:
\\de-stor-1\Archiv\_Allgemein

Nur solche Pfade und Pfadangaben dürfen zulässig sein.

Warum ich das brauche:
Mein Programm stößt einen Service im Netzwerk an, bestimmte Dateien auf den Netzwerkpfad zu speichern.
In meinen Programm gibt es dann einen einfachen Dateibrowser, der fest auf diesen Netzwerkpfad zugreifen muss.
Damit der Nutzer keinen Quatsch einträgt, also nicht freigegebene Netzwerkordner, sondern lokale Pfade, will ich eine Fehlermeldung sichtbar machen, wenn der Nutzer dagegegen verstößt.