Advertisement
Guest User

Untitled

a guest
Feb 22nd, 2019
83
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.70 KB | None | 0 0
  1. [Files]
  2. Source: "c:Folder00ISSkin.dll"; DestDir: {tmp}; Flags: dontcopy; Attribs: hidden system
  3.  
  4. [Code]
  5. procedure LoadSkin(lpszPath: String; lpszIniFileName: String); external 'LoadSkin@c:Folder00ISSkin.dll cdecl';
  6.  
  7. procedure UnloadSkin();
  8. external 'UnloadSkin@c:Folder00ISSkin.dll cdecl'
  9.  
  10. [Files]
  11. Source: ISSkin.dll; DestDir: {app}; Flags: dontcopy
  12. Source: Office2007.cjstyles; DestDir: {tmp}; Flags: dontcopy
  13.  
  14. [Code]
  15. procedure LoadSkin(lpszPath: String; lpszIniFileName: String); external 'LoadSkin@files:isskin.dll stdcall';
  16.  
  17. function InitializeSetup(): Boolean;
  18. begin
  19. ExtractTemporaryFile('Office2007.cjstyles');
  20. LoadSkin(ExpandConstant('{tmp}Office2007.cjstyles'), '');
  21. Result := True;
  22. end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement