Eigenschaften-Dialog für Dateien anzeigen |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
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;
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;
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]".
Ähnliche Seiten:
- MessageDlg automatisch schließen
- Eigenen Message-Dialog erschaffen
- Mehrere Dateien im OpenDialog auswählen
- Öffnen-mit-Dialog anzeigen
- Laden und Speichern von Texten aus Memofeldern in Dateien
- Drucken mit Dialogen
- Eigenschaften von Komponenten zur Laufzeit ändern
- TFontDialog in Verbindung mit TRichEdit
- Text mit einem FindDialog suchen
- Standard Path-Dialog anzeigen