Как вызвать диалог свойств файла
Как вызвать диалог свойств файла
Как вызвать диалог свойств файла Например, вот так: uses shellapi; procedure PropertiesDialog(FileName: string); var fileinfo: TShellExecuteInfo; begin FillChar(fileinfo, SizeOf(fileinfo), 0); fileinfo.cbSize := SizeOf(fileinfo); fileinfo.lpFile := PChar(FileName); fileinfo.lpVerb := 'properties'; fileinfo.fMask := SEE_MASK_INVOKEIDLIST; ShellExecuteEx(@fileinfo); end; procedure TForm1.Button1Click(Sender: TObject); begin if Opendialog1.Execute then PropertiesDialog(Opendialog1.FileName); end; Автор сей мудреной штуки - Peter Below (TeamB)
