var
TheRect: TRect;
begin
TheRect.Top := 10;
TheRect.Left := 10;
TheRect.Bottom := 100;
TheRect.Right := 100;
Form1.Canvas.TextRect(TheRect,0,0,‘Hello,
world!‘);
end;
COPY函数
功能说明：该函数用于从字符串中复制指定范围中的字符。该函数有3个参数。第一个参数是数据源(即被复制的字符串)，第二个参数是从字符串某一处开始复制，第三个参数是要复制字符串的长度(即个数)。最后函数返回一个新的字符串(即是我们指定要复制的字符串内容)。
参考实例：
var
S: String;
MyStr: String; // 保存新的字符串
begin
S := 'I Love China!';
//下面将获取I Love China中的“Love”字符串。
MyStr := Copy(S, 3, 4);
end;
执行结果，MyStr等于“Love”，“Love”字符串在“I Love China!”中第3个位置开始，所以第二个参数为3，“Love”一共有4个字符，所以第三个参数为4。
Val 函数
Val(st,var,code);//把字符串表达式st转换为对应整型或实型数值,存放在var中。St必须是一个表示数值的字符串,并符合数值常数的规则。在转换过程中,如果没有检测出错误,变量code置为0,否则置为第一个出错字符的位置。例如,st:=25.4E3,x是一个实型变量,则val(st,x,code)将使X值为25400,code值为0。
GetCursorPos 函数
//用 GetCursorPos 获取的是鼠标相对与屏幕的位置
var
ps: TPoint;
str: string;
begin
GetCursorPos(ps);
str := Format('%d,%d',[ps.X,ps.Y]);
ShowMessage(str);
end;
OnIdIe事件
对应对象：TApplication
声明： property OnIdle: TIdleEvent；
功能：在应用程序空闲时将发生OnIdle事件c
如果用户想在应用程序空闲时处理一些操作，可以将一个事件处理代码添加到
OnIdle事件上去。TIdleEvent的类型被声明成为OnIdLe，定义是：
TidleEvent=procedure(Senger:Tobject; var Done: Boolean) of object；
其中Done参数缺省时为真，声明应用程序等待系统的信息。当Done参数为假
时，应用程序将不处理系统信息。使用OnIdle事件要特别注意，许多应用程序
不需要处理这个事件。（
DInput获取数据主要分为直接和缓存两种方式。我主要讲直接方式（因为最简单）。
要在Delphi里获取DInput的数据，最好是在程序的OnIdle事件里。这样就能不断地轮询DInput的输入。
首先声明一个OnIdle函数
procedure AppIdle(Sender: TObject; var Done: Boolean);
然后在程序初始化时设置， Application.OnIdle := AppIdle;
接下来就可以在AppIdle函数里获取DInput输入了.代码如下:
//激活OnIdle事件
Done := False;
//键盘消息
FDInputKeyBoard.GetDeviceState(256, @keyboard_state);
for i := 0 to 255 do
begin
if keyboard_state[i] <> 0 then
Self.Canvas.TextOut(0,0, '你按了一个键，它的代码是：' + IntToStr(i));
end;
end;
//鼠标消息
FDInputMouse.GetDeviceState(SizeOf(DIMOUSESTATE), @mouse_state);
if (mouse_state.lX <> 0) or (mouse_state.lY <> 0) then
begin
Self.Canvas.TextOut(0,20, '鼠标的X坐标移动量：' + IntToStr(mouse_state.lX));
Self.Canvas.TextOut(0,40, '鼠标的Y坐标移动量：' + IntToStr(mouse_state.lY));
end;
if mouse_state.rgbButtons[0] <> 0 then
Self.Canvas.TextOut(0,60, '你按了鼠标的左键');
关于如何在Delphi的VCL环境里使用DirectInput，我就教到这里了。有关DInput的更详细信息，请参考微软的DX9SDK。
最后是完整的DInput鼠标和键盘的演示程序
）。