-
Delphi 从剪贴板中读取图片
Delphi 从剪贴板中读取图片，Windows剪帖板相信大家都知道吧，这个程序可查看剪贴板中的图像，将图片另保存，可看作是一个查看剪贴板中图片的一个例子。
implementation
{$R *.dfm}
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Clipboard().Assign(Image1.Picture.Bitmap);
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
if Clipboard().HasFormat(CF_BITMAP) then
Image2.Picture.Bitmap.Assign(Clipboard());
end;
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
Image2.picture := nil;
end;
end.
- 2022-06-13 13:08:12下载
- 积分：1
-
Delphi 读写物理扇区——实模式
Delphi 读写物理扇区——实模式， asm //以下汇编代码中，只有第一参数、第二参数、pFunc的值是需要改变的，其余都是固定的写法
pushad
push ebp //#2，保存ebp
sub esp,$2c //#1，预留2c字节的栈空间
push Int13Reg16 //第一参数，如果没有参数，则不用push
//第二参数，如果没有参数，则不用push
mov edx, pFunc //函数地址
mov ebp,esp //
add ebp,$2c //ebp校正，是作者分析QT_Thunk时发现的
call QT_Thunk
add esp,$2c //#1，释放上面预留的2c字节的栈空间
pop ebp //#2，恢复ebp
mov byte ptr @result,al
popad
end;
- 2022-01-24 18:37:58下载
- 积分：1
-
Delphi 钩子函数创建鼠标操作的演示
Delphi 钩子函数创建鼠标操作的演示，作者：冉林仓，测试内容包括三个：DemoRecord.dpr DemoPlayBack.dpr Hktest.dpr。
安装与调试说明：
如果制作的演示程序工作不正常,请注意修改HKPROC.PAS，JOURNALPLAYBACKHOOKHANDLER函数,主要是修改返回的RESULT值.
记录的消息序列与屏幕窗口位置、分辨率有很大的关系,哪怕是窗口位置和大小仅仅偏一点,你的回放就不一定正常,请你在使用时要反复调试，以获得比较理想的效果。
- 2023-09-02 14:55:03下载
- 积分：1
-
Delphi 监测程序多久未被使用
Delphi 监测程序多久未被使用,以秒数来衡量使用了多久，打开一次然后再关闭，就可以显示使用了多长时间。
- 2022-06-02 20:45:39下载
- 积分：1
-
Delphi 在图片中写入文字
在图片中写入文字(写入文字后按回车键)，Delphi 图片合成 效果，图片与字符的合并，在图片中写入文字，就像PhotoShop中完成的效果，有兴趣的参考源码吧。
- 2023-03-24 10:00:04下载
- 积分：1
-
在Delphi中进行 YCrCb RGB 颜色值转换
在Delphi中进行 YCrCb RGB 颜色值转换，载入一张测试图片，右侧显示的转换后的颜色图像，文本框中显示的是各个转换过的颜色值。希望通过这个Delphi例子，帮你了解一下YCrCb向RGB颜色值的转换过程，转换方法和思路，本源码中则是具体的实战代码，请下载后研究。
- 2022-05-23 08:16:07下载
- 积分：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控制系统静音，两个声道均不发出声音，同时若在非静态状态下，可控制左、右声道的音量大小，在代码中@表示指向变量v的指针（32位），调用此函数的用意就是得到右声道的值，在调节左声道的时候，不改变右声道}数字前面加＄表示是十六进制数字，(t shl 8)表示t左移8位，部分参数设置代码如下：
procedure TForm1.FormCreate(Sender: TObject);
var
v:longint;
begin
waveoutgetvolume(0,@v);//得到现在音量，@v表示指向变量v的指针（32位）
trackbar1.Position:=hi(v);//设置左滑块的正确位置
trackbar2.Position:=hi(v shr 16);//设置右声道滑块的正确位置
end;
- 2022-06-02 00:55:40下载
- 积分：1
-
一个相当不错的Delphi TreeView树控菜单
一个Delphi编写的相当不错的TreeView树控菜单，类似于Windows资源管理器中的树状菜单。
ParentFolder: IShellFolder; // 节点对应的文件夹的父文件夹的IShellFolder接口
Pidl, FullPidl: PItemIDList;// 节点对应的文件夹的相对和绝对项目标识符列表
HasExpanded: Boolean; // 节点是否展开
通过这个树形菜单制作实例，你可以学习到几个对项目标识符进行操作的函数，同时还有将二进制表示的项目标识符列表转换成有可识的项目名，获得每个文件夹在系统中的图标，获得系统的图标列表，生成文件夹管理树等。
- 2022-02-01 01:44:12下载
- 积分：1
-
一个包括了下拉菜单的Delphi窗口设计范例程序
一个包括了菜单的Delphi窗口设计范例程序，以一个销售管理系统的主窗口界面设计为例，演示在窗体中添加下拉菜单、主窗口显示区、状态栏、标题栏等窗口元素，比较适合Delphi初学者学习。窗口中的下拉菜单我认为需要掌握，在很多的Delphi应用程序中，都会有此需求，欢迎下载源码。
- 2022-12-24 17:00:02下载
- 积分：1
