-
一个相当不错的Delphi TreeView树控菜单
一个Delphi编写的相当不错的TreeView树控菜单,类似于Windows资源管理器中的树状菜单。
ParentFolder: IShellFolder; // 节点对应的文件夹的父文件夹的IShellFolder接口
Pidl, FullPidl: PItemIDList;// 节点对应的文件夹的相对和绝对项目标识符列表
HasExpanded: Boolean; // 节点是否展开
通过这个树形菜单制作实例,你可以学习到几个对项目标识符进行操作的函数,同时还有将二进制表示的项目标识符列表转换成有可识的项目名,获得每个文件夹在系统中的图标,获得系统的图标列表,生成文件夹管理树等。
- 2022-02-01 01:44:12下载
- 积分:1
-
delphi写的串口rfid读卡器源码
用delphi编写的rfid读卡器程序,支持epcc1-g2和18000-6b,囊括了所有操作,对于进行rfid开发的人,应该有很大的帮助
- 2023-08-20 00:25:04下载
- 积分:1
-
用Delphi编写锁定电脑的程序
Delphi锁定计算机,锁定电脑,不允许别人可以操作,类似Windows自带的锁定程序,其实锁定是非常简单的,不几行代码就能实现:
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
LockWorkStation;
end;
若需要完整的源码,请下载本源码包。
- 2022-04-28 20:57:54下载
- 积分:1
-
Delphi 把时间格式转换成字符串
Delphi 把时间格式转换成字符串来显示,在运行的程序界面中,选择一个指定的日期后,可将此日期转换成字符串格式的,也就是不再具备时间的属性,但是自身已经变为字符串了。人可以识别,但机器不再识别为时间了。
procedure TForm1.FormShow(Sender: TObject);
begin
DateTimePicker1.Date:=now();
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:=datetostr(DateTimePicker1.Date);
end;
- 2022-07-17 07:07:52下载
- 积分:1
-
Delphi实现多次渲染的RGB色环颜色渐变特效源码
Delphi实现RGB色环多次渐变,生成一个渐变的圆形,颜色渐变步长可自定义,在代码中,为了绘制出来的圆好看,分成四个部分进行绘制,此部分代码展示如下:
if (degree >= 0+qki) and (degree 45+qki) and (degree 135+qki) and (degree 215+qki) and (degree 315+qki) and (degree
- 2022-04-26 22:54:00下载
- 积分:1
-
Delphi 播放指定avi-mid-wav文件
Delphi 播放指定avi-mid-wav文件,这几种都是音频格式,因此这个可以说是播放音频文件的例子,控制面板中包括了常用的播放控制按钮,在此基础上,可写出一个Delphi音乐播放器,当然本源码比较早了,适合学习一些简单的Delphi音频编程技巧。
procedure TForm1.N2Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
with MediaPlayer1 do
begin
Filename := OpenDialog1.FileName ;
Open;
DisPlayrect := Rect(1,1,Panel2.Width ,Panel2.Height );
Notify := true;
end;
end;
end;
- 2023-05-08 02:15:02下载
- 积分:1
-
Delphi Tinifile创建INI文件的范例
Delphi 创建INI文件,使用了Tinifile.Create来创建一个指定格式的INI文件,作为程序的配置文件,运行程序时读入文件中的内容。ini文件作为配置文件,相信大家已经不陌生了,对于Delphi操作新手来说,源代码有很好的学习参考作用。通过本源码你可以了解到写文件对象中WriteBool、WriteFloat、WriteDate、WriteTime、WriteInteger、WriteString等众多字段类型写入的用法。
- 2022-03-22 10:38:54下载
- 积分:1
-
Delphi 当鼠标和键盘在一定时间没有动作时关闭程序
Delphi 当鼠标和键盘在一定时间没有动作时关闭程序,这是一个智能化程序,类似于屏保,当一定时间没有操作时,会关闭软件,运行的技术也不很高深,有兴趣的可下载源代码研究学习。
- 2022-10-11 13:05:03下载
- 积分:1
-
Delphi 设定Windows屏幕分辨率的方法和示例代码
Delphi 设定Windows屏幕分辨率的方法和示例代码:
function TForm1.DynamicResolution(X, Y: word): BOOL;
var
lpDevMode: TDeviceMode;
begin
Result := EnumDisplaySettings(nil, 0, lpDevMode);
if Result then
begin
lpDevMode.dmFields := DM_PELSWIDTH Or DM_PELSHEIGHT;
lpDevMode.dmPelsWidth := X;
lpDevMode.dmPelsHeight := Y;
Result := ChangeDisplaySettings(lpDevMode, 0) = DISP_CHANGE_SUCCESSFUL;
end
- 2023-04-22 01:05:03下载
- 积分:1
-
Delphi 枚举线程示例
枚举线程的Delphi实例代码,Delphi 枚举线程的例子应该很多了,这一个比较简单的那种,可以为学习Delphi的新手朋友提供一些参考思路,运行界面效果如下图所示。源代码编译于Delphi7.0环境。
- 2022-08-16 10:03:07下载
- 积分:1