Styles not working on file properties dialog

[eclipse666]

If you use a regular TOpenDialog then everything is styled correctly except for the file properties windows (right click a file and select "Properties")

There's a similar problem if you just display file properties of a file using a function like the one below:

uses
shellapi;

procedure PropertiesDialog(FileName: string);
var
sei: TShellExecuteInfo;
begin
FillChar(sei, SizeOf(sei), 0);
sei.cbSize := SizeOf(sei);
sei.lpFile := PChar(FileName);
sei.lpVerb := 'properties';
sei.fMask := SEE_MASK_INVOKEIDLIST;
ShellExecuteEx(@sei);
end;