Hello, I have fixed bug 28760:
https://bugs.freepascal.org/view.php?id=28760 This will cause compilation of win32wsdialogs.pp to fail, in particular in class procedure TWin32WSOpenDialog.SetupVistaFileDialog(ADialog: IFileDialog; const AOpenDialog: TOpenDialog); search for: if InitialDir <> '' then begin if Succeeded(SHCreateItemFromParsingName(PWideChar(UTF8ToUTF16(InitialDir)), nil, IShellItem, DefaultFolderItem)) then ADialog.SetFolder(DefaultFolderItem); end; Directly passing an interface where (T)REFIID is expected, will no longer be possible. Michael. -- _______________________________________________ Lazarus mailing list Lazarus@lists.lazarus-ide.org https://lists.lazarus-ide.org/listinfo/lazarus
