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:
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;