[Lazarus] With new Win32 manifest LongPathAware I cannot make long filename

[AlexeyT via lazarus]

This app cannot make 2nd folder (it can make 1st) and make file. Error 
on file saving. why? new manifest option is used. Win10.

{ TForm1 }
const
s1='w123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012';
  base='c:\work\';

procedure TForm1.Button1Click(Sender: TObject);
var f: TStringList;
begin
  ForceDirectories(base+s1+'\'+s1);
  f:= tstringlist.create;
  f.add('zzz');
  f.SaveToFile(base+s1+'\'+s1+'\test.txt');
  f.free;
end;

--
Regards,
Alexey

--
_______________________________________________
lazarus mailing list
lazarus@lists.lazarus-ide.org
https://lists.lazarus-ide.org/listinfo/lazarus