Ventana Propiedades de Windows

[triskel]

Ya encontré como hacerlo:


procedure TForm1.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;


procedure TForm1.Button2Click(Sender: TObject);
begin
PropertiesDialog('c:\test');
end;



Ahora me gustaría abrir es abrir esa ventana y posicionarla por defecto en una pestaña.

Como el compartir de Windows.