unit jisuanqiU; interface uses_程序员之家(计算器（加了个小数点）。。。)

开发技术指南» 文章正文

引言： unit jisuanqiU; interface uses

摘要：我这有一个对当前页面的设置代码var mmm,nnn,aaa:olevariant;begin mmm:=wdline; nnn:=1; aaa:=wdfieldpage; wordapp.activewindow.activepane.view.seekview :=wdseekcurrentpageheader ; wordapp.selection.move(mmm,nnn); wordap......

·扫雷外挂的设计与实现（三） »显示摘要«

摘要：文/jorge如上述，本程序分为了接口层和算法层。上述全局变量和常量，基本都属于接口层的内容。下面，来看接口层的具体实现。其工作的第一步，是要捕获扫雷窗口并取得其信息。这由函数getminewindow来完成：=================================================================//试图取得可用的扫雷窗口，返回值表示是否成功。若成功，则全......

计算器（加了个小数点）。。。

unit jisuanqiu;

uses 【程序编程相关:MSN / QQ 中的动画表情在Del】

interface 【推荐阅读:一个很实用的Ehlib排序函数，适合AD】

windows, messages, sysutils, variants, classes, graphics, controls, forms, 【扩展信息:Authorware UCD 开发大揭秘】

dialogs, stdctrls, extctrls;

type

tform1 = class(tform)

button1: tbutton;

button2: tbutton;

button3: tbutton;

button4: tbutton;

button5: tbutton;

button6: tbutton;

button7: tbutton;

button8: tbutton;

button9: tbutton;

button10: tbutton;

button11: tbutton;

button12: tbutton;

button13: tbutton;

button14: tbutton;

button15: tbutton;

panel1: tpanel;

edit1: tedit;

button17: tbutton;

button16: tbutton;

button18: tbutton;

procedure button1click(sender: tobject);

procedure button2click(sender: tobject);

procedure button3click(sender: tobject);

procedure button4click(sender: tobject);

procedure button5click(sender: tobject);

procedure button6click(sender: tobject);

procedure button7click(sender: tobject);

procedure button8click(sender: tobject);

procedure button9click(sender: tobject);

procedure button10click(sender: tobject);

procedure button12click(sender: tobject);

procedure button13click(sender: tobject);

procedure button14click(sender: tobject);

procedure button15click(sender: tobject);

procedure button17click(sender: tobject);

procedure button16click(sender: tobject);

procedure button11click(sender: tobject);

procedure formshow(sender: tobject);

procedure button18click(sender: tobject);

private

{ private declarations }

public

{ public declarations }

end;

var

form1: tform1;

// num,num1,num2:integer;

s,j,i,s_number,s_type,s_characterlast:string;

implementation

{$r *.dfm}

... 下一页

·扫雷外挂的设计与实现（二） »显示摘要«

摘要：文/jorge有了前述的数据，编写接口层似乎已经不成问题了。现在来构思一下程序运行的过程。说句实话，那种对于某种变化实时作出响应的程序，一般都用什么方法编成，本人并不很了解，推测无非是两种思想，一种是用一个线程不断地对这个变化进行检查，发现改变则动作；另一种是注册一个类似于钩子的东西，用回调函数来处理。无疑第二种方式要更节省系统资源，只是难在本人对windows的钩子掌握的还一塌糊涂。若换了个高手......

» 本期热门文章：

· 热门栏目：

» 相关精选文章

» 其它相关：