1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

{Dieser Code wurde von Peter Below geschrieben und stammt aus SwissDelphiCenter}
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;