-
delphi写的串口rfid读卡器源码
用delphi编写的rfid读卡器程序，支持epcc1-g2和18000-6b，囊括了所有操作，对于进行rfid开发的人，应该有很大的帮助
- 2023-08-20 00:25:04下载
- 积分：1
-
Delphi 程序控制关闭显示器
Delphi 程序控制关闭显示器，不过我很好奇Delphi真能关闭显示器么？如果是用Delphi截断视频信号的输出，让显示器黑屏，这倒是有可能哦，但是让Delphi直接关闭显示器，有点不太可能吧？看了看代码，原来是这样：
begin
//关闭显示器
PostMessage(Application.Handle,WM_SYSCOMMAND,SC_MONITORPOWER,1);
//打开显示器：
PostMessage(Application.Handle,WM_SYSCOMMAND,SC_MONITORPOWER,0);
end;
- 2022-04-01 11:14:50下载
- 积分：1
-
Delphi IntToHex函数用法举例
关于IntToHex，在Delphi中使用频率也是挺高的，不过像我这种菜鸟，对IntToHex的具体用法仍是不太熟悉，后来看了这个小程序，了解了一些，分享给大家，特别是以下代码会加深你对IntToHex函数的用法理解。
procedure TForm1.Button1Click(Sender: TObject);
var
S:integer;
begin
S:=2147483647;
showmessage(inttoHex(s,8));
showmessage(inttoHex(s,10));
showmessage(inttoHex(s,16));
showmessage(inttoHex(s,32));
end;
- 2022-09-07 01:20:03下载
- 积分：1
-
Delphi 定制自己的幽灵程序
Delphi 定制自己的幽灵程序，这个程序在Windows托盘处显示图标，而且退出后在进程中仍会运行，像幽灵一样，托盘处可右键弹出菜单，本程序主要是图标和菜单的一些操作，属于UI界面的范畴吧，这是我个人认为的，部分代码摘录：
NormalIcon,DisabledIcon:TIcon;
//正常和失效两种情况下的图标
Status:Boolean;
//标志"允许使用"还是"禁止使用"
procedure InstallIcon;
procedure ChangeIcon(s:Boolean);
procedure UnInstallIcon;
procedure IconOnClick(var message:TMessage); message MI_ICONEVENT;
//捕捉自定义消息MI_ICONEVENT的过程IconOnClick的声明
- 2023-04-07 01:50:03下载
- 积分：1
-
Delphi 使用快捷键保存数据至SQLSERVER
Delphi 使用快捷键保存数据，这里是将数据保存在SQLSERVER数据库中，测试前请连接好数据库哦。
- 2022-07-24 01:07:01下载
- 积分：1
-
用实例源码演示delphi Exit语句的使用
用实例源码演示delphi Exit语句的使用，这个是比较基础的delphi语法实例了，以一个输入界面来演示exit函数的使用方法。演示了如果用户的输入不符合条件的话，则使用Exit语句结束执行，跳出程序，在如图所示的输入项中，任意一项输入不符合要求，则会直接退出程序的执行。
- 2022-02-15 15:18:24下载
- 积分：1
-
Delphi 使播放的Flash随窗口大小改变
Delphi 使播放的Flash随窗口大小改变，也就是让Flash播放的窗口内容随着父窗口的大小而自动适应，把窗口拉大时，Flash画面也会跟着变大，让内容适应窗口大小的变化。
- 2022-05-31 21:57:49下载
- 积分：1
-
Delphi 创建Excel表格文件
Delphi 读取SQLSERVER数据库内容，并创建Excel表格文件，将内容导出到excel文件中，核心同样是基于createoleobject对象的excel.application方法实现，创建EXECEL对象 ,添加comobj单元，用循环加入记录，将数据表导入到Excel表中，正式开始EXECEL输出。
- 2022-02-15 04:17:26下载
- 积分：1
-
Delphi为程序添加esc退出程序的功能
本源码演示Delphi如何用ESC键退出程序，为程序添加esc退出程序的功能，一般情况下，关闭程序都是通过ALT+f4或者直接点击窗口右上角的叉子关闭，不过我们也可以为程序添加通过键盘按下ESC键来关闭程序，本源码就是演示了此种功能，当用户按下ESC时，窗口即关闭，程序退出。
- 2022-07-21 22:03:47下载
- 积分：1
-
Delphi判断双字节字符的例子
Delphi判断双字节，用法简单，在窗口输入框中输入字符串，单击按钮即可，程序会判断出是否包含有双字节字符，判断方法请看下边的代码段：
s := Edit1.Text;
i := 0;
while i begin
if (ByteType(S,i) mbSingleByte) then
begin
s1 := s1+ copy(s,i,2)+;
i := i+2;
end
else
i:= i+1;
end;
label2.Caption := trim(s1);
- 2022-07-24 15:06:09下载
- 积分：1
