Advertisement
Guest User

Splash.iss

a guest
Aug 28th, 2017
161
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ; Время проявления картинки Splash (1500мс = 1,5 сек)
  2. #define SplS "2000"
  3. ; Время показа картинки Splash (3000мс = 3 сек)
  4. #define SplR "5000"
  5. ; Время затухания картинки Splash (1500мс = 1,5 сек)
  6. #define SplE "2000"
  7.  
  8. [Setup]
  9. AppName=Splash
  10. AppVerName=Splash
  11. DefaultDirName={pf}\Splash
  12. OutputDir=.
  13. UsePreviousAppDir=no
  14. UsePreviousGroup=no
  15.  
  16. [Files]
  17. Source: "Include\gifctrl.dll"; Flags: dontcopy solidbreak
  18. Source: "splash.gif"; Flags: dontcopy solidbreak
  19. Source: "Include\isgsg.dll"; Flags: dontcopy solidbreak
  20.  
  21. [Code]
  22. procedure ShowSplashScreen(p1:HWND;p2:AnsiString;p3,p4,p5,p6,p7:integer;p8:boolean;p9:Cardinal;p10:integer); external 'ShowSplashScreen@files:isgsg.dll stdcall delayload';
  23.  
  24. procedure RunSplash();
  25. begin
  26.   ExtractTemporaryFile('splash.gif');
  27.   ShowSplashScreen(WizardForm.Handle,ExpandConstant('{tmp}')+'\splash.gif',{#SplS},{#SplR},{#SplE},0,255,False,$FFFFFF,10);
  28. end;
  29.  
  30. procedure InitializeWizard;
  31. begin
  32.   RunSplash();
  33. end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement