From 36ca62c24c436954e1d5b506bed3e2e3a149e0a7 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Tue, 13 Mar 2012 03:13:38 +0000
Subject: [PATCH] ide: take care about UNC path volumes while checking for a
 directory presence in IDE (issue #0020718)

git-svn-id: trunk@35914 -
---
 ide/dialogprocs.pas | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/ide/dialogprocs.pas b/ide/dialogprocs.pas
index 4def8bcc28..0a3a507481 100644
--- a/ide/dialogprocs.pas
+++ b/ide/dialogprocs.pas
@@ -37,7 +37,7 @@ interface
 
 uses
   Classes, SysUtils, LCLProc, LResources, Forms, Controls, Dialogs, FileProcs,
-  FileUtil, Laz_XMLCfg,
+  FileUtil, LazFileUtils, Laz_XMLCfg,
   {$IFNDEF OldXMLCfg}
   Laz2_XMLWrite,
   {$ELSE}
@@ -558,14 +558,16 @@ end;
 
 function ForceDirectoryInteractive(Directory: string;
   ErrorButtons: TMsgDlgButtons): TModalResult;
-var i: integer;
+var
+  i: integer;
   Dir: string;
 begin
   DoDirSeparators(Directory);
   Directory:=AppendPathDelim(Directory);
   if DirPathExists(Directory) then exit(mrOk);
-  i:=1;
-  while i<=length(Directory) do begin
+  // skip UNC path
+  i := Length(ExtractUNCVolume(Directory)) + 1;
+  while i <= Length(Directory) do begin
     if Directory[i]=PathDelim then begin
       Dir:=copy(Directory,1,i-1);
       if not DirPathExists(Dir) then begin