paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-23 13:09:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix ForceDirectoriesUtf8 for Windows Apps. See related fpc bugreport https://gitlab.com/freepascal.org/fpc/source/-/issues/40558.

Browse Source
This commit is contained in:
Bart 2023-12-14 17:54:15 +01:00
parent 78816cede1
commit 5335e14783
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazutils/lazfileutils.pas
View File

@ -1264,7 +1264,7 @@ var
begin begin
Result := False; Result := False;
ADrv := ExtractFileDrive(Dir); ADrv := ExtractFileDrive(Dir);
if (ADrv<>'') and (not DirectoryExistsUTF8(ADrv)) if (ADrv<>'') and (not DirectoryExistsUTF8(ADrv+DirectorySeparator))
{$IFNDEF FORCEDIR_NO_UNC_SUPPORT} and (not IsUncDrive(ADrv)){$ENDIF} then Exit; {$IFNDEF FORCEDIR_NO_UNC_SUPPORT} and (not IsUncDrive(ADrv)){$ENDIF} then Exit;
if Dir='' then if Dir='' then
begin begin