生日屏保程序VC工程源代码

// 程序需要的头文件 #include "stdafx.h" #include <strsafe.h> #include <scrnsave.h> #pragma comment(lib,"scrnsave.lib") //使用库文件 #pragma comment(lib,"comctl32.lib") #include "resource.h" #include "time.h" #include "pointsea.h" extern HINSTANCE hMainInstance; // screen saver instance handle //CHAR szAppName[80]; // .ini section name CHAR szTemp[20]; // temporary array of characters CHAR szPtSeaScrText[] = "PtSeaScr_Text"; CHAR szPtSeaScrFollow[] = "PtSeaScr_Follow"; CHAR szIniFile[MAXFILELEN]; // .ini or registry file name const char DEFAULT_TEXT[] = "生日快乐^nHappy Birthday^n永远美丽^n天天开心^n珍爱每一天^n"; const LONG DEFAULT_TYPE = 0; char szText[4096]; LONG lType; int g_iScreencx; int g_iScreency; CPointSea ptSea; CFont font; CDC dcBack; CBitmap bmpBack; CRect paintRect; void CALLBACK EXPORT TimerProc( HWND hWnd, // handle of CWnd that called SetTimer UINT nMsg, // WM_TIMER UINT nIDEvent, // timer identification DWORD dwTime // system time ) { static cx, cy; static ecx, ecy; switch(nIDEvent) { case 1: ptSea.Evolve(); ptSea.GetTrans().RotateZ(PI / 900); ::InvalidateRect(hWnd, NULL, false); break; default: break; } } LRESULT CALLBACK ScreenSaverProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam) { static cx, cy; static ecx, ecy; switch (message) { case WM_CREATE: { ::g_iScreencx = ::GetSystemMetrics(SM_CXSCREEN); ::g_iScreency = ::GetSystemMetrics(SM_CYSCREEN); // Retrieve the application name from the .rc file. LoadString(hMainInstance, idsAppName, szAppName, 80 * sizeof(TCHAR)); // Retrieve the .ini (or registry) file name. LoadString(hMainInstance, idsIniFile, szIniFile, MAXFILELEN * sizeof(TCHAR)); GetPrivateProfileString(szAppName, szPtSeaScrText, DEFAULT_TEXT, szText, 4095, szIniFile); lType = GetPrivateProfileInt(szAppName, szPtSeaScrFollow, DEFAULT_TYPE, szIniFile); CRect rect; ::GetWindowRect(hWnd, &rect); cx = rect.Width(); cy = rect.Height(); paintRect = CRect(0, 0, cx, cy); CString txt = szText; if(txt == "") { txt = DEFAULT_TEXT; } ptSea.SetText(txt); ptSea.SetType(int(lType)); CDC DCDesktop; DCDesktop.Attach(::GetDC(NULL)); dcBack.CreateCompatibleDC(&DCDesktop); bmpBack.CreateCompatibleBitmap(&DCDesktop, cx, cy); dcBack.SelectObject(&bmpBack); dcBack.SetTextColor(RGB(255, 255, 255)); dcBack.SetBkMode(TRANSPARENT); ptSea.InitDC(DCDesktop); ptSea.Init(100, 100); ptSea.RotateXTo(PI * 0.55); ptSea.GetTrans().RotateZ(PI / 2.5); int i; for(i = 3; i < 10; i++) { ptSea.Interfere(rand() % ptSea.GetSize().cx, rand() % ptSea.GetSize().cy, 2 * i / 10.0, int(50 * 10 / 10.0)); ptSea.Evolve(); } for(i = 0; i < 100; i++) { ptSea.Evolve(); } // 开启计时器 ::SetTimer(hWnd, 1, 33, TimerProc); } case WM_PAINT: { PAINTSTRUCT ps; HDC hDC = BeginPaint(hWnd, &ps); CDC dc; dc.Attach(hDC); ptSea.Paint(dcBack, paintRect); dc.BitBlt(0, 0, paintRect.Width(), paintRect.Height(), &dcBack, 0, 0, SRCCOPY); EndPaint(hWnd, &ps); } break; case WM_DESTROY: { ::KillTimer(hWnd, 1); PostQuitMessage(0); } break; default: // 缺省的消息处理函数 return DefScreenSaverProc(hWnd,message,wParam,lParam); } return 0; } void InitScrollData(HWND hDlg, HWND & hWnd, long & val, int id, int minval, int maxval, int defval) { // If the initialization file does not contain an entry // for this screen saver, use the default value. if(val > maxval || val < minval) val = defval; // Initialize the redraw speed scroll bar control. hWnd = GetDlgItem(hDlg, id); SetScrollRange(hWnd, SB_CTL, minval, maxval, FALSE); SetScrollPos(hWnd, SB_CTL, val, TRUE); } BOOL UpdateScrollData(WPARAM wParam, long & pos, int minval, int maxval) { switch (LOWORD(wParam)) { case SB_PAGEUP: pos -= 100; break; case SB_LINEUP: --pos; break; case SB_PAGEDOWN: pos += 100; break; case SB_LINEDOWN: ++pos; break; case SB_THUMBPOSITION: pos = HIWORD(wParam); break; case SB_BOTTOM: pos = minval; break; case SB_TOP: pos = maxval; break; case SB_THUMBTRACK: case SB_ENDSCROLL: return TRUE; break; } if ((int) pos < minval) pos = minval; if ((int) pos > maxval) pos = maxval; return FALSE; } BOOL WINAPI AboutDialog(HWND hWnd,UINT message,WPARAM wParam, LPARAM lParam) { switch (message) { case WM_INITDIALOG: return TRUE; case WM_COMMAND: switch(wParam) { case IDOK: EndDialog(hWnd,TRUE); return TRUE; } break; } return FALSE; } BOOL WINAPI ScreenSaverConfigureDialog(HWND hDlg, UINT message, WPARAM wParam, LPARAM lParam) { HRESULT hr; static HWND hText; static HWND hFollow; switch (message) { case WM_INITDIALOG: { font.CreateFont( 48, // nHeight 0, // nWidth 0, // nEscapement 0, // nOrientation FW_BOLD, // nWeight FALSE, // bItalic FALSE, // bUnderline 0, // cStrikeOut DEFAULT_CHARSET, // nCharSet OUT_DEFAULT_PRECIS, // nOutPrecision CLIP_DEFAULT_PRECIS, // nClipPrecision DEFAULT_QUALITY, // nQuality DEFAULT_PITCH, // nPitchAndFamily "华文彩云"); // get screen size. ::g_iScreencx = ::GetSystemMetrics(SM_CXSCREEN); ::g_iScreency = ::GetSystemMetrics(SM_CYSCREEN); // Retrieve the application name from the .rc file. LoadString(hMainInstance, idsAppName, szAppName, 80 * sizeof(TCHAR)); // Retrieve the .ini (or registry) file name. LoadString(hMainInstance, idsIniFile, szIniFile, MAXFILELEN * sizeof(TCHAR)); GetPrivateProfileString(szAppName, szPtSeaScrText, DEFAULT_TEXT, szText, 4095, szIniFile); lType = GetPrivateProfileInt(szAppName, szPtSeaScrFollow, DEFAULT_TYPE, szIniFile); // TODO: Add error checking to verify LoadString success // for both calls. CString txt; hText = ::GetDlgItem(hDlg, IDC_ET_TEXT); txt = szText; txt.Replace("^n", "\r\n"); ::SetWindowText(hText, txt); SendMessage(hText, WM_SETFONT, (WPARAM) (HFONT)font, (LPARAM) 0); //::SetFont(hText, font.m_hObject, false); ::CheckDlgButton(hDlg, IDC_CK_FOLLOW, (lType == 0) ? BST_CHECKED : BST_UNCHECKED); return TRUE; } case WM_COMMAND: switch(LOWORD(wParam)) { case IDC_CK_FOLLOW: lType = (lType == 1) ? 0 : 1; ::CheckDlgButton(hDlg, IDC_CK_FOLLOW, (lType == 0) ? BST_CHECKED : BST_UNCHECKED); break; case IDOK: { // Write the current redraw speed variable to // the .ini file. ::GetWindowText(hText, szText, 4095); CString txt; txt = szText; txt.Replace("\r", ""); txt.Replace("\n", "^n"); if(txt == "") { txt = DEFAULT_TEXT; }