摘要:
1、调用文件属性对话框procedure OpenWindowsFilePropertys(FileName: string);var sei: TSHELLEXECUTEINFO;begin ZeroMemory(@sei, sizeof(sei)); sei.cbSize := sizeof(sei); sei.lpFile := PChar(FileName); sei.lpVerb := 'properties'; sei.fMask := SEE_MASK_INVOKEIDLIST; ShellExecuteEx(@sei);end; 2、删除文件或文件夹到回收站fu 阅读全文