老外好无聊啊...(0分)

!**************************************
! for :How to call batman
!**************************************
nope
!**************************************
! Name: How to call batman
! Description:If you ever are in need of help just run this code and batman will save you.
! By: Vegard Stenstad
!
!
! Inputs:None
!
! Returns:Batman
!
!Assumes:You have to have a optic mouse for the batsign
!
!Side Effects:None
!This code is copyrighted and has limited warranties.
!Please see http://www.Planet-Source-Code.com/xq/ASP/txtCodeId.336/lngWId.7/qx/vb/scripts/ShowCode.htm
!for details.
!**************************************

//This will create a batsign on the sky outside,
//just point your optic mouse out the window and
//run the code.
unit Unit1;
interface
uses
Batman,Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
CallBatman:TBatman;
begin
CallBatman := TBatman.Create('Robin');
CallBatman.BatMobil := 1;
CallBatman.BatPlane := 0;
CallBatman.BatBoat := 0;
CallBatman.Reason := 'In Trouble';
CallBatman.Call;
end;
end.

C

接受答案了.