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.
|