Mostrar el diálogo de propiedades de un archivo o directorio

[dec]

Esta función muestra el diálogo de Windows con las propiedades de un archivo o carpeta:


uses
ShlObj, Masks, ShellApi;

function DialogoPropiedades(hWndOwner:
HWND; const archivo: string): Boolean;
var
info: TShellExecuteInfo;
begin
with info do begin
nShow := 0;
hInstApp := 0;
lpIDList := nil;
wnd := hWndOwner;
lpDirectory := nil;
lpParameters := nil;
cbSize := SizeOf(info);
lpVerb := 'properties';
lpFile := pChar(archivo);
fMask := SEE_MASK_INVOKEIDLIST;
end;
Result := ShellExecuteEx(@info);
end;