自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(47)
  • 资源 (6)
  • 收藏
  • 关注

原创 delphi 获得IE版本 不同版本键值不同

数字签名=F9791458ADE6C5434298DE631C01B224。采集日期=2023-11-23 16:23:29。关键字=获得IE版本 不同版本键值不同。采集软件=MKM - 我的知识管理。{获得IE版本,不同版本键值不同。//IE版本,不同版本键值不同。

2023-12-03 13:01:20 362

原创 【delphi】获得GIF图片的尺寸规格

数字签名=AB2C79B9A0D878DDD1A8D8BD7796EB70。采集日期=2023-11-23 15:52:12。采集软件=MKM - 我的知识管理。关键字=获得GIF图片的尺寸规格。{获得GIF图片的尺寸规格}

2023-12-03 13:00:45 350

原创 delphi 给f的png添加水印日期

/X, Y是文字输出的坐标信息;//给f的png添加水印日期。

2023-12-03 12:58:27 417

原创 【delphi】读取webbrowser的文本

数字签名=EF1A329D25381B32968AC5F41718C7D7。采集日期=2023-11-23 16:26:27。关键字=读取webbrowser的文本。采集软件=MKM - 我的知识管理。{读取webbrowser的文本}

2023-12-03 12:56:50 358

原创 delphi得到MP3音乐文件里面的信息

数字签名=C1C7263FA648800B669BF659B2E12E34。采集日期=2023-11-23 18:25:26。采集软件=MKM - 我的知识管理。关键字=得到音乐文件里面的信息。//得到音乐文件里面的信息。{得到音乐文件里面的信息。

2023-12-03 12:48:50 383

原创 打开utf8文件到memo

/debug 会有文件占用的问题,加上这句话解决了。数字签名=17A767BE451889C3829B94C67642E7A4。采集日期=2023-11-23 17:33:25。关键字=打开utf8文件到memo。采集软件=MKM - 我的知识管理。, xRegExt //注册扩展名。{打开utf8文件到memo。

2023-12-03 12:47:30 344

原创 【delphi】窗口接收拖放

/得到拖放的文件名,通过FileIndex来指定文件编号,默认为第一个文件。数字签名=8E87436919E81A2BDF47DEA21C2A2BDE。//用来告诉Windows你的Form可以接受文件拖放。采集日期=2023-11-23 21:51:11。//释放Windows分配给拖放操作的内存。采集软件=MKM - 我的知识管理。//得到拖放的文件个数。关键字=窗口接收拖放。

2023-12-03 12:46:29 393

原创 delphi中获取memo鼠标所在位置的行和列

数字签名=733B67985DAFBC81508A8E5426294853。关键字=delphi中获取memo鼠标所在位置的行和列。//delphi中获取memo鼠标所在位置的行和列。采集日期=2023-11-23 17:31:01。{delphi中获取memo鼠标所在位置的行和列。采集软件=MKM - 我的知识管理。

2023-12-03 12:44:25 447

原创 【Delphi】 计算进程运行时间长度

数字签名=D5D57A781DFDA069108C608E5B76FABB。采集日期=2023-12-02 13:21:38。关键字=【Delphi】 计算进程运行时间长度。采集软件=MKM - 我的知识管理。编程工具=Delphi 7。{计算进程运行时间长度}

2023-12-03 12:43:06 366

原创 delhi 窗口接收拖放

/得到拖放的文件名,通过FileIndex来指定文件编号,默认为第一个文件。数字签名=8E87436919E81A2BDF47DEA21C2A2BDE。//用来告诉Windows你的Form可以接受文件拖放。采集日期=2023-11-23 21:51:11。//释放Windows分配给拖放操作的内存。采集软件=MKM - 我的知识管理。//得到拖放的文件个数。关键字=窗口接收拖放。

2023-12-03 12:42:25 325

原创 delphi 下载图片支持https

数字签名=918877488693EBF0DD8BB4C3EADAD16E。采集日期=2023-11-23 13:27:54。采集软件=MKM - 我的知识管理。关键字=下载图片支持https。{下载图片支持https}{下载图片支持https}

2023-12-03 12:41:32 414

原创 【delphi】idhttp下载文件支持https

idhttp下载文件支持https

2023-12-03 12:39:16 540

原创 delphi 显示 gif 动画

数字签名=E6E06184AED7743F154E127930588B7E。采集日期=2023-11-23 14:35:03。采集软件=MKM - 我的知识管理。关键字=显示 gif 动画。{显示 gif 动画}{显示 gif 动画}

2023-12-02 12:55:20 491

原创 delphi 图片旋转

图片旋转

2023-12-02 12:53:53 453

原创 delphi 窗口图片平铺

图片平铺

2023-12-02 12:52:47 394

原创 DELPHI 图片等比例值缩放

DELPHI 图片等比例值缩放

2023-12-02 12:51:29 576

原创 DELPHI 设置扩展名缺省打开程序

设置扩展名缺省打开程序

2023-12-02 12:49:52 326

原创 DELPHI 将资源保存为文件 即还原文件

DELPHI 将资源保存为文件 即还原文件

2023-12-02 12:47:14 371

原创 DELPHI 获得文件扩展名缺省程序

DELPHI 获得文件扩展名缺省程序

2023-12-02 12:45:57 389

原创 DELPHI 获得文件大小

获得文件大小

2023-12-02 12:44:49 485

原创 DELPHI 获得jpg文件的大小

DELPHI 获得jpg文件的大小

2023-12-02 12:39:41 852

原创 DELPHI 读取注册表

DELPHI 读取注册表

2023-12-02 12:37:38 452

原创 DELPHI 调用资源文件的PNG图片

DELPHI 调用资源文件的PNG图片

2023-12-02 12:36:13 459

原创 idsmtp发送邮件的例子

数字签名=C66C85B33525E72205F045B3492B88EF。idmessage1.From.Name := ‘发件人名称’;采集日期=2023-11-23 15:28:18。关键字=idsmtp发送邮件的例子。采集软件=MKM - 我的知识管理。{idsmtp发送邮件的例子}

2023-12-02 12:33:24 361

原创 【Delphi】 查找一个程序进程 关闭进程

数字签名=E5792EA0273CAFAA09999998BB9BE560。关键字=【Delphi】 查找一个程序进程 关闭进程。采集日期=2023-12-02 12:22:07。采集软件=MKM - 我的知识管理。{查找一个程序进程,关闭进程}编程工具=Delphi 7。

2023-12-02 12:28:11 380

原创 【Delphi】 查找一个程序进程 关闭进程

【Delphi】 查找一个程序进程 关闭进程

2023-12-02 12:24:28 292

原创 delphi BMP图片旋转

数字签名=D627E629E0F6C323AC9D5C5FC0A65320。采集日期=2023-11-23 14:33:47。采集软件=MKM - 我的知识管理。// 计算中心点,你可以修改它。// 步骤数值number。// 将角度转换为PI值。

2023-11-28 18:39:59 384

原创 delphi 字符串转unicode

数字签名=B3496D7AE98FF3E2AF5BFD9BF43DDF24。{字符串转unicode} if s = ‘’ then exit;采集日期=2023-11-23 15:40:58。采集软件=MKM - 我的知识管理。关键字=字符串转unicode。

2023-11-28 18:38:52 443

原创 delphi 写入注册表

if bisfirst then begin // 表示是初次运行本程序。showmessage(‘提示:注册表URL协议关联。//写入注册表,说明url类。//缺省认为不是第一次运行。采集日期=2023-11-23 21:41:53。采集软件=MKM - 我的知识管理。关键字=写入注册表 说明url类。{增加对与初次使用程序的判断}{增加对与初次使用程序的判断}{写入注册表 说明url类}

2023-11-28 18:38:17 394

原创 delphi 写入注册表

if bisfirst then begin // 表示是初次运行本程序。showmessage(‘提示:注册表URL协议关联。//写入注册表,说明url类。//缺省认为不是第一次运行。采集日期=2023-11-23 21:41:53。采集软件=MKM - 我的知识管理。关键字=写入注册表 说明url类。{增加对与初次使用程序的判断}{增加对与初次使用程序的判断}{写入注册表 说明url类}

2023-11-28 18:36:20 370

原创 delphi 删除目录下 所有文件

/删除目录下*.*数字签名=4B4D32703851AAF245EE58D2276BE3A5。//释放FindFirst()时分配的内存。采集日期=2023-11-23 20:38:10。采集软件=MKM - 我的知识管理。关键字=删除目录下 所有文件。

2023-11-28 18:34:00 502

原创 delphi 读取网络上的文本

数字签名=6A5B2AF786F4A2EBC4344CEC19588F7F。采集日期=2023-11-23 20:39:28。采集软件=MKM - 我的知识管理。关键字=读取网络上的文本。{读取网络上的文本 }

2023-11-28 18:33:28 373

原创 delphi 读取网络上的文本

数字签名=6A5B2AF786F4A2EBC4344CEC19588F7F。采集日期=2023-11-23 20:39:28。采集软件=MKM - 我的知识管理。关键字=读取网络上的文本。{读取网络上的文本 }

2023-11-28 18:32:36 337

原创 delphi webbrowser屏蔽右键菜单 防止右键 防止ctrl N

数字签名=B1779CEF8D102A9A324F1118A5BD04C2。关键字=webbrowser屏蔽右键菜单 防止右键 防止ctrl N。采集日期=2023-11-23 21:44:46。采集软件=MKM - 我的知识管理。{webbrowser屏蔽右键菜单。//防止ctrl+N。

2023-11-28 18:31:13 385

原创 delphi 十六进制hex转字符串

数字签名=CEEC146D6F4C62F90B27270163C33C25。采集日期=2023-11-23 13:41:50。采集软件=MKM - 我的知识管理。关键字=十六进制hex转字符串。{十六进制hex转字符串}

2023-11-28 18:30:14 441

原创 【delphi】 内存清理

数字签名=BD8A8BB93D9C5E0631C0A1B0AC5A3175。采集日期=2023-11-23 13:54:12。采集软件=MKM - 我的知识管理。//DELPHI清理释放内存小代码。

2023-11-28 18:29:33 412

原创 【delphi】 内存清理

数字签名=BD8A8BB93D9C5E0631C0A1B0AC5A3175。采集日期=2023-11-23 13:54:12。采集软件=MKM - 我的知识管理。//DELPHI清理释放内存小代码。

2023-11-28 18:28:55 359

原创 【delphi】 避免程序重复运行

Application.MessageBox('程序已经在运行 …‘,’ 系统提示 ', MB_ICONERROR);数字签名=837B4270090D43C17E77EB399FCDB1D8。采集日期=2023-11-23 13:51:18。采集软件=MKM - 我的知识管理。关键字= 避免程序重复运行。

2023-11-28 18:28:01 369

原创 【delphi】 避免程序重复运行

Application.MessageBox('程序已经在运行 …‘,’ 系统提示 ', MB_ICONERROR);数字签名=837B4270090D43C17E77EB399FCDB1D8。采集日期=2023-11-23 13:51:18。采集软件=MKM - 我的知识管理。关键字= 避免程序重复运行。

2023-11-28 18:26:31 360

原创 delphi jpg转png

数字签名=7605A16271DCE41824C55E1A1CE6C1DA。采集日期=2023-11-23 13:46:22。采集软件=MKM - 我的知识管理。关键字=jpg转png。

2023-11-28 18:20:37 368

delphi 读取stable diffusion 生成的png图片提示词信息

delphi 读取stable diffusion 生成的png图片提示词信息

2023-12-03

delphi-函数过程-231123.给f的png图片添加水印日期.txt

给png图片增加水印的函数

2023-12-02

雷牌dcindy70用ssl动态库dll

dcindy70用ssl动态库dll

2023-06-18

给管理员写的生成用户名和密码的快捷工具

给管理员写的生成用户名和密码的快捷工具 0.2.4 增加了保存密码文件到txt的功能, 修正了产生纯数字密码出现多个重复数字的问题,在密码生成之间增加了sleep(1),可以避免rand函数由于计算速度太快两个循环取时间种子完全相同

2023-03-24

delphi7新鲜出炉就一个pas的 二维码qrcode for d7 无需dpk无需dll

专用delphi7,1个pas的 二维码qrcode for d7 无需dpk无需dll 解释一下:dx10有个zxing,改成可以d7使用的pas ,引用一个pas即可用。 附赠调用例子,包括生成二维码和保存成图片的函数,物超所值。 procedure TForm4.PaintBox1Paint(Sender: TObject); var Scale: Double; begin PaintBox1.Canvas.Brush.Color := clWhite; PaintBox1.Canvas.FillRect(Rect(0, 0, PaintBox1.Width, PaintBox1.Height)); if ((QRCodeBitmap.Width > 0) and (QRCodeBitmap.Height > 0)) then begin if (PaintBox1.Width < PaintBox1.Height) then begin Scale := PaintBox1.Width / QRCodeBitmap.Width

2022-06-08

0611检测usb设备信息.zip

delphi 获得usb设备的路径,可以识别usb设备的厂家ID和设备ID. Locator := CreateOleObject('WbemScripting.SWbemLocator'); WMI := Locator.ConnectServer('.', '', '', ''); Ret := WMI.ExecQuery('SELECT * FROM Win32_USBHub');//这里Win32_USBHub为检测项,详见下表 Enum:= IUnknown(RET._NewEnum) as IEnumVariant; ......

2020-08-05

delphi 打开钱箱的代码

delphi 打开钱箱的代码,超市POS开发或许用的上。需要的先保留一份吧

2018-10-02

delphi串口包-简单易用

delphi串口包-简单易用,可以用来开发超市的客屏显示的价格传输。我就是因为这个才用的。

2018-10-02

nfc delphi 通讯代码 Peer to Peer Programming

nfc delphi 通讯代码 Peer to Peer Programming

2012-10-25

nfc delphi 通讯代码 get atr

nfc delphi 通讯代码 get atr

2012-10-25

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除