BussinessSkinForm,BUG太多了
procedure TdmRes.LoadSkin(AFileName:string);
var
Ext:string;
begin
if AFileName='' then
exit;
if not FileExists(aFileName) then
exit;
Ext:=ExtractFileExt(AFileName);
if LowerCase(Ext)='.ini' then
SkinData.LoadFromFile(AFileName);
if LowerCase(Ext)='.skn' then
SkinData.LoadFromCompressedFile(AFileName);
end;