Ver Mensaje Individual
  #2  
Antiguo 07-03-2008
turminator turminator is offline
Miembro
 
Registrado: abr 2006
Ubicación: Barcelona, Spain
Posts: 91
Reputación: 19
turminator Va por buen camino
Hola después de estar investigando un poco, he visto que puedo hacerlo mediante el uso de ShellExecute.He encontrado la siguiente función que permite abrir la ventana propiedades de un archivo:

Código Delphi [-]
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;

Pero nosé como poder abrir y escrbir las propiedades avanzadas de un archivo (resumen). He estado buscando ayuda en los archivos de Delphi help, pero no encontré nada. Alguien sabe como podria solucionar-lo?

Muchas gracias de antemano!
Responder Con Cita