Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   API de Windows (https://www.clubdelphi.com/foros/forumdisplay.php?f=7)
-   -   Acceder al resumen de las propiedades de archivos (https://www.clubdelphi.com/foros/showthread.php?t=53971)

turminator 05-03-2008 19:53:37

Acceder al resumen de las propiedades de archivos
 
Hola! Me gustaria saber como puedo acceder al resumen de las propiedades de los archivos de windows, que accedemos desde el sistema con el botón derecho/propiedades/resumen y como podria modificar y guardar algun valor.

Imagino que tendré que declarar algun modulo tipo system pero no voy muy encaminado. De la misma forma agradeceria si pudieran indicarme algun archivo de ayuda para intentar sacarlo por mi mismo.

Muchas gracias de antemano!

turminator 07-03-2008 18:12:02

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!


La franja horaria es GMT +2. Ahora son las 03:33:04.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi