Dev动态加载皮肤.docVIP

Dev动态加载*.skinres皮肤 下列2个主要函数动态换皮肤 属于程序中的片段 GetCurExEPath 获取当前程序路径 因为我的皮肤文件反正主程序路径下 有什么问题请联系 QQ 250134558 //加载皮肤文件反在AList中 procedure LoadSkins(AList: TStrings;ADisplayNames: Boolean = False); var SkinFiles: TStringDynArray; SkinPath,Skinstr,SKinName: string; begin SkinPath := GetCurExEPath + Skins; if not TDirectory.Exists(SkinPath) then Exit; if TDirectory.IsEmpty(SkinPath) then Exit; SkinFiles := TDirectory.GetFiles(SkinPath, *.skinres, TSearchOption.soTopDirectoryOnly); for Skinstr in SkinFiles do begin try SKinName := TPath.GetFileNameWithoutExtension(