【文章标题】: 自制一个带OpenGL特效的注册机
【文章作者】: 黄仁来[海浪轻风]
【作者主页】: http://hi.baidu.com/beyond0769
【作者声明】: 只是感兴趣，没有其他目的。失误之处敬请诸位大侠赐教!
--------------------------------------------------------------------------------
【详细过程】
  
  很久以前就对国外一些注册机很崇拜，因为它不仅提供破解软件功能，更吸引人的是它超酷的音乐和超炫的动态界面。
  后来知道那些音乐叫MOD音乐，(后来很快就实现了)，还有那些动态界面大多数采用了OpenGL技术，于是，俺也跟着模仿，
  自己梦想着做一个一样酷的注册机……
  
  后来查阅了不少网站和电脑书籍，终于实现了，不敢独享。
  就拿一个动画类似流星的动画效果为例子吧，结合Windows优化大师注册机模板来测试。
  这样编译出来的程序只有几十K，呵呵，我喜欢。
  
  
  //添加uses OpenGL单元
  const
      StarCount       = 500;    //流星数量
  
  type TVertex = record
          X, Y, Z: glFloat;
      end;
  var
      h_Wnd           : HWND;             // 保存需要进行绘图的窗口或控件的句柄
      h_DC            : HDC;              // OpenGL渲染描述表句柄
      h_RC            : HGLRC;            // 窗口着色描述表句柄
      RndVal          : glFloat;
  
      Stars           : array[0..StarCount, 0..1] of TVertex;
      SSP             : array[0..StarCount] of glFloat;
  
      GL_Rect         : TRect; //记录绘画的矩形
  {------------------------------------------------------------------}
  {  绘图主体过程                                                    }
  {------------------------------------------------------------------}
  procedure glDraw();
  var
      I : Integer;
  begin
      glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);  //清除屏幕和深度缓存
      glLoadIdentity();                   // 重置当前的模型观察矩阵
      glTranslate(0, 0, -7);               //移动坐标原点
      glRotatef(90, 1, 0, 0);              //绕X轴90度旋转
  
      // 绘制流星
      for I := 0 to StarCount do
      begin
          glBegin(GL_LINE_STRIP);         //绘制不闭合折线
          glColor3f((Stars[I, 0].Y / 5), (Stars[I, 0].Y / 5), (Stars[I, 0].Y / 5)); //设置流星颜色
          glVertex3fv(@Stars[I, 0]);
          glVertex3fv(@Stars[I, 1]);
          Stars[I, 1] := Stars[I, 0];
          Stars[I, 0].Y := Stars[I, 0].Y + SSP[I];
          if Stars[I, 0].Y >= 10 then
          begin
              SSP[I] := Random(100) / 1000;
              Stars[I, 0].X := (Random(200) - 100) / 100;
              Stars[I, 0].Y := 0;
              Stars[I, 0].Z := (Random(200) - 100) / 100;
              Stars[I, 1] := Stars[I, 0];
          end;
          glEnd;
      end;
  end;
  
  {------------------------------------------------------------------}
  {  初始化 OpenGL 过程                                              }
  {------------------------------------------------------------------}
  procedure glInit();
  var
      I  : Integer;
  begin
      glClearColor(0.0, 0.0, 0.0, 0.0);   // 设置黑色背景
      glShadeModel(GL_SMOOTH);            // 使用色彩阴影平滑
      glClearDepth(1.0);                  // 设置深度缓存值
      glDisable(GL_DEPTH_TEST);           // 启用深度测试
      glBlendFunc(GL_ONE, GL_ONE);        // 调整混合模式
      glEnable(GL_BLEND);                 // 使混合可用
      glHint(GL_PERSPECTIVE_CORRECTION_HINT, GL_NICEST);  // 设置系统如何计算流星
      glLineWidth(2);                     // 设置线宽为2  
      RndVal := 0.07;
      for I := 0 to StarCount do
          SSP[I] := Random(100) / 1000;  
  end;
  
  {------------------------------------------------------------------}
  {  绘图窗口/控件改变大小时的调整过程                               }
  {------------------------------------------------------------------}
  procedure glResizeWnd();
  var
      Width, Height: Integer;
  begin
      Width:=GL_Rect.Right - GL_Rect.Left; // 已经在 初始化窗口中获得数据
      Height:= GL_Rect.Bottom - GL_Rect.Top;
  
      glViewport(0, 0, Width, Height);    // 设置视口区域
      glMatrixMode(GL_PROJECTION);        // 改变投影矩阵
      glLoadIdentity();                   // 重置投影矩阵
      gluPerspective(45.0, Width / Height, 1.0, 100.0);  // 窗口透视计算. Last value = max clipping depth
  
      glMatrixMode(GL_MODELVIEW);         // 返回投影矩阵
      glLoadIdentity();                   // 重置投影矩阵
  end;
  
  {------------------------------------------------------------------}
  {  初始化OpenGL参数，在主窗口创建时加载                            }
  {------------------------------------------------------------------}
  procedure FormCreate_Event;
  var
      pfd             : TPIXELFORMATDESCRIPTOR; // 窗口使用的像素格式
      PixelFormat     : GLuint;
  begin
      with pfd do
      begin
          nSize := SizeOf(TPIXELFORMATDESCRIPTOR);  // 上述格式描述符的大小
          nVersion := 1;                  // 版本号
          dwFlags := PFD_DRAW_TO_WINDOW   // 格式支持窗口
          or PFD_SUPPORT_OPENGL           // 格式必须支持OpenGL
          or PFD_DOUBLEBUFFER;            // 必须支持双缓冲
          iPixelType := PFD_TYPE_RGBA;    // 申请 RGBA 格式
          cColorBits := 24;               // 选定色彩深度
          cRedBits := 0;
          cRedShift := 0;
          cGreenBits := 0;
          cGreenShift := 0;
          cBlueBits := 0;
          cBlueShift := 0;                // 以上六个值为0，忽略红绿蓝色彩位
          cAlphaBits := 0;                // 无Alpha缓存
          cAlphaShift := 0;               // 忽略Shift Bit
          cAccumBits := 0;                // 无累加缓存
          cAccumRedBits := 0;
          cAccumGreenBits := 0;
          cAccumBlueBits := 0;
          cAccumAlphaBits := 0;           // 以上四个值为0,忽略聚集位
          cDepthBits := 16;               // 16位 Z-缓存 (深度缓存)
          cStencilBits := 0;              // 无蒙板缓存
          cAuxBuffers := 0;               // 无辅助缓存
          iLayerType := PFD_MAIN_PLANE;   // 主绘图层
          bReserved := 0;                 // Reserved
          dwLayerMask := 0;
          dwVisibleMask := 0;
          dwDamageMask := 0;              // 以上三个值为0，忽略层遮罩
      end;
  
      PixelFormat := ChoosePixelFormat(h_DC, @pfd); // 选择相应的象素格式
      SetPixelFormat(h_DC, PixelFormat, @pfd);      // 设置象素格式么
      h_RC := wglCreateContext(h_DC);               // 取得着色描述表
      wglMakeCurrent(h_DC, h_RC);                   // 尝试激活着色描述表
      glResizeWnd;                                  //指定绘画范围
      glInit();                                     //初始化OpenGL
  end;
  
  {------------------------------------------------------------------}
  {  释放DC和RC描述表                                                }
  {------------------------------------------------------------------}
  procedure FormDestroy_Event;
  begin
      wglMakeCurrent(h_DC, 0);
      wglDeleteContext(h_RC);
      ReleaseDC(h_Wnd, h_DC);
  end;
  
  //OpenGL 绘图函数和过程构造至此结束.
  
  
  {------------------------------------------------------------------}
  {  以下以Windows优化大师注册机源代码为例实现OpenGL绘图             }
  {------------------------------------------------------------------}
  
  API创建窗口过程，在处理消息队列过程中，捕获WM_INITDIALOG消息后处理以下过程：
          SetTimer(hDlg,$A8,1,NIL);               //设置计时器，触发时间为1毫秒
          //获得进行绘图控件的句柄，这里我以 资源形式生成Group控件,ID为$7D0 = 2000;
          h_Wnd := GetDlgItem(hDlg,$7D0);
          h_DC:=GetDC(h_Wnd);                     //用于OPENGL绘画
          GetWindowRect(h_Wnd,GL_Rect);           //获得Group控件的矩形数据，保存至GL_Rect，用于以后取得矩形范围
          FormCreate_Event;                       // 初始化OpneGL 参数
  然后再捕获WN_TIMER消息进行处理，加入以下代码
          glDraw();                           // 绘制场景
          SwapBuffers(h_DC);                  // 交换缓存 (双缓存)
  捕获退出消息MAIN_CLOSE和MAIN_EXIT消息进行处理，加入以下代码
              FormDestroy_Event;       //释放资源
  __________________________________________________
  
  到此为止，一个OpenGL的主要架框已经完成，并能正常运行。
  本文只是提供一种架框和思路而已，希望对大家有所启发。文章中的疏忽之处恳请高手指正。
  
  附件里是已经编译好的注册机程序。
  
  
  
--------------------------------------------------------------------------------
【经验总结】
  本人刚学OpenGl不久，还有许多疑问有待解决，网上有很多关于它的介绍，比如NEHE的教程就非常精彩，但都是用C语言来
  解释的，本人只懂Delphi，郁闷啊。看来要回头恶补C语言 ``
  
  也期待哪位高人尽快把它全部翻译成Pascal，期待ing ````````
  
--------------------------------------------------------------------------------
【版权声明】: 本文原创于看雪技术论坛, 转载请注明作者并保持文章的完整, 谢谢!

                                                       2008年02月26日 14:01:37

[培训]内核驱动高级班，冲击BAT一流互联网大厂工作，每周日13:00-18:00直播授课