实现游戏截屏功能的源代码！！！(200分)

谁能把它转换成Delphi的？？？？？？？


　　现在很多游戏都提供一种截屏的功能，用来截取游戏中的画面，那么这是如何实现的呢？其实就是把游戏当前屏幕的数据存成一个图片文件；在这里我给出一段源程序，它实现了DirectDraw（16位模式）下的的游戏截屏。生成的文件格式为ＢＭＰ，程序有比较详细的注释，请各位自己看吧。


bool Is555; // 是否是565模式，这个变量需要用者填写

// 功能：将一个16位的DirectDraw表面，存为一张24位BMP位图 （传入主表面即截屏）
// 输入：表面指针，输出的文件名
// 输出：是否成功
bool SaveToBitmapFile(LPDIRECTDRAWSURFACE lpSurface, char* filename)
{
WORD* lpBuffer; // 表面指针
int nPitch;
// 表面跨距
int nWidth, nHeight; // 表面宽高

// 打开文件s
FILE* fp;
if( (fp=fopen(filename, "wb")) != NULL )
{
// 锁定表面
DDSURFACEDESC ddsd;
ddsd.dwSize = sizeof(ddsd);
HRESULT ddrval = lpSurface->Lock( NULL, &ddsd, DDLOCK_WAIT, NULL );
if( ddrval == DD_OK )
{
lpBuffer = (WORD *)ddsd.lpSurface;
nWidth = ddsd.dwWidth;
nHeight = ddsd.dwHeight;
nPitch = ddsd.lPitch >> 1; //lPitch以Byte为单位，GraphPitch以WORD为单位。所以GraphPitch = lPitch / 2;
}

// 保存文件头
BITMAPFILEHEADER FileHeader;
FileHeader.bfType = 'BM';
FileHeader.bfSize = nWidth * nHeight * 3 + 0x36;
FileHeader.bfReserved1 = 0;
FileHeader.bfReserved2 = 0;
FileHeader.bfOffBits = 0x36;
fwrite(&FileHeader, sizeof(BITMAPFILEHEADER), 1, fp);

// 保存文件信息
BITMAPINFOHEADER Header;
Header.biSize = sizeof(BITMAPINFOHEADER); // 结构的大小
Header.biWidth = nWidth; // 宽
Header.biHeight = nHeight; // 高
Header.biPlanes = 1; // 固定
Header.biBitCount = 24; // 颜色数
Header.biCompression = BI_RGB; // 是否压缩
Header.biSizeImage = nWidth * nHeight * 3; // 图片的大小
Header.biXPelsPerMeter = 0;
Header.biYPelsPerMeter = 0;
Header.biClrUsed = 0;
Header.biClrImportant = 0;
fwrite(&Header, Header.biSize, 1, fp);

// 写入具体内容(从下向上存放)
fseek(fp, 0x36, SEEK_SET);
WORD word;
lpBuffer += nWidth * (nHeight - 1);
for(int i=0;
i<nHeight;
i++)
{
for(int j=0;
j<nWidth;
j++)
{
word = *lpBuffer;
fputc( GetBlue( word ), fp); // 蓝
fputc( GetGreen( word ), fp); // 绿
fputc( GetRed( word ), fp); // 红
lpBuffer++;
}
lpBuffer -= nPitch*2; // 指针转到上一行的开始
}

fclose(fp);

// 解锁表面
ddrval = lpSurface->Unlock( NULL );
return true;
}

return false;
}

inline unsigned char GetRed(WORD color)
{
if( Is555 )
return (color>>7) &amp;
0xff;
else

return (color>>8) &amp;
0xff;
}

inline unsigned char GetGreen(WORD color)
{
if( Is555 )
return (color>>2) &amp;
0xff;
else

return (color>>3) &amp;
0xff;
}

inline unsigned char GetBlue(WORD color)
{
return (color &amp;
0x1f) << 3;
}

BCB-->dll-->delphi

我前几天刚刚做好，主要是DirectX的部分，其他的用delphi比VC还简单

1

公布一下啊。

主要是DirectX的部分，其他的好办.....