home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 March / CMCD0304.ISO / Software / Freeware / Programare / nullsoft / nsis20.exe / Contrib / AdvSplash / advsplash.c next >
C/C++ Source or Header  |  2003-11-12  |  9KB  |  321 lines
  1. // For layered windows
  2. #define _WIN32_WINNT 0x0500
  3.  
  4. #include <windows.h>
  5. #include <windowsx.h>
  6. #include "..\exdll\exdll.h"
  7.  
  8. HINSTANCE g_hInstance;
  9.  
  10. #define RESOLUTION 32 // 30 fps ;) (32? I like SHR more than iDIV ;)
  11.  
  12. BITMAP bm;
  13. HBITMAP g_hbm;
  14. int g_rv;
  15. int resolution;
  16. int sleep_val, fadein_val, fadeout_val, state, timeleft, keycolor, nt50, alphaparam;
  17. const char classname[4]="_sp";
  18.  
  19. typedef BOOL (_stdcall *_tSetLayeredWindowAttributesProc)(HWND hwnd, // handle to the layered window
  20.   COLORREF crKey,      // specifies the color key
  21.   BYTE bAlpha,         // value for the blend function
  22.   DWORD dwFlags        // action
  23. );
  24. _tSetLayeredWindowAttributesProc SetLayeredWindowAttributesProc;
  25.  
  26. static LRESULT CALLBACK WndProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam)
  27. {
  28.     PAINTSTRUCT ps;
  29.     RECT r;
  30.     HDC curdc = NULL;
  31.     HDC hdc;
  32.     HBITMAP oldbm;
  33.  
  34.     switch (uMsg)
  35.     {
  36.     case WM_CREATE:
  37.         SystemParametersInfo(SPI_GETWORKAREA, 0, &r, 0);
  38.         SetWindowLong(hwnd,GWL_STYLE,0);
  39.         SetWindowPos(hwnd,NULL,
  40.         r.left+(r.right-r.left-bm.bmWidth)/2,
  41.         r.top+(r.bottom-r.top-bm.bmHeight)/2,
  42.         bm.bmWidth,bm.bmHeight,
  43.         SWP_NOZORDER | SWP_SHOWWINDOW);
  44.         return 0;
  45.  
  46.     case WM_PAINT:
  47.         curdc=BeginPaint(hwnd,&ps);
  48.         hdc=CreateCompatibleDC(curdc);
  49.         GetClientRect(hwnd,&r);
  50.  
  51.         oldbm = SelectObject(hdc, g_hbm);
  52.         BitBlt(curdc,r.left,r.top,r.right-r.left,r.bottom-r.top,hdc,0,0, SRCCOPY);
  53.         
  54.         SelectObject(hdc,oldbm);
  55.         DeleteDC(hdc);  
  56.         EndPaint(hwnd,&ps);
  57.  
  58.     case WM_CLOSE:
  59.         return 0;
  60.  
  61.     case WM_TIMER:
  62.     case WM_LBUTTONDOWN:
  63.         g_rv=(uMsg == WM_LBUTTONDOWN);
  64.         DestroyWindow(hwnd);
  65.         break;
  66.     }
  67.     return DefWindowProc(hwnd,uMsg,wParam,lParam);
  68. }
  69.  
  70. void SetTransparentRegion(HWND myWnd)
  71. {
  72.     HDC dc;
  73.     int x, y;
  74.     HRGN region, cutrgn;
  75.     BITMAPINFO bmi;
  76.     int size = bm.bmWidth * bm.bmHeight*4;
  77.     int *bmp = GlobalAlloc(GPTR, size);
  78.     bmi.bmiHeader.biBitCount = 32;
  79.     bmi.bmiHeader.biCompression = BI_RGB;
  80.     bmi.bmiHeader.biHeight = bm.bmHeight;
  81.     bmi.bmiHeader.biPlanes = 1;
  82.     bmi.bmiHeader.biSize = sizeof(BITMAPINFOHEADER);
  83.     bmi.bmiHeader.biWidth = bm.bmWidth;
  84.     bmi.bmiHeader.biClrUsed = 0;
  85.     bmi.bmiHeader.biClrImportant = 0;
  86.  
  87.     dc = CreateCompatibleDC(NULL);
  88.     SelectObject(dc, g_hbm);
  89.  
  90.     x = GetDIBits(dc, g_hbm, 0, bm.bmHeight, bmp, &bmi, DIB_RGB_COLORS);
  91.  
  92.     region = CreateRectRgn(0,0,bm.bmWidth,bm.bmHeight);
  93.  
  94.     // Search for transparent pixels 
  95.     for (y = bm.bmHeight-1; y >= 0; y--)
  96.         for (x = 0; x < bm.bmWidth; )
  97.         if ((*bmp & 0xFFFFFF) == keycolor) 
  98.         {
  99.             int j = x;
  100.             while ((x < bm.bmWidth) && ((*bmp & 0xFFFFFF) == keycolor)) bmp++, x++;
  101.  
  102.             // Cut transparent pixels from the original region
  103.             cutrgn = CreateRectRgn(j, y, x, y+1);
  104.             CombineRgn(region, region, cutrgn, RGN_XOR);
  105.             DeleteObject(cutrgn);
  106.         } else bmp++, x++;
  107.                                 
  108.     // Set resulting region.
  109.     SetWindowRgn(myWnd, region, TRUE);
  110.     DeleteObject(region);
  111.     DeleteObject(dc);
  112.     GlobalFree(bmp);
  113. }
  114.  
  115. BOOL WINAPI DllMain(HANDLE hInst, ULONG ul_reason_for_call, LPVOID lpReserved)
  116. {
  117.     g_hInstance=hInst;
  118.     return TRUE;
  119. }
  120.  
  121. void CALLBACK TimeProc(
  122.   UINT uID,      
  123.   UINT uMsg,     
  124.   DWORD dwUser,  
  125.   DWORD dw1,     
  126.   DWORD dw2)
  127. {
  128.         int call = -1;
  129.         switch (state)
  130.         {
  131.         // FadeIN
  132.         case 0: if (timeleft == 0)
  133.                 {
  134.                     timeleft = sleep_val;
  135.                     state++;
  136.                     if (nt50) call = 255;                                   
  137.                 } else { call = ((fadein_val-timeleft)*255)/fadein_val; break; }
  138.         // Sleep
  139.         case 1: if (timeleft == 0)
  140.                 {
  141.                     timeleft = fadeout_val;
  142.                     state++;                        
  143.                     // fadeout
  144.                 } else break;
  145.         // FadeOUT
  146.         case 2: if (timeleft == 0)
  147.                 {
  148.                     PostMessage((HWND)dwUser, WM_TIMER, 0, 0);
  149.                     return;
  150.                 } else { call = ((timeleft)*255)/fadeout_val; break;    }
  151.         }
  152.         // Transparency value aquired, and could be set...
  153.         if ((call >= 0) && nt50)
  154.                 SetLayeredWindowAttributesProc((HWND)dwUser, keycolor, 
  155.                                         call, 
  156.                                         alphaparam);                
  157.         
  158.         // Time is running out...
  159.         timeleft--;
  160. }
  161.  
  162. int myatoi(char *s);
  163.  
  164. void __declspec(dllexport) show(HWND hwndParent, int string_size, char *variables, stack_t **stacktop)
  165. {
  166.   DEVMODE dm;
  167.   char fn[MAX_PATH];
  168.   char temp[64];
  169.  
  170.   g_rv = -1;
  171.   resolution = RESOLUTION;
  172.  
  173.   EXDLL_INIT();
  174.  
  175.   popstring(temp);
  176.   sleep_val = myatoi(temp);
  177.   popstring(temp);
  178.   fadein_val = myatoi(temp);
  179.   popstring(temp);
  180.   fadeout_val = myatoi(temp);
  181.   popstring(temp);
  182.   keycolor = myatoi(temp);
  183.   popstring(fn);
  184.  
  185.   dm.dmSize = sizeof(DEVMODE);
  186.   EnumDisplaySettings(NULL, ENUM_CURRENT_SETTINGS, &dm);
  187.   // Check for winXP/2k at 32 bpp transparency
  188.   nt50 = (LOBYTE(LOWORD(GetVersion())) >= 5) && !((dm.dmBitsPerPel < 32) && (keycolor != -1));
  189.   if (!nt50)
  190.   {
  191.       // Fading+transparency is unsupported at old windows versions...
  192.       resolution = sleep_val + fadein_val + fadeout_val; 
  193.       fadeout_val = fadein_val = 0;
  194.       sleep_val = 1;
  195.   } else 
  196.   {
  197.       // div them by resolution
  198.       sleep_val >>= 5;
  199.       fadein_val >>= 5;
  200.       fadeout_val >>= 5;
  201.  
  202.       alphaparam = LWA_ALPHA | ((keycolor == -1)?(0):(LWA_COLORKEY));        
  203.       keycolor = ((keycolor & 0xFF) << 16) + (keycolor & 0xFF00) + ((keycolor & 0xFF0000) >> 16);
  204.   }
  205.  
  206.   if (fn[0] && ((sleep_val+fadein_val+fadeout_val)>0))
  207.   {
  208.     MSG msg;
  209.     static WNDCLASS wc;
  210.     wc.lpfnWndProc = WndProc;
  211.     wc.hInstance = g_hInstance;
  212.     wc.hCursor = LoadCursor(NULL,IDC_ARROW);
  213.     wc.lpszClassName = classname;
  214.     if (RegisterClass(&wc)) 
  215.     {
  216.       char fn2[MAX_PATH];
  217.       lstrcpy(fn2,fn);
  218.       lstrcat(fn,".bmp");
  219.       lstrcat(fn2,".wav");
  220.       g_hbm=LoadImage(NULL,fn,IMAGE_BITMAP,0,0,LR_CREATEDIBSECTION|LR_LOADFROMFILE);
  221.       if (g_hbm) 
  222.       {
  223.                 HWND myWnd;
  224.                 UINT timerEvent;
  225.  
  226.                 // Get Bitmap Information
  227.                 GetObject(g_hbm, sizeof(bm), (LPSTR)&bm);
  228.  
  229.                 myWnd = CreateWindowEx(WS_EX_TOOLWINDOW | ((nt50)?(WS_EX_LAYERED):(0)),classname,classname,
  230.                                         0,0,0,0,0,(HWND)hwndParent,NULL,g_hInstance,NULL);
  231.  
  232.                 // Set transparency / key color
  233.                 if (nt50)
  234.                 {
  235.                         // Get blending proc address
  236.                         HANDLE user32 = GetModuleHandle("user32");
  237.                         SetLayeredWindowAttributesProc = (_tSetLayeredWindowAttributesProc) GetProcAddress(user32, "SetLayeredWindowAttributes");
  238.                         // Use win2k method
  239.                         SetLayeredWindowAttributesProc(myWnd, keycolor, 
  240.                                 (fadein_val > 0)?(0):(255), 
  241.                                 alphaparam);
  242.                 } else
  243.                         if (keycolor != -1)
  244.                         {
  245.                             // transparency mode                                
  246.                             SetTransparentRegion(myWnd);
  247.                         }                            
  248.                         
  249.                 PlaySound(fn2,NULL,SND_ASYNC|SND_FILENAME|SND_NODEFAULT);
  250.  
  251.                 // Start up timer...
  252.                 state = 0; timeleft = fadein_val;
  253.                 timerEvent = timeSetEvent(resolution, RESOLUTION/4, TimeProc, (DWORD_PTR)myWnd, TIME_PERIODIC);
  254.  
  255.         while (IsWindow(myWnd) && GetMessage(&msg,myWnd,0,0))
  256.         {
  257.           DispatchMessage(&msg);
  258.         }
  259.  
  260.         // Kill the timer...
  261.         timeKillEvent(timerEvent);
  262.         
  263.         // Stop currently playing wave, we want to exit
  264.         PlaySound(0,0,0);
  265.  
  266.         DeleteObject(g_hbm);
  267.       }
  268.  
  269.       // We should UnRegister class, since Windows NT series never does this by itself
  270.       UnregisterClass(wc.lpszClassName, g_hInstance);
  271.     }
  272.   }
  273.   wsprintf(temp,"%d",g_rv);
  274.   pushstring(temp);
  275. }
  276.  
  277. int myatoi(char *s)
  278. {
  279.   unsigned int v=0;
  280.   if (*s == '0' && (s[1] == 'x' || s[1] == 'X'))
  281.   {
  282.     s+=2;
  283.     for (;;)
  284.     {
  285.       int c=*s++;
  286.       if (c >= '0' && c <= '9') c-='0';
  287.       else if (c >= 'a' && c <= 'f') c-='a'-10;
  288.       else if (c >= 'A' && c <= 'F') c-='A'-10;
  289.       else break;
  290.       v<<=4;
  291.       v+=c;
  292.     }
  293.   }
  294.   else if (*s == '0' && s[1] <= '7' && s[1] >= '0')
  295.   {
  296.     s++;
  297.     for (;;)
  298.     {
  299.       int c=*s++;
  300.       if (c >= '0' && c <= '7') c-='0';
  301.       else break;
  302.       v<<=3;
  303.       v+=c;
  304.     }
  305.   }
  306.   else
  307.   {
  308.     int sign=0;
  309.     if (*s == '-') { s++; sign++; }
  310.     for (;;)
  311.     {
  312.       int c=*s++ - '0';
  313.       if (c < 0 || c > 9) break;
  314.       v*=10;
  315.       v+=c;
  316.     }
  317.     if (sign) return -(int) v;
  318.   }
  319.   return (int)v;
  320. }
  321.