当前位置:首页 > 程序设计 > Delphi程序设计 > 游戏辅助 > 详细内容
SPY++ 结合Delphi7.0简单应用02010107-02源码
作者:admin  发布时间:2009-12-6  阅读次数:4050  字体大小: 【】 【】【

教学课题:SPY++ 结合Delphi7.0利用API函数FindWindow实现取“计算器”窗口句柄
教学目标:Delphi7.0编程坏境,以计算器为例模拟鼠标输入QQ号:854487915
教学步骤:1、认识API函数:FindWindow,返回值类型:整数型。执行成功返回窗口句柄,否则返回0;参数1类型:字符型,目标窗
口的窗口类名;参数2类型:字符型,目标窗口的窗口名称或称标题。函数原型:
HWND FindWindow(
       LPCTSTR lpClassName,           // pointer to class name           参数1:目标窗口的窗口类名
       LPCTSTR lpWindowName   // pointer to window name   参数2:目标窗口的窗口名称或称标题
     );
                               2、认识Delphi函数:
IntToHex,返回值类型:字符型(16进制),函数执行成功返回指定十进制数值的十六进制字
符串型;参数1类型:整数型(Integer),目标数值的十进制数值;参数2类型:整数型(Integer),指定使用多少位来显示十六进制数据。函数原型:
function IntToHex(
Value: Integer;   //参数1:要转换的十进制数值
Digits: Integer     //参数2:使用多少位来显示十六进制数据
): string;

教学源码:

unit Unit1;

interface

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

type
   TForm1 = class(TForm)
       lb1: TLabel;
       edt1: TEdit;
       btn1: TButton;
       procedure btn1Click(Sender: TObject);
   private
       { Private declarations }
   public
       { Public declarations }
   end;

var
   Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var
   ck_hwnd:HWND;
begin
   ck_hwnd:=FindWindow('SciCalc','计算器');
   edt1.Text := IntToHex(ck_hwnd,8);
end;

end.

来源:潇潇的编程网站 http://www.wgbcw.cn
上一篇:没有了! 下一篇:SPY++ 结合Delphi7.0简单应用02010107-03源码
我要评论
  • 匿名发表
  • [添加到收藏夹]
  • 发表评论:(匿名发表无需登录,已登录用户可直接发表。) 登录状态:未登录
最新评论
所有评论[1]
    暂无已审核评论!
Web Lite SWeTE: Simple Website Translation Engine
 


设为首页 | 加入收藏 | 意见建议 | 友情链接 | 版权声明 | 管理登陆 | 编程论坛 | 给我留言

声明:本网站部分稿件来源的所有文字、图片和音视频稿件,来自互联网,若侵犯您的权利,请来信告知,我们将在第一时间内删除!


Copyright 2009-2015 redrose ( wgbcw.cn ) All rights reserved ICP备案编号:滇ICP备09007156号 Dict.cn


点击这里给我发消息
点击这里给我发消息
安全联盟站长平台