首先我们建立一个过程,这个过程就是本程序的核心部份: procedure SetRing(value:word); stdcall; const ZDH =03;//设一个中断号varIDT:array[0..5]ofbyte;//保存IDT表OG:dword;//存放旧向量beginasmpushebxsidtIDT//读入中断描述符表movebx,dwordptr[IDT+2]//IDT表基地址addebx,8∗ZDH//计算中断在中断...
SetRing(strtoint('$'+inttostr(1742+(10-trackbar1.Position)*160))); 因为windows默认的值为$1742,所以我们把1742做为基数,又因为值越小越快,反之越慢的原理,所以写了这样一个公式,好了,这就是“变速齿轮”的一个Delphi+ASM版了(只适用于win9X),呵呵,试一下吧,这对你帮助会很大的,呵呵。 在win2000...
If a subsequent cursor position (set by the SetCursorPos function or the mouse) lies outside the rectangle, Windows automatically adjusts the position to keep the cursor inside the rectangular area. BOOL ClipCursor( CONST RECT *lpRect // pointer to structure with rectangle ); Parameters lprc Poi...
Cursor:指定指针的图像(鼠标经过组件时光标所显示的形状) Destroy:销毁一个对象实例 DragCursor:拖动时,鼠标的形状 DragKing:可获取或设置组件是拖动还是停靠操作,分别对应Drag和Dock DragMode:设置组件拖动模式。值dmManual和dmAutomatic,分别对应手工和自动 Enable:设定组件是否能使用,当设为FALSE时组件会呈灰色 Font:...
{ Call to SetForegroundWindow is required by API } SetForegroundWindow(IconMgr.HWindow); { Popup local menu at the cursor position. } GetCursorPos(Pt); TheIcon.FPopupMenu.Popup(Pt.X, Pt.Y); { Message post required by API to force task switch } PostMessage(IconMgr.HWindow, WM_USER,...
SetTextBuf函数 给文本文件指定I/O缓冲区 Shape 属性 显示的形状 ShowException 函数 显示意外消息与地址 Sin 函数 正弦函数 SizeOf函数 返回参数所占的字节数 SmallChange 属性 最小改变值 Sorted属性 是否允许排序 Sqr 函数 平方函数 Sqrt函数 平方根函数 StartMargin 属性 开始边缘 State 属性 控件当前状态 Str ...
TTimer被用于简化调用Windows API定时器函数SetTimer和KillTimer,简化处理WM_TIMER消息。在应用程序中一个TTimer组件对应一个定时器。定时器通过它的OnTimer事件执行。TTimer有一个Interval属性,它决定了OnTimer事件发生的频率。Interval和Windows API的SetTimer函数的参数相对应。注意:全系统所能拥有的定时器的数量限制和...
函数原型 procedure Exclude(var S: set of T;I:T);说明 删除S中的I元素.---FillChar 填入元素.---Unit System函数原型 procedure FillChar(var X; Count: Integer; value);说明 以value填入X中Count个.范例Examplevar S: array[0..79] of char;begin { Set to all spaces...
{ set label text } if (CrossHCount < 3) then DrawCross(X, Y); { draw crosshair at current position } { store old position } if ((OldY = X) and (OldY = Y)) then begin Inc(CrossHCount);end else begin CrossHCount := 0;end;OldX := X;OldY := Y;with FastLine...
KeyLife富翁笔记 作者 :bit007 标题 :DELPHI文件压缩加密 关键字: 分类 :个人专区 密级 :公开 (评分:,回复:0,阅读:1927)?? 1、系统功能 1）、数据压缩 使用DELPHI提供的两个流类（TCompressionStream和TDecompressionStream）来完成数据的压缩和解压缩。 2）、数据加密压缩 通过Delphi编程中“流”的应用实现数据...