-
Delphi 变速齿轮# 让时间变快减慢
Delphi 变速齿轮# 让时间变快减慢，其实这个似乎是做不到的，只是模拟一下，代码及描述如下：
procedure Speed(count:word); stdcall;
const ExceptionUsed = $03; { 中断号也可以用其它的中断号}
var
IDT : array [0..5] of byte; { 保存中断描述符表}
lpOldGate : dword; {存放旧向量}
begin
asm
push ebx
sidt IDT {读入中断描述符表}
mov ebx, dword ptr [IDT+2]{IDT表基地址}
add ebx, 8*ExceptionUsed {计算中断在中断描述符表中的位置}
cli {关中断}
mov dx, word ptr [ebx+6] {取6,7字节 另外4字节用于门属性和选择子 }
shl edx, 16d {左移16位}
mov dx, word ptr [ebx] {取1,2字节 }
mov [lpOldGate], edx {保存旧的中断门}
mov eax, offset @@Ring0Code {修改向量，指向Ring0级代码段}
mov word ptr [ebx], ax {低16位,保存到1,2字}
shr eax, 16d
mov word ptr [ebx+6], ax {高16位，保存到6,7位}
int ExceptionUsed {发生中断}
mov ebx, dword ptr [IDT+2] {重新定位到中断描述符表中}
add ebx, 8*ExceptionUsed
mov edx, [lpOldGate]
mov word ptr [ebx], dx
- 2023-02-13 04:55:03下载
- 积分：1
-
Delphi 定义鼠标ANI动画光标
ANI动画鼠标，为自己的鼠标定制了一个带笑脸动画的光标，类似于定义鼠标的样式，定义动画光标将改变鼠标默认的样式，这样定义的动画光标格式为ANI文件。
屏幕截图抓不到动画光标，这是神马情况？
- 2022-10-08 15:50:03下载
- 积分：1
-
Delphi 使用Canvas美化ListBox列表项
Delphi 使用Canvas美化列表项，当用户鼠标单击ListBox列表项时，该列表项高亮显示，改变背景色，文字居中对齐，如图所示。
主要是使用了Delphi中的Canvas.FrameRect对其进行美化，具体代码有兴趣可参考：
Canvas.FrameRect(Clientrect);
if odSelected in State then
begin
Canvas.Brush.Color:=clRed;
Canvas.RoundRect(Rect.Left,Rect.Top,Rect.Right,Rect.Bottom,8,15);
setBkMode(Canvas.Handle,TRANSPARENT );
Canvas.TextOut((Rect.right-Rect.Left) div 2,Rect.Top,Items.Strings[Index]);
end
else
begin
Canvas.Brush.Color:=clSkyBlue;
Canvas.RoundRect(Rect.Left,Rect.Top,Rect.Right,Rect.Bottom,15,15);
Canvas.TextRect(Rect,Rect.Left,Rect.Top,Items.Strings[Index]);
end;
- 2022-06-01 23:33:23下载
- 积分：1
-
Delphi 进程通讯的实现实例源码
这是一个Delphi利用自定义消息实现的进程内部通讯的例子，附上了完整的源码，运行的效果如图所示。
本程序作者：王毅 , 陈立亮 , 刘蓉，在Windows2000环境下用Delphi6.0调试通过。
本例子中主控程序采用FindWindow()函数找寻底层工作程序，从而实现通讯。底层工作程序在调试时请先生成可执行文件，然后关闭Delphi编辑器，运行可执行文件进行调试。如果不关闭Delphi编辑器，底层工作程序窗口在处于最小化时将无法正常工作，因为FindWindow()返回的是Delphi编辑器中该窗口的句柄。
- 2022-07-04 09:38:31下载
- 积分：1
-
Delphi 创建Excel表格文件
Delphi 读取SQLSERVER数据库内容，并创建Excel表格文件，将内容导出到excel文件中，核心同样是基于createoleobject对象的excel.application方法实现，创建EXECEL对象 ,添加comobj单元，用循环加入记录，将数据表导入到Excel表中，正式开始EXECEL输出。
- 2022-02-15 04:17:26下载
- 积分：1
-
EI3.0(DELPHI源码)
EI3.0(DELPHI源码)，据说挺完整的，可以下载一下试试
- 2022-03-30 08:16:31下载
- 积分：1
-
Delphi 制作的文字屏保
Delphi 制作的文字屏保，文字交替变化，晃动鼠标结束屏保。本程序的亮点是对文字动画效果的生成和控制。具有文字渐变和水平平移动画。
- 2022-03-28 23:49:31下载
- 积分：1
-
Delphi 多帧动画播放
Delphi 多帧动画播放，Delphi将多幅连续的BMP图像显示在一起，形成了动画的效果，类似于GIF的类型动画。每一张图片都是一帧，将帧快速的连起来，就形成了动画效果。
- 2023-07-24 05:15:03下载
- 积分：1
-
Delphi窗口淡入淡出渐变fadein fadeout动画效果
Delphi实现窗口的淡入淡出渐变fadein fadeout动画效果，除了渐变，还有其它的动画形式，比如从中心扩散、水平从左到右、水平从右到左、垂直从上到下、垂直从下到上等。本实例默认状态下是使用了淡入淡出渐变，其它动画效果被注释掉了，如果你想用，可以去掉注释标记。
//淡入效果
//AnimateWindow(self.Handle,1000,AW_CENTER or AW_ACTIVATE);
//从中心扩散
//AnimateWindow(self.Handle,1000,AW_HOR_POSITIVE or AW_ACTIVATE);
//AnimateWindow(self.Handle,1000,AW_SLIDE or AW_HOR_POSITIVE or AW_ACTIVATE);
//水平从左到右
//AnimateWindow(self.Handle,1000,AW_HOR_NEGATIVE or AW_ACTIVATE);
//AnimateWindow(self.Handle,1000,AW_SLIDE or AW_HOR_NEGATIVE or AW_ACTIVATE);
//水平从右到左
//AnimateWindow(self.Handle,1000,AW_VER_POSITIVE or AW_ACTIVATE);
//AnimateWindow(self.Handle,1000,AW_SLIDE or AW_VER_POSITIVE or AW_ACTIVATE);
//垂直从上到下
//AnimateWindow(self.Handle,1000,AW_VER_NEGATIVE or AW_ACTIVATE);
//AnimateWindow(self.Handle,1000,AW_SLIDE or AW_VER_NEGATIVE or AW_ACTIVATE);
//垂直从下到上
- 2022-06-11 17:51:21下载
- 积分：1
-
Delphi实现窗体失去焦点时标题栏闪动特效
这是个有意思的窗口设计实例源码，Delphi实现窗体失去焦点时标题栏闪动特效，flashwindow特效，这样可吸引操作者注意，其实实现这一功能并不复杂，以下代码最关键：
procedure TForm1.Timer1Timer(Sender: TObject);
begin
flashwindow(Handle,true);
end;
procedure TForm1.WMACTIVATEAPP(var message: TWMACTIVATEAPP);
begin
if Message.Active then
form1.Timer1.Enabled := false
else
form1.Timer1.Enabled := true;
end;
完整源码请下载。
- 2022-07-08 18:47:20下载
- 积分：1
