...den Datei Eigenschaften Dialog aufrufen?

Autor: Simon Grossenbacher
Homepage: http://www.swissdelphicenter.ch

Kategorie: Dateien

{ This code shows the standard file properties dialog like in Windows Explorer }

uses
  
shellapi;

// Thanks to Peter Below (TeamB) for this code
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;


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

 

printed from
www.swissdelphicenter.ch
developers knowledge base