Ver Mensaje Individual
  #2  
Antiguo 18-11-2005
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.141
Reputación: 36
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

Cita:
Empezado por Scalabium Software
Código Delphi [-]
 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, en la página Web de Scalabium Software.
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita