anchor.diff:  
   initialization
     DDuiApp := TDDuiApp.Create(nil);
  +  uZipFileCache := TMemoryStream.Create;
   
   finalization
  +  uZipFileCache.Free;
     DDuiApp.Free;
   
   end.
  
positive.code:   LResourcePath: string;
    pRoot: CControlUI;
    LResStream: TResourceStream;
    LMemStream: TMemoryStream;
  begin
    if FIsUIInitd then Exit;
    FCanProcessDuiMsg := True;
  
negative.code:           begin
               // ʹģֱͳ
  //             FPaintMgr.SetResourceZip(SkinZipFile, True);
               if uZipFileCache.Size = 0 then
               begin
                 uZipFileCache.LoadFromFile(LResourcePath + FSkinZipFile);
                 FPaintMgr.SetResourceZip(uZipFileCache.Memory, uZipFileCache.Size);
               end;
            end;
          skZipResource:
            begin
              if uZipFileCache.Size = 0 then
              begin
                LResStream := TResourceStream.Create(FPaintMgr.GetResourceDll, FSkinResName, 'ZIPRES');
                try
                  if LResStream.Size <> 0 then
                  begin
                    LResStream.Position := 0;
                    uZipFileCache.LoadFromStream(LResStream);
                    FPaintMgr.SetResourceZip(uZipFileCache.Memory, uZipFileCache.Size);
                  end
                  else Exit;
                finally
                  LResStream.Free;
                end;
              end;
            end;
        end;
  