摘要: 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 阅读全文
posted @ 2010-03-02 10:41 k1988 阅读(268) 评论(0) 推荐(0) 编辑