http://www.02t.cn/ PJBlog3 2012-01-16T11:35:31+08:00 小氓男 http://www.02t.cn/ csw163@126.com 2012-01-16T11:35:31+08:00 2012-01-16T11:35:31+08:00

DELPHI写的旺旺群发器，可用于旺旺2009，2010群发信息，可分析网页批量获取卖定或买家，可保存数据信息。
下载地址]]>

http://www.02t.cn/default.asp?id=215 小氓男 http://www.02t.cn/ csw163@126.com 2011-12-06T10:06:31+08:00 2011-12-06T10:06:31+08:00

  GetWindowThreadProcessId :获取进程ID
  OpenProcess              :获取进程句柄    
  ReadProcessMemory        :读出指定进程 指定位置 的数据到缓冲区
DWORD GetWindowThreadProcessId(
  HWND hWnd,             // 窗口句柄 由FindWindow获取
  LPDWORD lpdwProcessId  // 存放进程ID的 变量
);

HANDLE OpenProcess(
  DWORD dwDesiredAccess,    // PROCESS_VM_READ or PROCESS_VM_WRITE 访问权限
  BOOL bInheritHandle,      // 这个是继承标志 在这里 为false
  DWORD dwProcessId         // 进程ID  由GetWindowThreadProcessId 获取
);
BOOL ReadProcessMemory(
  HANDLE hProcess,            // 进程句柄 由OpenProcess函数获取
  LPCVOID lpBaseAddress,      // 要读出数据的地址：$47d814
  LPVOID lpBuffer,            // 用于存放读取数据的地址：sitNum
  DWORD nSize,                // 要读出的数据大小  4
  LPDWORD lpNumberOfBytesRead // 读出数据的实际大小
);

一.读指定进程内存:ReadProcessMemory
  此函数的定义为:function ReadProcessMemory(hProcess: THandle; const lpBaseAddress: Pointer; lpBuffer: Pointer; nSize: DWORD; var lpNumberOfBytesRead: DWORD): BOOL; stdcall;
  hProcess指向被读取内存的进程的句柄,此句柄必须有PROCESS_VM_READ权限.
  lpBaseAddress:指向被读取的内存在进程中基地址的指针.
  lpBuffer:指向用于保存读出数据的缓冲区的指针.
  nSize:指定从指定进程中要读取的字节数.
  lpNumberOfBytesRead:指向读出数据的实际字节数.

二.写指定进程内存:WriteProcessMemory
  此函数的定义为:function WriteProcessMemory(hProcess: THandle; const lpBaseAddress: Pointer; lpBuffer: Pointer; nSize: DWORD; var lpNumberOfBytesWritten: DWORD): BOOL; stdcall;
参数含义同ReadProcessMemory,其中hProcess句柄要有对进程的PROCESS_VM_WRITE和PROCESS_VM_OPERATION权限.lpBuffer为要写到指定进程的数据的指针.





procedure TForm1.Timer1Timer(Sender: TObject);
var
  hgame:HWND;
  pidgame:DWORD;
  hprocess:HWND;
  chessdata:DWORD;
  readbyte:DWORD;
  meney:DWORD;

begin
    meney:=10000;
  //获取游戏窗口句柄
    hGame:=Findwindow(nil,'Red Alert 2');
    //获取游戏进程 PID
    windows.GetWindowThreadProcessId(hGame,PidGame) ;
    //获取游戏进程句柄
    hProcess:=windows.OpenProcess(windows.PROCESS_ALL_ACCESS,false,PidGame);
      if hgame<>0 then Label1.Caption:='游戏运行中'

      else
      Label1.Caption:='游戏未启动';

      if CheckBox1.Checked then  //写数据
      meneyxg;
    //  WriteProcessMemory(hprocess,Pointer($00a1e0c4),@ChessData,4,readbyte);



      //读出数据
      ReadProcessMemory(hProcess,Pointer($00a1e0c4),@ChessData,4,readByte);
      ReadProcessMemory(hProcess,Pointer(ChessData+$24c),@ChessData,4,readByte);

      if Label1.Caption='游戏运行中' then Label2.Caption:='金钱：'+IntToStr(chessdata)
      else
      Label2.Caption:='';

       //释放进程句柄
      CloseHandle(Hprocess);
end;



  procedure meneyxg();
var
hgame:HWND;
  pidgame:DWORD;
  hprocess:HWND;
  chessdata:DWORD;
  readbyte:DWORD;
  money:DWORD;
begin
     //  ChessData:=1000;
  //获取游戏窗口句柄
    hGame:=Findwindow(nil,'Red Alert 2');
    //获取游戏进程 PID
    windows.GetWindowThreadProcessId(hGame,PidGame) ;
    //获取游戏进程句柄
    hProcess:=windows.OpenProcess(windows.PROCESS_ALL_ACCESS,false,PidGame);
    ReadProcessMemory(hProcess,Pointer($a1e0c4),@ChessData,4,readByte);
     money:=10000;
    WriteProcessMemory(hprocess,Pointer(ChessData+$24c),@money,4,readbyte);          //释放进程句柄
      CloseHandle(Hprocess);
end;
]]>

http://www.02t.cn/default.asp?id=214 小氓男 http://www.02t.cn/ csw163@126.com 2011-11-30T08:20:20+08:00 2011-11-30T08:20:20+08:00

ExtractStrings(Separators: TSysCharSet; WhiteSpace: TSysCharSet; Content: PAnsiChar; Strings: TStrings): Integer;

Separators 参数指定一组分割符，所有的子串都是用它们分割的。但是成对的引号内的分割符会被忽略。

WhiteSpace 参数指定每个子串开头被忽略的字符s。


Content 参数就是被分割的“源”串了。


Strings 参数用于接收分割后的各个子串。它的原有内容不会被清空。

该函数的特点是能够自动除去空字符，即''。大多数情况下是很好的，但是如果我么需要这些空字符时就很麻烦了（如导数据库，空字符串代表一个可Null的字段），因此可以用TStringlist的分割方法：

Delimiter：指定分割符，默认为逗号。

DelimitedText：指定需要分割的字符串，其中可以包含空字符。

但是，这个函数也有问题：它默认将空格也作为分割符，也就是说你的字符串中要是包含空格，它就会把字符串分开，也是很麻烦的。

因此，真正要适合我们的需求还是需要自己动手完善功能的，比如可以用StringReplce方法替换所有空格；对于空字符可以在拼凑源字符串时用空格代替，在分割时在用空替换等等。

]]>

http://www.02t.cn/default.asp?id=213 小氓男 http://www.02t.cn/ csw163@126.com 2011-11-27T13:39:06+08:00 2011-11-27T13:39:06+08:00

这几个函数都包含在StrUtils中，所以需要uses StrUtils;
假设字符串是 Dstr := ’Delphi is the BEST’, 那么
LeftStr(Dstr, 5) := ’Delph’
MidStr(Dstr, 6, 7) := ’i is th’
RightStr(Dstr, 6) := ’e BEST’

~~~~~~~~~~~~~~~~~~~~~~~~~
function RightStr
    (Const Str: String; Size: Word): String;
begin
  if Size > Length(Str) then Size := Length(Str) ;
  RightStr := Copy(Str, Length(Str)-Size+1, Size)
end;
function MidStr
    (Const Str: String; From, Size: Word): String;
begin
  MidStr := Copy(Str, From, Size)
end;
function LeftStr
    (Const Str: String; Size: Word): String;
begin
  LeftStr := Copy(Str, 1, Size)
end;

这几个函数经常结合Pos, Length, Copy使用


拆分字符串的函数

delphi中没有提供此类函数，从大富翁找了一个
function split(src,dec : string):TStringList;
var
  i : integer;
  str : string;
begin
  result := TStringList.Create;
  repeat
    i := pos(dec,src);
    str := copy(src,1,i-1);
    if (str='') and (i>0) then
    begin
      delete(src,1,length(dec));
      continue;
    end;
    if i>0 then
    begin
      result.Add(str);
      delete(src,1,i+length(dec)-1);
    end;
  until i<=0;
  if src<>'' then
    result.Add(src);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  ss : TStringList;
  str,dec : string;
begin
  str := '1111||2222||||3333|||4444||';
  dec := '||';
  ss := split(str,dec);
  memo1.Lines.AddStrings(ss);
  ss.Free;
end;



2.Delphi字符串分割函数

function TForm1.SplitString(Source,Deli:string):TStringList;//拆分字符串函数
var
EndOfCurrentString:byte;
StringList:TStringList;
begin
    StringList:=TStringList.Create;
    while Pos(Deli,Source)>0 do         //当存在拆分符号时
    begin
      EndOfCurrentString:=Pos(Deli,Source);         //取分隔符的位置
      StringList.add(Copy(Source,1,EndOfCurrentString-1));    //添加项目
      Source:=Copy(Source,EndOfCurrentString+length(Deli),length(Source)-EndOfCurrentString); //减去已添加项和分隔符
    end;
    StringList.Add(source);   //如果不存在分隔符时，直接作为项目添加
    Result:=StringList;       //设置返回类型
end;

用法如下:

procedure TForm1.Button2Click(Sender: TObject);
var
s:Tstringlist;
i:integer;
str:string;
begin
    listbox2.Items.Clear;
    s:=Tstringlist.Create;
    str:=Edit1.Text;
try
   s.Assign(Form1.SplitString(str,'^'));
   for i:=0 to s.Count-1 do
     listbox2.Items.Add(s.Strings[i]);
finally
   freeandnil(s);
end;

另Delphi中自带一个分割字符串函数ExtractStrings

function ExtractStrings(Separators: TSysCharSet; WhiteSpace: TSysCharSet; Content: PAnsiChar; Strings: TStrings): Integer;

[参数注释]:
Separators 参数指定一组分割符，所有的子串都是用它们分割的。但是成对的引号内的分割符会被忽略（参看下面的例子）。
WhiteSpace 参数指定每个子串开头被忽略的字符s。
Content 参数就是被分割的“源”串了。
Strings 参数用于接收分割后的各个子串。它的原有内容不会被清空。别忘了Create哦。
另外，EctractStrings不会把（忽略WhiteSpaces后的）空串加入到Strings中。

[Example]

比如
ABC|...   DEF|#### GHI|"不会被分开|# www.farproc.com"
要得到

ABC
DEF
GHI
不会被分开|# www.farproc.com

四个子串可以用下面的代码：

uses
   Classes;
var
   ASource: PChar;
   AStr: String;
   ACount: Integer;
   AStrings: TStringList;
begin
   ASource := 'ABC|...   DEF|#### GHI|"不会被分开|# www.farproc.com"';
   AStrings := TStringList.Create;
   try
     ACount := ExtractStrings(['|'], [' ', '#', '.'], ASource, AStrings);
     {do any further processing}
     /for AStr in AStrings do
     //   Writeln(AStr);
   finally
     AStrings.Free;
   end;

   Readln;
end.

====================

procedure TForm1.Button1Click(Sender:TObject);    //方法1
var
s:TStringList;
i:integer;
begin
s := TStringList.Create;
s.Text := StringReplace('this is a phone', ' ', #13#10, [rfReplaceAll]);
for i := 0 to s.Count - 1 do
begin
    Memo1.Lines.Add(s.Strings[i]);
end;
end;

procedure TForm1.Button2Click(Sender:TObject);   //方法2
var
s:TStringList;
i:Integer;
begin
S := TStringList.Create;
S.Delimiter := ' ';
S.DelimitedText := 'this is a phone';
for i := 0 to S.Count - 1 do      //此处不能有Begin~end;否则出错
    Memo2.Lines.Add(s.Strings[i]);
    S.Free;
end;

procedure TForm1.Button3Click(Sender: TObject); ////方法3
begin
ExtractStrings([' '],[],'this is a phone',Memo3.Lines );
end;
]]>

http://www.02t.cn/default.asp?id=212 小氓男 http://www.02t.cn/ csw163@126.com 2011-11-25T09:22:13+08:00 2011-11-25T09:22:13+08:00

下载mygg

修复了无法下载的问题

请放到和GGDown.exe 同一个目录下即可使用。


]]>

http://www.02t.cn/default.asp?id=211 小氓男 http://www.02t.cn/ csw163@126.com 2011-11-16T08:49:20+08:00 2011-11-16T08:49:20+08:00

                                             Cohen 翻译

英文原文：http://bdn.borland.com/article/0,1410,26401,00.html

OpenGL 是一个低层的图形库，最初由Silicon Graphics Inc. 公司开发。在用户操作系统上对OpenGL具体的实现一般被称为OpenGL驱动，它允许用户使用一组几何元素（点，线，多边形，图象等等）来描述需要绘制的场景。使用OpenGL对一个复杂的场景进行可视化通常只需要毫秒级的时间，这就意味着OpenGL图形库有足够的性能来支持用户创建动画和虚拟世界。

OpenGL驱动通常以二进制格式的库文件提供给用户，用户可以在应用程序中动态的连接这个库文件。在Windows平台上，这个库文件的形式是一个DLL（就是用户系统目录下的opengl.dll文件）。因为Delphi可以调用DLL文件，所以用Delphi进行OpenGL图形开发就像使用其它语言进行OpenGL图形开发一样容易。这篇文章会帮助你熟悉使用Delphi进行OpenGL图形开发的过程。



数学基础

OpenGL 具有很强的数学背景，你使用OpenGL进行图形开发所仅仅受到你想象力的限制。在进入OpenGL的世界之前，先让我们先来看一个被大多数3D程序员使用的非常简单的3D坐标系统：


这幅图描述了在绘制场景中屏幕的位置。图中四条线汇集在一起的点就是虚拟世界中的观察者的视点。OpenGL允许用户使用两个简单的函数调用来完成这样的设置：

glMatrixMode(GL_PROJECTION);
glFrustum(-0.1, 0.1, -0.1, 0.1, 0.3, 25.0);
在这两个函数调用中，-0.1, 0.1, -0.1, 0.1 以左，右，下，上的顺序定义了虚拟屏幕的尺寸; 0.3 定义了视点到屏幕的距离（等于近剪裁平面）; 25.0 定义了远剪裁平面。在近端剪裁平面之前和远端剪裁平面之后的场景都不会被显示出来。当然，你也可以根据自己的需要来设置这些参数。



从图形元素到物体

现在到了具有挑战性的一个部分：物体。OpenGL仅仅支持以下几种图形元素：点，线和多边形，它并不支持直接绘制复杂的曲面（例如球面等等）。但是，我们仍然可以用多边形来近似模拟这些曲面，通常是使用三角形来进行模拟（你可以在现在的3D游戏当中看到游戏中的物体都是由三角形面片所构成的），所以这对我们来说不是问题。

进行物体的绘制与使用Pascal编程非常相似。在Pascal语法中，每一个程序块都以begin开头，以end结尾；同样，在OpenGL中，每一个物体的绘制都以glBegin()开头，以glEnd() 结束。就像这样：

const S=1.0; D=5.0;
  ...
glBegin(GL_TRIANGLES); // 三角形绘制开始
  glVertex3f( -S, 0, D); glVertex3f(S, 0, D); glVertex3f(0, S, D);
glEnd; // 三角形绘制结束
这样就绘制了一个简单的三角形，这个三角形离视点有5个单位远，1个单位高，2个单位宽。

这里是绘制的结果：


虽然它看起来还不是三维的，但起码是一个开始。下面是绘制的源代码：

FILE: Tri.pas

unit Tri;



interface



uses

  OpenGL, Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  StdCtrls, ExtCtrls, ComCtrls;



type

  TForm1 = class(TForm)

    procedure FormCreate(Sender: TObject);

    procedure FormPaint(Sender: TObject);

  private

    procedure Draw; // 绘制OpenGL场景

  public

  end;



var

  Form1: TForm1;



implementation



{$R *.DFM}



procedure setupPixelFormat(DC:HDC); // 设置象素格式

const

   pfd:TPIXELFORMATDESCRIPTOR = (

        nSize:sizeof(TPIXELFORMATDESCRIPTOR);       // 结构大小

        nVersion:1;                                           // 版本号

        dwFlags:PFD_SUPPORT_OPENGL or PFD_DRAW_TO_WINDOW or

                PFD_DOUBLEBUFFER;          // 支持双缓存

        iPixelType:PFD_TYPE_RGBA;               // 颜色类型

        cColorBits:24;                                       // 颜色深度

        cRedBits:0; cRedShift:0;         // 颜色位数)

        cGreenBits:0;  cGreenShift:0;

        cBlueBits:0; cBlueShift:0;

        cAlphaBits:0;  cAlphaShift:0;   // 没有Alpha缓存

        cAccumBits: 0;

        cAccumRedBits: 0;                              // 没有积累缓存

        cAccumGreenBits: 0;        

        cAccumBlueBits: 0;

        cAccumAlphaBits: 0;

        cDepthBits:16;                                      // 深度缓存

        cStencilBits:0;                                       // 没有模板缓存

        cAuxBuffers:0;                                    // 没有辅助缓存

        iLayerType:PFD_MAIN_PLANE;          // 主层

   bReserved: 0;

   dwLayerMask: 0;

   dwVisibleMask: 0;

   dwDamageMask: 0;

   );

var pixelFormat:integer;

begin

   pixelFormat := ChoosePixelFormat(DC, @pfd);

   if (pixelFormat = 0) then

        exit;

   if (SetPixelFormat(DC, pixelFormat, @pfd) <> TRUE) then

        exit;

end;



procedure GLInit;

begin

   // 设置观察投影模式

   glMatrixMode(GL_PROJECTION);

   glFrustum(-0.1, 0.1, -0.1, 0.1, 0.3, 25.0);

   // 观察的位置

   glMatrixMode(GL_MODELVIEW);

   glEnable(GL_DEPTH_TEST);

end;



procedure TForm1.FormCreate(Sender: TObject);

var DC:HDC;

    RC:HGLRC;

    i:integer;

begin

   DC:=GetDC(Handle);        //你可以在这里使用任何的窗口控制

   SetupPixelFormat(DC);

   RC:=wglCreateContext(DC); //  创建RC

   wglMakeCurrent(DC, RC);   // 激活OpenGL 窗口

   GLInit;                   // 初始化OpenGL

end;



procedure TForm1.Draw;

const S=1.0; D=5.0;

begin

   glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);

   glLoadIdentity;

   glTranslatef(0.0, 0.0, -12.0);

   glBegin(GL_TRIANGLES);

   glVertex3f( -S, 0, D); glVertex3f(S, 0, D); glVertex3f(0, S, D);

   glEnd;

   SwapBuffers(wglGetCurrentDC);

end;



procedure TForm1.FormPaint(Sender: TObject);

begin

   Draw;

end;

end.



FILE: Tri.dfm

object Form1: TForm1
   BorderStyle = bsDialog
   Caption = 'BASIC OpenGL Program'
   ClientHeight = 318
   ClientWidth = 373
   OnCreate = FormCreate
   OnPaint = FormPaint
end


在三维世界中冒险

现在就让我们进入真正的三维世界。我们可以使用前面的程序作为一个模板，添加一些代码来创建一个平滑具有阴影的四面体。我们如何通过使用基本的图素来构建这个四面体呢？我们可以使用四个三角形，一个三角形位于底面，其它的三角形位于侧面。这里使绘制的代码：

procedure TForm1.Draw;
const D=1.5;
   H1=D/1.732;  // H1 = D * tg(30)
   H2=D*1.732-H1; // D/H = tg(30) = 1/sqrt(3), H2 = tg(60)*D – H1
   HY=3.0;
const // 定义顶点坐标
   a1:TGLArrayf3=(-D, 0, -H1); // 左下顶点
   a2:TGLArrayf3=( D, 0, -H1); // 右下顶点
   a3:TGLArrayf3=( 0, 0,  H2); // 后下顶点
   a4:TGLArrayf3=( 0, HY, 0);  // 上顶点
begin
   glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
      glLoadIdentity;
      glTranslatef(0.0, 0.0, -12.0);
      glBegin(GL_TRIANGLES);
      glVertex3fv(@a1); glVertex3fv(@a3); glVertex3fv(@a2);
      glVertex3fv(@a1); glVertex3fv(@a2); glVertex3fv(@a4);
      glVertex3fv(@a2); glVertex3fv(@a3); glVertex3fv(@a4);
      glVertex3fv(@a3); glVertex3fv(@a1); glVertex3fv(@a4);
   glEnd;
   SwapBuffers(wglGetCurrentDC);
end;
看起来似乎有一点复杂，不过你看了下面这幅图就会明白了：


我们定义四个顶点a1 - a4，并且通过它们来构建三角形。无论什么时候定义自己的三角形（或者是多边形）必须遵循以下准则：按逆时针方向进行绘制，以你从外面看物体表面为准。 根据这个准则，我们像这样绘制：a1-a2-a4, a1-a3-a2 (从下往上看), a2-a3-a4, and a3-a1-a4。

只需要把原来Tri.pas单元里的TForm1.Draw()中语句换成上面的语句就可以了。它看起来似乎还不是三维的，这是因为我们还没有定义光照。正是光展示了物体的形状和表面的反射属性。

光照！相机！OPENGL!

OpenGL中的光照模型由两个部分组成：光源本身（颜色，强度等等）和物体表面的材质。材质，换句话说，包含了颜色和一些物理参数（例如透明性或者是粗糙程度等等）以及纹理。让我们一步一步的解释这些概念。

定义一个光源很简单：

procedure GLInit;
const
   light0_position:TGLArrayf4=( -8.0, 8.0, -16.0, 0.0);
   ambient:  TGLArrayf4=( 0.3, 0.3, 0.3, 0.3);
begin
   // 设置观察投影模式
   glMatrixMode(GL_PROJECTION);
   glFrustum(-0.1, 0.1, -0.1, 0.1, 0.3, 25.0);
   // 观察位置
   glMatrixMode(GL_MODELVIEW);
   glEnable(GL_DEPTH_TEST);

   // 设置光照
   glEnable(GL_LIGHTING);
   glLightfv(GL_LIGHT0, GL_POSITION, @light0_position);
   glLightfv(GL_LIGHT0, GL_AMBIENT, @ambient);
   glEnable(GL_LIGHT0);
end;
需要定义两个常量。一个定义光源的位置，另一个定义环境光。所谓环境光就是它会产生一些分散的光，这样即使物体处于阴影当中也可以被看见。

虽然你已经启用了光照也定义了光源，但是物体仍然没有阴影。这是因为OpenGL不知道每一个多边形的朝向（就是法向量，即与物体表面相垂直的矢量）。如果你还没有自己的法向量计算函数，那么可以看看下面的代码。这个函数用来计算一个三角形的法向量。这个三角形必须是以逆时针方向进行绘制，因为法向量的计算是根据两个向量的叉积得到的。所以如果你按顺时针方向的话这个三角形的法向量就会指向三角形的里面，而不是外面。

function getNormal(p1,p2,p3:TGLArrayf3):TGLArrayf3;
var a,b:TGLArrayf3;
begin
   // 得到两个向量a 和 b
   a[0]:=p2[0]-p1[0]; a[1]:=p2[1]-p1[1]; a[2]:=p2[2]-p1[2];
   b[0]:=p3[0]-p1[0]; b[1]:=p3[1]-p1[1]; b[2]:=p3[2]-p1[2];
   // 计算叉积
   result[0]:=a[1]*b[2]-a[2]*b[1];
   result[1]:=a[2]*b[0]-a[0]*b[2];
   result[2]:=a[0]*b[1]-a[1]*b[0];
end;
使用这个函数，你就可以明确所有用来计算光照需要的信息了：

procedure TForm1.Draw;
const D=1.5;
      H1=D/1.732;
      H2=D*1.732-H1; // D/H = tg(30) = 1/sqrt(3)
      HY=3.0;
const // 顶点
      a1:TGLArrayf3=(-D, 0, -H1);
      a2:TGLArrayf3=(D, 0, -H1);
      a3:TGLArrayf3=(0, 0, H2);
      a4:TGLArrayf3=(0, HY, 0);
var   n1, n2, n3, n4: TGLArrayf3;   // 法向量
begin
   n1 := getNormal(a1,a3,a2);
   n2 := getNormal(a1,a2,a4);
   n3 := getNormal(a2,a3,a4);
   n4 := getNormal(a3,a1,a4);
   glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
   glEnable(GL_NORMALIZE);
   glShadeModel(GL_FLAT);
   glCullFace(GL_BACK);
   glLoadIdentity;
   glTranslatef(0.0, 0.0, -12.0);
   glBegin(GL_TRIANGLES);
   glNormal3fv(@n1);
   glVertex3fv(@a1); glVertex3fv(@a2); glVertex3fv(@a3);
   glNormal3fv(@n2);
   glVertex3fv(@a1); glVertex3fv(@a2); glVertex3fv(@a4);
   glNormal3fv(@n3);
   glVertex3fv(@a2); glVertex3fv(@a3); glVertex3fv(@a4);
   glNormal3fv(@n4);
   glVertex3fv(@a3); glVertex3fv(@a1); glVertex3fv(@a4);
   glEnd;
   SwapBuffers(wglGetCurrentDC);
end;
就是这样，绘制的结果如图：


现在让我们使用Delphi VCL提供的一些功能。放置一个定时器控件在你的窗体上，然后添加以下代码：

procedure TForm1.Timer1Timer(Sender: TObject);
begin
angle:=angle+1.0;
Draw;
end;
你只需要一行代码就可以制作OpenGL动画：

glRotatef(angle, 0.0, 1.0, 0.0);
把这一行代码放置在glBegin() 语句之前，这样，这个应用程序就算完成了。源程序下载地址：http://codecentral.borland.com/codecentral/ccweb.exe/files?id=15417

希望这篇文章能对想使用Delphi进行OpenGL编程的朋友有帮助。
]]>

http://www.02t.cn/default.asp?id=209 小氓男 http://www.02t.cn/ csw163@126.com 2011-11-13T10:44:25+08:00 2011-11-13T10:44:25+08:00

【升级】瓜瓜下载者-版本 2011v11
mygg.exe以修复下载
增加了 洛克王国
2011年11月25日 已经修复下载

本地下载(已经修复) 多特软件（未修复） 天空软件园（未修复）]]>

http://www.02t.cn/default.asp?id=208 小氓男 http://www.02t.cn/ csw163@126.com 2011-09-22T11:48:19+08:00 2011-09-22T11:48:19+08:00

JAAL-SCDKV6-ETH2SG-KBAN

安装好后，将“rs2010arch.slip”WinXP复制到“C:\Documents and Settings\All Users\Application Data\Embarcadero”下（根据安装时的用户目录可能不同），WinVista或Win7复制到“C:\ProgramData\Embarcadero”下（隐藏文件夹，建议复制地址打开）。
然后将“BDS3615Loader.exe”和“RAD2010Up4Crack.dll”复制到你的radstudio安装目录中“bds.exe”所在的bin目录中。
修改开始菜单项中Delphi 2010（C++ Builder及RadStudio 2010类似)属性中的“"C:\Program Files\Embarcadero\RAD Studio\7.0\bin\BDS.exe" -pDelphi”为“"C:\Program Files\Embarcadero\RAD Studio\7.0\bin\BDS3615Loader.exe" -pDelphi”。即将“BDS.exe”换为“BDS3615Loader.exe”。

就此一切OK，与正常启动一样。

]]>

http://www.02t.cn/default.asp?id=204 小氓男 http://www.02t.cn/ csw163@126.com 2011-09-06T09:21:02+08:00 2011-09-06T09:21:02+08:00

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls,Math, StdCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Label1: TLabel;
    procedure Timer1Timer(Sender: TObject);
  private
    FAnchors: TAnchors;
    procedure WMMOVING(var Msg: TMessage);message WM_MOVING;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.WMMOVING(var Msg: TMessage);
begin
  inherited;
  with PRect(Msg.LParam)^ do
  begin
    Left := Min(Max(0, Left), Screen.Width - Width);
    Top := Min(Max(0, Top), Screen.Height - Height);
    Right := Min(Max(Width, Right), Screen.Width);
    Bottom := Min(Max(Height, Bottom), Screen.Height);
    FAnchors := [];
    if Left = 0 then Include(FAnchors, akLeft);
    if Right = Screen.Width then
      Include(FAnchors, akRight);
    if Top = 0 then Include(FAnchors, akTop);
    if Bottom = Screen.Height then
      Include(FAnchors, akBottom);
      Timer1.Enabled := FAnchors <> [];
    end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
const
  cOffset = 2;
  begin
    if WindowFromPoint(Mouse.CursorPos) = Handle then
    begin
      if akLeft in FAnchors then Left := 0;
      if akTop in FAnchors then Top := 0;
      if akRight in FAnchors then
        Left := Screen.Width - Width;
      if akBottom in FAnchors then
        Top := Screen.Height - Height;
      end else
      begin
        if akLeft in FAnchors then Left := -Width + cOffset;
        if akTop in FAnchors then Top := -Height + cOffset;
        if akRight in FAnchors then
          Left := Screen.Width - cOffset;
        if akBottom in FAnchors then
          Top := Screen.Height - cOffset;
    end;
end;

end.
]]>

http://www.02t.cn/default.asp?id=203 小氓男 http://www.02t.cn/ csw163@126.com 2011-09-06T08:43:16+08:00 2011-09-06T08:43:16+08:00

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IGDIPlus, ExtCtrls, Menus;

type
  TForm1 = class(TForm)
    tmr1: TTimer;
    pm1: TPopupMenu;
    mni_topMost: TMenuItem;
    mni_transparent: TMenuItem;
    mni_exit: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure tmr1Timer(Sender: TObject);
    procedure mni_topMostClick(Sender: TObject);
    procedure MouseLeave(var Msg: TMessage);message WM_MOUSELEAVE;
    procedure mni_transparentClick(Sender: TObject);
    procedure mni_exitClick(Sender: TObject);
  private
    m_Kind: Integer;        //当前第几行字符串
    m_bBack: Boolean;       //是否显示背景
    m_pszbuf: array[0..5] of WideString;   //要绘制的字符串数组
    function UpdateDisplay(pszbuf: WideString;bBack: Boolean = False;
        Transparent: Integer = 100):Boolean;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
{-------------------------------------------------------------------------------
  过程名:    TForm1.UpdateDisplay
  功能:      绘制桌面歌词
  参数:      pszbuf: WideString;     绘制的字符串
             bBack: Boolean;         是否绘制背景
             Transparent: Integer    透明程度
  返回值:    Boolean
-------------------------------------------------------------------------------}
function TForm1.UpdateDisplay(pszbuf: WideString;bBack: Boolean;Transparent: Integer):Boolean;
var
  hdcTemp,hdcScreen,m_hdcMemory: HDC;
  hBitMap: Windows.HBITMAP;
  blend: BLENDFUNCTION;      //这种结构的混合控制通过指定源和目标位图的混合功能
  rct: TRect;
  ptWinPos,ptSrc: TPoint;
  graphics: IGPGraphics;     //封装一个 GDI+ 绘图图面
  fontFamily: IGPFontFamily; //定义有着相似的基本设计但在形式上有某些差异的一组字样
  path: IGPGraphicsPath;     //表示一系列相互连接的直线和曲线
  strFormat: IGPStringFormat;//封装文本布局信息，显示操作
  pen,pen1,pen2: IGPPen;     //定义用于绘制直线和曲线的对象
  linGrBrush,linGrBrushW: IGPLinearGradientBrush;  //使用线性渐变封装 Brush
  brush: IGPSolidBrush;      //定义单色画笔，画笔用于填充图形形状
  image: TGPImage;           //使用这个类来创建和操作GDI+图像
  i: Integer;
  sizeWindow: SIZE;
begin
  //---------------------开始：初始化操作--------------------------------------
  hdcTemp := GetDC(Self.Handle);
  m_hdcMemory := CreateCompatibleDC(hdcTemp);
  hBitMap := CreateCompatibleBitmap(hdcTemp,755,350);
  SelectObject(m_hdcMemory,hBitMap);
  if (Transparent < 0) or (Transparent > 100) then
    Transparent := 100;
  with blend do
  begin
    BlendOp := AC_SRC_OVER;     //把源图片覆盖到目标之上
    BlendFlags := 0;
    AlphaFormat := AC_SRC_ALPHA;//每个像素有各自的alpha通道
    SourceConstantAlpha :=Trunc(Transparent * 2.55);  //源图片的透明度
  end;
  hdcScreen := GetDC(Self.Handle);
  GetWindowRect(Self.Handle,rct);
  ptWinPos := Point(rct.Left,rct.Top);
  graphics := TGPGraphics.Create(m_hdcMemory);
  graphics.SetSmoothingMode(SmoothingModeAntiAlias); //指定平滑（抗锯齿）
  graphics.SetInterpolationMode(InterpolationModeHighQualityBicubic);//指定的高品质，双三次插值
  fontFamily := TGPFontFamily.Create('微软雅黑'); //△字体，效果图为'微软雅黑'字体
  strFormat := TGPStringFormat.Create();
  path := TGPGraphicsPath.Create();
  //---------------------结束：初始化操作--------------------------------------
  path.AddString(pszbuf,          //要添加的 String
                fontFamily,       //表示绘制文本所用字体的名称
                0,                //指定应用到文本的字形信息,这里为普通文本
                38,               //限定字符的 Em（字体大小）方框的高度
                MakePoint(10,10), //一个 Point，它表示文本从其起始的点
                strFormat);       //指定文本格式设置信息
  pen := TGPPen.Create(MakeColor(155,215,215,215),3);  //颜色、宽度
  graphics.DrawPath(pen,path);    //初步绘制GraphicsPath
  linGrBrush := TGPLinearGradientBrush.Create(MakePoint(0,0),    //线性渐变起始点
                                                MakePoint(0,90), //线性渐变终结点
                                                MakeColor(255,255,255,255), //线性渐变起始色
                                                MakeColor(255,30,120,195)); //线性渐变结束色
  linGrBrushW := TGPLinearGradientBrush.Create(MakePoint(0,10),
                                                MakePoint(0,60),
                                                MakeColor(255,255,255,255),
                                                MakeColor(15,1,1,1));
  //---------------------开始：画字符串阴影--------------------------------------
  for i := 1 to 8 do
  begin
    pen.SetWidth(i);
    pen.SetColor(MakeColor(62, 0, 2, 2));
    pen.SetLineJoin(LineJoinRound); //指定圆形联接。这将在两条线之间产生平滑的圆弧。
    graphics.DrawPath(pen,path);
  end;
  //---------------------开始：画背景框和背景图----------------------------------
  if bBack then
  begin
    brush := TGPSolidBrush.Create(MakeColor(25,228,228,228));
    pen1 := TGPPen.Create(MakeColor(155,223,223,223));
    pen2 := TGPPen.Create(MakeColor(55,223,223,223));
    image := TGPImage.Create('back.png');             //背景图片
    graphics.FillRectangle(brush,3,5,750,90);         //填充背景框色
    graphics.DrawRectangle(pen1,2,6,751,91);          //内层背景框
    graphics.DrawRectangle(pen2,1,5,753,93);          //外层背景框
    graphics.DrawImage(image,600,25);
  end;
  //---------------------开始：以渐变色笔刷填充GraphicsPath内部-----------------
  graphics.FillPath(linGrBrush,path);
  graphics.FillPath(linGrBrushW,path);
  sizeWindow.cx := 755;
  sizeWindow.cy := 350;
  ptSrc := Point(0,0);
  //---------------------开始：更新一个分层的窗口的位置，大小，形状，内容和半透明度---
  Result := UpdateLayeredWindow(Self.Handle,   //分层窗口的句柄
                                hdcScreen,     //屏幕的DC句柄
                                @ptWinPos,     //分层窗口新的屏幕坐标
                                @sizeWindow,   //分层窗口新的大小
                                m_hdcMemory,   //用来定义分层窗口的表面DC句柄
                                @ptSrc,        //分层窗口在设备上下文的位置
                                0,             //合成分层窗口时使用指定颜色键值
                                @blend,        //在分层窗口进行组合时的透明度值
                                ULW_ALPHA);    //使用pblend为混合功能
  //---------------------开始：释放和删除--------------------------------------
  ReleaseDC(Self.Handle,hdcScreen);
  ReleaseDC(Self.Handle,hdcTemp);
  DeleteObject(hBitMap);
  DeleteDC(m_hdcMemory);
end;
{-------------------------------------------------------------------------------
  功能:      窗体创建初始化
-------------------------------------------------------------------------------}
procedure TForm1.FormCreate(Sender: TObject);
begin
  //设置窗体属性
  SetWindowLong(Application.Handle,
                GWL_EXSTYLE,
                GetWindowLong(Application.Handle,GWL_EXSTYLE)
                or WS_EX_TOOLWINDOW);   //不在任务栏出现
  SetWindowLong(Self.Handle,
                GWL_EXSTYLE,
                GetWindowLong(Self.Handle,GWL_EXSTYLE)
                or WS_EX_LAYERED       //层次窗口
                or WS_EX_TOOLWINDOW);  //不在alt+tab中出现
  //初始化变量等等
  m_kind := 0;
  m_bBack := False;
  PopupMenu := pm1;
  Self.Cursor := crHandPoint;
  mni_topMost.Checked := True;
  mni_topMostClick(mni_topMost);

  m_pszbuf[0] := '你好 Everyone!';
  m_pszbuf[1] := '这是GDI+绘制的桌面歌词!';
  m_pszbuf[2] := '欢迎光临无幻博客!';
  m_pszbuf[3] := 'http://blog.csdn.net/akof1314!';
  m_pszbuf[4] := '源码根据需要进行修改!';
  UpdateDisplay(m_pszbuf[m_kind],m_bBack);
end;
{-------------------------------------------------------------------------------
  功能:      鼠标按下移动窗体
-------------------------------------------------------------------------------}
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  SendMessage(Self.Handle,WM_SYSCOMMAND,SC_MOVE or HTCAPTION,0);
end;
{-------------------------------------------------------------------------------
  功能:      鼠标移过窗体
-------------------------------------------------------------------------------}
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  xh: TTrackMouseEvent;
begin
  m_bBack := True;
  UpdateDisplay(m_pszbuf[m_kind],m_bBack);
  with xh do
  begin
    cbSize := SizeOf(xh);
    dwFlags := TME_LEAVE;
    hwndTrack := Self.Handle;
    dwHoverTime := 0;
  end;
  TrackMouseEvent(xh);
end;
{-------------------------------------------------------------------------------
  功能:      鼠标移出窗体时，去掉背景
-------------------------------------------------------------------------------}
procedure TForm1.MouseLeave(var Msg: TMessage);
begin
  m_bBack := False;
  UpdateDisplay(m_pszbuf[m_kind],m_bBack);
  Msg.Result := 0;
end;
{-------------------------------------------------------------------------------
  功能:      定时器切换字符串
-------------------------------------------------------------------------------}
procedure TForm1.tmr1Timer(Sender: TObject);
begin
  Inc(m_Kind);
  if m_kind > 4 then
    m_kind := 0;
  UpdateDisplay(m_pszbuf[m_kind],m_bBack);
end;
{-------------------------------------------------------------------------------
  功能:      窗体置顶
-------------------------------------------------------------------------------}
procedure TForm1.mni_topMostClick(Sender: TObject);
begin
  if mni_topMost.Checked then
  SetWindowPos(Self.Handle,
               HWND_TOPMOST,
               0,0,0,0,
               SWP_NOSIZE or SWP_NOMOVE)    //窗口置顶
  else
  SetWindowPos(Self.Handle,
               HWND_NOTOPMOST,
               0,0,0,0,
               SWP_NOSIZE or SWP_NOMOVE);    //窗口置顶
end;
{-------------------------------------------------------------------------------
  功能:      背景穿透 （相当于锁定桌面）
-------------------------------------------------------------------------------}
procedure TForm1.mni_transparentClick(Sender: TObject);
begin
  SetWindowLong(Self.Handle,
                GWL_EXSTYLE,
                GetWindowLong(Self.Handle,GWL_EXSTYLE) or WS_EX_TRANSPARENT);
  Application.MessageBox('你已关闭不了程序了，请从任务管理器里关闭',
                        '提示',MB_OK or MB_ICONINFORMATION);
end;
{-------------------------------------------------------------------------------
  功能:      退出
-------------------------------------------------------------------------------}
procedure TForm1.mni_exitClick(Sender: TObject);
begin
  Self.Close;
end;

end.  
]]>

http://www.02t.cn/default.asp?id=202