-
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
-
winsoftkeyled
Sendkey sample source code in Delphi
- 2015-07-18 15:29:14下载
- 积分：1
-
Comunicacion via rs232 y manejo del dde
Comunicacion via rs232 y manejo del dde
- 2023-05-31 22:15:02下载
- 积分：1
-
zs
说明： delphi诊所管理源代码，针对中小型诊所，牙科医院，sql2000数据库(delphi clinic management source code)
- 2015-07-25 13:38:19下载
- 积分：1
-
简易工作日志
因为工作需要，记录每天的工作内容，在网上找了很长时间，一直没有适合自己的小工具，于是用DELPHI自己写了一个，数据保存在配置文件中
- 2023-09-05 06:40:05下载
- 积分：1
-
Rx275D7
rxlib2.75控件包，供d7使用，用以增强delphi的界面，使界面更美观！强烈推荐(rxlib2.75 control packets for d7 used to enhance delphi interface make interface more beautiful! Strongly recommended!)
- 2007-05-15 14:28:11下载
- 积分：1
-
说明
~~~~~~~~~~~~~~~
各个目录中是各种模块的最小化版本的内核。
使用_Build.bat可以编译测试程序，也可以在相应的...
说明
~~~~~~~~~~~~~~~
各个目录中是各种模块的最小化版本的内核。
使用_Build.bat可以编译测试程序，也可以在相应的Sys目录
下编译内核。-~~~~~~~~~~~~~~~ Directory that all the various modules are the smallest version of the kernel. _Build.bat Can be compiled using the test procedure can also be at the Sys directory under the kernel.
- 2022-11-07 00:50:03下载
- 积分：1
-
Delphi编写的充电器上位机程序含代码
Delphi编写的充电器上位机程序含代码-Delphi prepared charger PC program containing the code
- 2023-06-15 11:15:17下载
- 积分：1
-
Delphi控制电脑蜂鸣器或扬声器发声音
Delphi控制电脑蜂鸣器或扬声器发声音，有些称之为喇叭，不过测试发现，这个是优先机箱蜂鸣器发出声音，或没装蜂鸣器，则会从音箱中发声音，实现的代码很简单，以下代码即可实现：
procedure TForm1.Button1Click(Sender: TObject);
var
i,j : integer;
begin
for i := 1000 to 2000 do
begin
j := i;
windows.Beep(1000,3000);
end;
end;
- 2022-02-05 03:44:28下载
- 积分：1
-
名称：gmfsk
NAME: gmfsk
VERSION: 0.6
RELEASE: 1
SUMMARY: Gnome MFSK, RTTY, THROB, PSK31, MT63 and HELLSCHREIBER terminal
DISTRIBUTION: OH2BNS
VENDOR: OH2BNS
LICENSE: GPL
PACKAGER: Tomi Manninen
GROUP: Applications/Communications
OS: linux
ARCH: i386
SOURCE RPM: gmfsk-0.6-1.src.rpm
DESCRIPTION:
gMFSK is a terminal program for MFSK, RTTY, THROB, PSK31, MT63
and HELLSCHREIBER.
-NAME: gmfsk
VERSION: 0.6
RELEASE: 1
SUMMARY: Gnome MFSK, RTTY, THROB, PSK31, MT63 and HELLSCHREIBER terminal
DISTRIBUTION: OH2BNS
VENDOR: OH2BNS
LICENSE: GPL
PACKAGER: Tomi Manninen
GROUP: Applications/Communications
OS: linux
ARCH: i386
SOURCE RPM: gmfsk-0.6-1.src.rpm
DESCRIPTION:
gMFSK is a terminal program for MFSK, RTTY, THROB, PSK31, MT63
and HELLSCHREIBER.
- 2022-02-01 09:39:57下载
- 积分：1
|
联系客服（QQ：3324461878）
