BMP文件 是 424D ---4D42

其他的我就不一一列举了，想知道跟多文件类型分别是用什么字符作为文件的开头的话，下载个C32asm或者UE等这类16进制编辑器就可以看到了。

procedure TForm1.Button1Click(Sender: TObject); //Button1的单击事件
var   //声明变量
   MyImage:TMemoryStream;   //内存流对象
   Buffer:Word;
   i:integer;
begin
   if OpenDialog1.Execute then   //OpenDialog1是一个文件打开对话框，在Delphi组件面版的Dialog页中可以找到。
   begin
     MyImage:=TMemoryStream.Create; //建立内存流对象

try
     MyImage.LoadFromFile(OpenDialog1.FileName); //把刚刚用户选择的文件载入到内存流中
     MyImage.Position := 0;   //移动指针到最开头的位置
     if MyImage.Size = 0 then   //如果文件大小等于0，那么
     begin
       //错误
       ShowMessage('错误');
       Exit;
     end;
     MyImage.ReadBuffer(Buffer,2); //读取文件的前２个字节，放到Buffer里面

     if Buffer=$4D42 then //如果前两个字节是以4D42[低位到高位]
     begin
       ShowMessage('BMP'); //那么这个是BMP格式的文件
     end
     else if Buffer=$D8FF then //如果前两个字节是以D8FF[低位到高位]
    begin
         //JPEG
       ShowMessage('JPEG'); //........一样　下面不注释了
     end
     else if Buffer=$4947 then
     begin
         //GIF
       ShowMessage('GIF');
     end
     else if Buffer=$050A then
     begin
         //PCX
       ShowMessage('PCX');
     end
     else if Buffer=$5089 then
     begin
         //PNG
       ShowMessage('PNG');
     end
     else if Buffer=$4238 then
     begin
        //PSD
       ShowMessage('PSD');
     end
     else if Buffer=$A659 then
     begin
        //RAS
       ShowMessage('RAS');
     end
     else if Buffer=$DA01 then
     begin
         //SGI
       ShowMessage('SGI');
     end
     else if Buffer=$4949 then
     begin
         //TIFF
       ShowMessage('TIFF');
     end
     else   //如是其他类型的文件的话，直接显示错误
     begin
         //ERR
       ShowMessage('ERR');
     end; //if
   end; //if

finally

MyImage.Free;   //释放内存流对象

end;
end;

下载地址：http://www.delphigamedev.com/downloads/DelphiX_D6-7.zip

参考地址：Delphix For Delphi 3, 4, 5
http://www.yks.ne.jp/~hori/data/DelphiX2000_0717-2.zip
http://www.tommstudio.com/zips/delphix.zip

Delphix For Delphi 6 的下载地址!
http://seth5.free.fr/madball/download/DelphiX_D6.zip
http://www.tommstudio.com/zips/delphix6.zip

Delphix For Delphi 7 的下载地址！
http://www.tommstudio.com/zips/DelphiXD7.rar

以下是 DirectX 方面的文摘，仅供参考。

Delphi作为一种方便的可视化程序设计语言，一 直非常受大家喜爱。但它在图形处理、3D表现等方面 不很让人满意。如果说你要开发一个Windows95下的3D游戏，你会用什么工具呢？DirectX!不少人会不加 思索地答道。然而接触过DirectX的朋友们都知道它 内部的结构复杂，一般来说结合VC开发是一个理想 的组合。而要在Delphi中利用DirectX SDK真是难上 加难。但现在一切都好啦，有了本文介绍的DelphiX 组件，你终于可以用你熟悉的Delphi来开发漂亮的图 形程序了。

DelphiX是由日本人Hiroyuki Hori开发的使DirectX5.0在Delphi中更容易使用的一套控件，从网上 下载时叫DelphiX.zip,837KB。解开后在bin目录下 运行install_for?（根据你的Delphi版本号，支持3.0和 4.0），DelphiX会自动将控件安装到你的Delphi中，帮 助文件也自动融合到Delphi的帮助里，真是好用极了！

DelphiX 包括的控件有如下这些：
TDXDraw 最重要的控件，是DirectDraw和Direct3D的基础；
TDXDIB   一个代表DIB图像的控件；
TDXImageList 代表一组 Tpicture；
TDX3D    Direct3D控件，要与TDXDraw共同使用；
TDXSound DirectSound控件；
TDXWave 一个代表波形Wave的控件；
TDXWaveList 一组Wave；
TDXInput 输入控制控件（操纵键盘和摇杆要靠它）；
TDXPlay 通讯控件；
TDXSpriteEngine "精灵"引擎；
TDXTimer 高速时间控件；
TDXPaintbox TDXForm 专为DelphiX优化过的Form。

DirectDraw中重要的对象有：

TDirectDraw对象
DirectDraw应用程序的核心，它是你创建的第一个对象。创建了DirectDraw对象后，可以在它的基础上创建其它所有相关的对象。在DelphiX中的TDXdraw.ddraw属性即是一个Tdi rectDraw对象。

TDirectDrawSurface对象
表征了一块内存区 域，在该区域的数据将作为图像显示在屏幕上或移动 到其它表面上。

TDirectDrawPalette对象
表征了一个用于表面 的16色或256色的索引调色板，它包含了一系列描述 同表面相关的RGB颜色索引值。

TDirectDrawClipper对象
帮助你禁止向表面的 某一位置或超出表面的位置块写数据。

Tsprite对象
代表了"精灵"，在许多视频游戏都 使用了精灵。从最基本的意义上来讲，一个精灵就是 在屏幕上移动的图像。精灵画在一个表面上，覆盖在 已有的背景上，合成后的图像被送到屏幕上显示出来，在DelphiX中通过TspriteEngine实现对Tsprite的控制。

TDirectDrawSurfaceCanvas对象
提供方便的 访问机制，你可以像访问一般Canvas对象一样访问 它。TDXDraw.Surface.Canvas即是这样一个对象。

TdirectDrawDisplay对象
控制着DirectDraw的显示模式，TdxDraw.display是这样一个对象。

DelphiX基本上严格按照Microsoft DirectX SDK 开发包来将其功能在Delphi中实现出来。所以，如果 你对DirectX SDK比较熟悉的话，你会发现大多数程 序从C移植到Delphi是很容易的事。DelphiX中没有提供帮助的地方，你可以在DirectX SDK中获得答案。

下面通过一个简单的例子对如何利用DelphiX编 程作一介绍，只涉及Ddraw二维的一小部分。

Unit Unit1;

interface
uses Windows.Messages, SysUtils, Classes, Graphics,      Controls, Forms, Dialogs,
     DXClass, DXDraws, DIB;
type
TForm1=class(TDXForm)
    DXDraw1:TDXDraw;
    DXTimer1:TDXTimer;
    DXDIB1:TDXDIB;

    procedure DXDrawlFinalize(Sender:Tobject);
    procedure DXDraw1Initialize(Sender:Tobject);
    procedure DXDraw1RestoreSurfase(Sender:Tobject);
    procedure DXTimer1Timer(
      Sendsr:Tobject;LagCount:Integer);
    procedure FormActivate(Sender:Tobject);

    private
      {Private declarations}
    public
      {Public declarations}
    private
      Fsurface:TDirectDrawSurface;
end;

var
Form1:TForm1;
x,y:integer;

implementation

{$R *.DFM}

procedure TForm1.DXDrawlInitialize(Sender:Tobject);
begin
Fsurface:=TDirectDrawSurface.Create(DXDraw1.Ddraw);
{创建抽象图像表面}
end;

procedure TForm1.DXDraw1Finalize(Sender:Tobject);
begin
Fsurface.Free; Fsurface: = nil;
{释放表面}
end;

procedure TForm1.DXDraw1RestoreSurfare(Sender:Tobject);
begin
Fsurface.LoadfromGraphic(DXDIB1.DIB);
{将位图送入抽象表面}
end;

procedure TForm1.DXTimer1Timer(
Sendsr.Tobject;LagCount integer);
begin
if not DXDraw1.CanDraw then Exit;
    {在绘制之前检验是否允许}
DXDraw1.Surfaca.Fill(0);
x: = x + 1;
y: = y + 1;
DXDraw1.Surface.Draw(X, Y,
    Fsurface.ClientRect,Fsur face, True);
DXDraw1.Flip;
{将内存中的表面再将映射入实际显存}
end;

procedure TForm1.FormActivate(Sender:Tobject);
begin
X: =0;
y: =0;
end;

end.

首先要在程序开头包含DXClass、DXDraws两个 Unit（TDXtimer、TDXForm在DXClass中定义，TDX Draw在DXDraws中定义）。程序用的Form不要从一 般的Tform派生，而应从TDXForm中派生。在Form 中放入TDXDraw控件和TDXTimer控件，将其inter val值设为0。对DXDraw1控件改变其属性，使其与 Form大小一致。再放人一个TDXDIB控件，在其属性 中的DIB一项调人一个位图，如Windows下的bubbles.bmp。定义一个DirectDraw表面Fsurface，这是一 个抽象内存表面，以后会将它映射到DXDraw对象的 Surface上。在DXDraw的Events一栏中编写OnIni tialize、OnFinalize、OnRestoreSurface三个过程，之后便 可以根据需要对表面进行操纵。

另外，要完成上面程序的功能，还有其他不少办 法。例如利用TDXImageList对象，可以用它的方法 Imagelist.items[N].draw来完成同样功能。

窄距俯卧撑锻炼臂力。

宽距俯卧撑锻炼胸大肌。

　　俯卧撑(a push-up)的8种练习方式。

　　一、扩胸式。双手的手掌作为支撑点，双臂张开，与肩同宽，或比肩更宽，背部、腰部和臀部呈一条直线，肘部用力，屈臂运动即可。此方式主要锻炼的是胸肌、上臂的肱三头肌以及腹部肌肉。

　　二、夹肩式。动作与上同，只是双手间距较窄，并以双拳作为支撑点，拳眼向前。这种方式锻炼的是臂力，而且能增加手腕的力量和拳的硬度。练习时应注意，所选的支撑地面可以先软后硬，手腕支撑时要绷紧，以免扭伤。

　　三、铁牛耕地式。用拳或用手掌作为支撑点。双手撑地，双臂张开，与肩同宽。双脚趾着地，双手双脚平行。头向斜前方顶，前脚掌、双手、颈、腰一齐用力，同时腰下塌，贴着地皮。然后臀部上翘，腰再下塌，身体后拉，整个动作完成。斜前斜后的动作反复做即可。这种练习主要针对颈部，并增强背肌、手腕、脚踝力量。

　　四、手指功法。主要是以十指为支撑点，其他动作与前两种方式相同。随着力量增加，着地的手指可以依次递减。该方式主要练习指力，增强手的握力、抓力、合力，力透指尖。应注意的是，若指力达不到支撑身体的力量，可以先让手指顶着墙面练习，身体斜撑。待指力慢慢增强后，再逐渐放到水平地面来练，以防手指受伤。

　　五、鲤鱼卧莲式。身体侧卧，单拳或单掌着地（一般是单拳），斜撑地面，双脚交叉斜撑。例如，右拳撑地，左臂向上伸展，双臂呈十字形，掌握身体平衡。左脚内侧、右脚外侧着地支撑。屈臂下撑时，腰部用力，头和腰后仰，如同盘卧的鲤鱼，然后恢复原式，再反复下撑。

　　该方式主要锻炼三角肌（俗称“虎头肌”）、上臂、腰部和腹部的力量。练习时若力量不够可以先选择较软的地面，臂部的力量要用足。

　　六、倒立式。初练者可依附墙面倒立，脚搭在墙面上，双手与肩同宽，双臂弯曲，做屈臂下按。后期，脚可以离开墙面来做俯卧撑。该方式主要训练颈部和臂部的力量。练习时注意掌握身体平衡。

　　七、负重练习。动作与扩胸式和夹肩式相同，只是在背部放上重物，如哑铃片。在臂部力量增强、身体动作协调后，重物的重量可依次递增。

　　八、单掌或单拳练习。动作与扩胸式和夹肩式相同，但单掌或单拳着地，做动作时双手交替撑地。该方式主要练习单臂力量。若臂力不够，开始时可先在斜坡上练习，随着力量增强，逐渐抬高脚的支撑点，最后可单掌或单拳甚至一个手指支撑，身体倒立。练习时要循序渐进。

　　练习时要注意身体平衡，各部位的动作一定要协调，这样肌肉的负重才均匀，锻炼效果才会更好。

【注意事项】

　　1．要循序渐进，由易到难，由少到多，由轻到重进行锻炼；

　　2．根据自己的体质情况，选择适宜的练习方法，控制运动负荷；

　　3．要做好准备和放松活动，防止受伤和肌肉僵硬。

　　4．老人禁用指式、击掌、负重练习法。心脏病、高血压患者禁用此法。

Feeding Frenzy—海底世界之大鱼吃小鱼，在看似风平浪静的大海里，却隐藏着与人类世界相同的危机，海底生物在弱肉强食的竞争下，用以大吃小的方式获得生存，你不但得觅食以填饱肚子，更重要的是学会保护自已！

主角一开始是一条很小的热带鱼，游戏的方式是让主角先吃下与自已体型相同的鱼，等吃下一定的数量且主角的体型变大后，就能再吃下其它体型更大的鱼类，而且只要让「CROWTH」的值填满，就能进入到下一关；但海底世界里的危机随时都存在着，主角必须避开体型比自已大的鱼类，否则是会被吃进肚子里。

游戏分为两种模式：「New Game」：只要填满「CROWTH」的值，就能前往下一关；在此模式中陆续出现小海星，只要取得就能加分。「Game Attact」：此种模式有时间限制，玩家必须在时间内将「CROWTH」值填满，才能进入下一关；还有，画面中将会陆续出现小时钟，只要取得它，就能够不停的延长游戏时间。 游戏操控方式：使用鼠标操控方向。SPACE键，快速往前冲。

下载：http://dl-sh-ctc-1.pchome.net/0e/7m/FeedingFrenzy.zip

备用1：http://ftp12.enet.com.cn/pub/game/xiuxian/BigFishEATlittleFinsh_99rj.rar

备用1：http://d24.games.sina.com.cn/demo/FeedingFrenzyTwo.rar