如何更改作業系統預設的目錄圖示 |
尚未結案
|
iamjsn
初階會員 發表:78 回覆:95 積分:44 註冊:2002-08-16 發送簡訊給我 |
|
Vicen
高階會員 發表:13 回覆:145 積分:151 註冊:2005-03-14 發送簡訊給我 |
其实说白了就是在目录下面写一个名称为DESKTOP.INI的配置文件,再将目录属性设定为系统属性即可。 临时写的一个函数,可以参考一下, 在我的机器上通过。
function ChangeDirectoryIcon(sDirPath, sIconPath, sTip:String):Boolean; //sDirPath 修改目录路径 //sIconPath 图标路径 //sTip 自己加的说明 begin if Not DirectoryExists(sDirPath) then //目录不存在就退出 begin Result := False; Exit; end; With TStringList.Create do try try Add('[.ShellClassInfo]') ; Add('IconFile = ' sIconPath) ; Add('InfoTip = ' sTip) ; SaveToFile(IncludeTrailingPathDelimiter(sDirPath) 'Desktop.ini'); SysUtils.FileSetAttr(sDirPath,SysUtils.faReadOnly) ; SysUtils.FileSetAttr(IncludeTrailingPathDelimiter(sDirPath) 'Desktop.ini', SysUtils.faSysFile Or SysUtils.faHidden) ; Result := True; except Result := False; end; finally Free; end; end; |
iamjsn
初階會員 發表:78 回覆:95 積分:44 註冊:2002-08-16 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |