No hay respuestas en este tema

[sir.dev.a.lot]

[TRUCOS DELPHI] Mostrar el dialogo de Propiedades de un Archivo.

 

hay que adicionar la unidad:

delphi

uses ShellAPI;

Codigo:

delphi

procedure PropertiesDialog(filename:String);
	var
	  sei: TShellExecuteInfo;
	begin
	  FillChar(sei, SizeOf(sei), 0);
	  sei.cbSize := SizeOf(sei);
	  sei.lpFile := PChar(filename);
	  sei.lpVerb := 'properties';
	  sei.fMask  := SEE_MASK_INVOKEIDLIST;
	  ShellExecuteEx(@sei);
	end;

Ejemplo de uso:

delphi

procedure TForm1.Button1Click(Sender: TObject);
	begin
	  if Opendialog1.Execute then
	  begin
	    PropertiesDialog(Opendialog1.FileName);
	  end;

Saludos!