Home » Tipps & Tricks » Dateien/Verzeichnisse » Dialoge » Eigenschaften-Dialog für Dateien anzeigen

Eigenschaften-Dialog für Dateien anzeigen

Dieser Dialog gibt Auskunft über die Dateigröße, eingestellte Attribute und Dateidaten. Die untenstehende Procedure ruft den Standard-Dialog des Explorers auf. Als Parameter muss der Dateiname übergeben werden.

uses
  ShellApi;

procedure PropertiesDialog(const aFilename: string);
var
  sei: ShellExecuteInfo;
begin
  FillChar(sei, SizeOf(sei), 0);
  sei.cbSize := SizeOf(sei);
  sei.lpFile := PChar(aFilename);
  sei.lpVerb := 'properties';
  sei.fMask  := SEE_MASK_INVOKEIDLIST;
  ShellExecuteEx(@sei);
end;

Aufgerufen werden kann die Procedure beispielsweise so:

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

Informationen zu möglichen Fehlercodes finden Sie in der PSDK unter dem Stichwort „ShellExecuteEx [Now Supported on Windows NT]“.