Ventana Propiedades...

[[Gunman]]

Hola! Me gustaria saber si alguno de vosotros conoce algun procedimiento que llama la ventana de propiedades de windows de un archivo/carpeta. Me explico? No sé si existirá, pero bueno, más vale preguntar antes de empezar a hacerla yo mismo.
Gracias por anticipado.

[dec]

Hola,



uses
ShellApi;

function ShowFilePropertiesDialog(hWndOwner: HWND;
const FileName: string): Boolean;
var
Info: TShellExecuteInfo;
begin
{ Fill in the SHELLEXECUTEINFO structure }
with Info do
begin
cbSize := SizeOf(Info);
fMask := SEE_MASK_NOCLOSEPROCESS or
SEE_MASK_INVOKEIDLIST or
SEE_MASK_FLAG_NO_UI;
wnd := hWndOwner;
lpVerb := 'properties';
lpFile := pChar(FileName);
lpParameters := nil;
lpDirectory := nil;
nShow := 0;
hInstApp := 0;
lpIDList := nil;
end;

{ Call Windows to display the properties dialog. }
Result := ShellExecuteEx(@Info);
end;


El código está literalmente copiado de: To display a Property dialog for file, folder or drive (http://www.scalabium.com/faq/dct0151.htm), en la página Web de Scalabium Software (http://www.scalabium.com/).

[[Gunman]]

Mmmm, muchas gracias Dec, esta misma tarde lo pruebo...