[Lazarus] Breaking change

[Michael Van Canneyt]

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.