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