Ver Mensaje Individual
  #1  
Antiguo 07-06-2006
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Reputación: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Mostrar el diálogo de propiedades de un archivo o directorio

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

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