自定义博客皮肤VIP专享

*博客头图:

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

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

博客底图:

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

栏目图:

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

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(5)
  • 资源 (11)
  • 论坛 (78)

原创 Delphi Edit右键系统菜单加自定义菜单项

闲言少叙,详见代码!

2014-10-18 21:23:05 1846

原创 [delphi] 让AllocateHwnd接受一般函数地址作参数

Classes单元的AllocateHWnd函数是需要传入一个处理消息的类的方法的作为参数的,原型: Delphi(Pascal) code function AllocateHWnd(Method: TWndMethod): HWND; 很多时候,我们想要创建一个窗口,而又不想因为这个参数而创建一个类,怎么办? 换句话说,就是能不能使传入的参数是个普通的函数而不是类的方法呢

2012-04-05 22:19:48 1680 1

原创 delphi 动态控制窗口置顶且界面不闪

procedure TForm1.CheckBox1Click(Sender: TObject);begin if CheckBox1.Checked then SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE) else SetWindowPos(Handle, HW

2009-11-17 11:45:00 1569 1

原创 代码最简短的 delphi 程序

建立 Console Application,修改代码为:end. Windows XP SP2 + Delphi7 测试通过。以后有时间分析一下:) ——ps: 其实这程序没有任何功能,没有任何实际用处,只是好奇玩一下:)

2009-11-13 00:11:00 758 1

原创 VB Split 函数在 Delphi 中的不完全实现

procedure TForm1.Button1Click(Sender: TObject); type//函数返回值不能是array of ...,必须自定义类型,含义还是一样,返回字符串数组 Tas = array of string; //expression:源字符串,delimiter:分隔字符串(默认为空格);可以是 AnsiString 或 Wide

2009-10-28 14:06:00 1486

delphi 一个单元多个窗体

把多个窗体所对应的unit里面的代码弄到一个unit里,然后注意$R指令,后面不能是星号,必须指定具体dfm的名称。

2014-10-25

Delphi Edit右键系统菜单加自定义菜单项

Delphi Edit右键系统菜单加自定义菜单项,注意是添加,不是用新菜单替换系统菜单!

2014-10-18

MiTeC System Information Component Suite 11.2.0 For D7 试用版破解

这是获取硬件信息的 Delphi 第三方控件包,非常强大。 官方在2013年7月24日更新的版本,试用版在软件运行时会弹出控件版权信息框。破解MSI_Common.dcu后,无信息框弹出! 控件详细说明: Product: MiTeC System Information Component Suite Version: 11.2.0 Author: Michal Mutl E-Mail: michal.mutl@mitec.cz Target: Delphi 5.x, Delphi 6.x, Delphi 7.x, Delphi 2005, Delphi 2006, Delphi 2007, Delphi 2009, Delphi 2010, Delphi XE, Delphi XE2, Delphi XE3, Delphi XE4 Platform: W95, W98, NT, W2000, Windows ME, Windows XP, Windows 2003, Windows Vista, Windows 7, Windows Server 2008, Windows Server 2008 R2, Windows 8 Status: Update Source: N/A Description: The most complex system probe in the Delphi world. It consists of many standalone components covering many system information problematics: + TMiTeC_SystemInfo: gathers all following components to one for simple use + TMiTeC_APM: provides informaton about Advanced Power Management + TMiTeC_BT: detects Bluetooth devices using Native Bluetooth Enumerator) + TMiTeC_CPU: provides detailed CPU information + TMiTeC_Devices: provides devices information like Windows Device Manager + TMiTeC_Disk: provides logical drive information + TMiTeC_Display: provides display adapter information + TMiTeC_DMA: provides direct memory acceess + TMiTeC_Engines: provides information about various installed engines + TMiTeC_Machine: provides informaton about computer or virtual machine, BIOS etc. + TMiTeC_Media: provides media devices information + TMiTeC_Memory: provides memory information + TMiTeC_Monitor: provides all connected moitors information + TMiTeC_Network: provides network card info, TCP/IP ad Winsock config, installed protocols, clients and services. + TMiTeC_OperatingSystem: provides OS detailed information, Locale, Timezone, NT specific info, hotfixes, internet settings etc. + TMiTeC_Printers: detects installed printers and their properties + TMiTeC_ProcessList: collects list of running processes, services, drivers and windows and their properties + TMiTeC_SMBIOS: reads SMBIOS information from memory + TMiTeC_Software: provides list of installed software + TMiTeC_Startup: provides list of applications that are started during system startup + TMiTeC_Storage: detects S-ATA, ATA, ATAPI, RAID, SCSI, USB, Firewire storage devices and their parameters + TMiTeC_USB: detects USB ports and devices and their parameters + TMiTeC_DeviceMonitor: It fires event whenever any usb, firewire etc. device or volume is connected or disconnected to machine. + TMiTeC_MSProduct: It detects some Microsoft products installed and their product keys + TMiTeC_DriveContent: It scans and saves specified drive content + TMiTeC_DiskMonitor: It watches specified drive or path and fires event when specified event occurs + TMiTeC_AD: Active Directory enumerations + TMiTeC_EventLog: Windows Eventlog enumeration Every component has Load/Save data capability to highly customizable format. Component functionality is shown in all-explaining demos: + Main Demo - complex demo featuring system information overview + Resource Meter - displays User, GDI and System resources + Installed Software - detects installed software and Microsoft serial numbers + USB Devices - demonstrates USB ports and devices enumeration + Disk View - demonstrates storage devices enumeration + Process Viewer - demonstrates running processes enumeration + WMI - complex demo featuring system information overview obtained via WMI + Device Monitor - complex demo featuring TMiTeC_DeviceMonitor component + Bluetooth devices - complex demo featuring TMiTeC_BT component + Directory Monitor - complex demo featuring directory changes watch dog + APM - demonstrates machine power and cpu power settings and status + EventLog Viewer - complex demo presenting TMiTeC_EventLog features + Device Browser - DeviceManager-like demo + CPU Test - TMiTeC_CPU testing demo Very usable applications with professional look and value are available too: + MSI: all-features-presenting application with professional design and look for system information and evaluation + WMI Explorer: WMI object explorer with WQL query tool + ROM BIOS Explorer: tool for BIOS/SMBIOS/DMI browsing and disassembling + GetSys: console application providing system information + Process Viewer: tool for running processes exploring. Under NT allows explore also services and drivers. + AD Explorer: Active Directory explorer

2013-08-07

CSDN论坛渐变彩色字体工具

在CSDN论坛上回帖时,可以使用本工具方便的产生渐变彩色字体!

2013-01-13

Delphi2007 实现更改子菜单的弹出位置

原理: 安装钩子,当判断是子菜单的窗口出现时,对其进行子类化,处理WM_WINDOWPOSCHANGING消息来改变子菜单的弹出位置。

2012-08-02

Delphi 菜单的Hint (Delphi 2007)

TMenuItem没有ShowHint属性,其Hint的显示比较特别。针对TPopupMenu和TMainMenu需采取不同的方法。本Demo主要展示了TPopupMenu菜单的Hint显示。

2012-07-27

Delphi 2007实现高亮显示TWebBrowser中鼠标指向的HTML元素

原理: 取鼠标下的HTML元素IHTMLElement,然后把焦点框(一个特殊的窗体)显示到元素所在的位置。未使用js。

2012-06-14

Delphi多个DLL共享全局数据Demo

Delphi多个DLL共享全局数据Demo

2012-03-20

面向对象开发实践之路(Delphi版).part2.rar

光盘源码: http://download.csdn.net/source/140926

2009-11-30

面向对象开发实践之路(Delphi版).part1.rar

光盘源码: http://download.csdn.net/source/140926 _ 想不到是总共只能传15MB,我还以为是单个文件的限制呢(压成了4个包),看来剩下的暂时传不了了。 要这本电子书的来以下网址下载(用真实邮箱注册一个号即可)。 http://www.51leifeng.net/thread-10329-1-9.html

2009-11-30

Windows脚本技术

微软出的脚本手册,里面介绍了基本的JavaScript和Vbscript知识。

2008-11-12

为什么一些软件是控制台程序

发表于 2018-02-07 最后回复 2018-04-13

Delphi XE register 调用约定的参数执行顺序

发表于 2017-10-31 最后回复 2017-10-31

Delphi编程技巧总汇--------[持续更新]

发表于 2014-02-06 最后回复 2016-09-12

正则表达式中的正向预查?

发表于 2009-01-17 最后回复 2015-03-08

北京哪儿有数据结构与算法培训班

发表于 2012-02-24 最后回复 2014-09-30

如何获得其它进程点击按钮弹出菜单的句柄

发表于 2010-02-19 最后回复 2014-07-06

[分享]CSDN论坛渐变彩色字体工具

发表于 2013-01-15 最后回复 2014-03-30

【分享】获取硬件信息的强大控件 MSICS 11.2.0 For D7 试用版破解

发表于 2013-08-07 最后回复 2013-08-13

我做了一个软件,不知道会不会有人用

发表于 2013-04-28 最后回复 2013-05-03

[分享]CSDN论坛渐变彩色字体工具

发表于 2013-01-13 最后回复 2013-01-19

[考题]关于var

发表于 2012-12-04 最后回复 2012-12-14

2003 ping不通xp

发表于 2009-06-05 最后回复 2012-11-23

获取外部程序窗口左上角图标

发表于 2012-10-31 最后回复 2012-11-14

[原创]DIY自己的AllocateHWnd函数

发表于 2012-03-31 最后回复 2012-08-29

[考题]关于局部变量

发表于 2012-08-10 最后回复 2012-08-25

[考题]关于SetLength

发表于 2012-08-13 最后回复 2012-08-15

dll中设置TLabel字体大小,退出程序时出错

发表于 2012-07-20 最后回复 2012-07-26

类的只读属性形同虚设?

发表于 2012-07-18 最后回复 2012-07-19

[集思广益]计算Edit1的文本长度

发表于 2012-07-04 最后回复 2012-07-13

[考题]BASM不用call调用函数

发表于 2012-07-04 最后回复 2012-07-06

2012年6月Delphi大论坛月专家榜本人排名第三,为何没有蓝色的花花

发表于 2012-07-01 最后回复 2012-07-02

那些年我们一起回的帖子——牢骚帖(持续更新)

发表于 2012-06-07 最后回复 2012-06-18

创建线程越多,线程中的TIdHttp的Get或Post返回就越慢

发表于 2012-06-04 最后回复 2012-06-05

在线程中创建窗体卡死的问题

发表于 2012-04-23 最后回复 2012-04-25

如何让外部程序的窗口可以关闭但不能销毁

发表于 2012-04-08 最后回复 2012-04-15

basm 操作属性

发表于 2012-02-14 最后回复 2012-02-23

请问实现视频格式转换要学习什么技术好

发表于 2010-11-05 最后回复 2012-01-09

关于VMT地址

发表于 2011-12-31 最后回复 2012-01-07

QQ长时间不登陆再登录时需要输入密码是出于什么考虑

发表于 2011-12-06 最后回复 2011-12-07

TEdit的Ctl3D属性

发表于 2011-10-13 最后回复 2011-10-14

[散分]3D字体终于搞出来了!!!

发表于 2011-09-10 最后回复 2011-09-27

请问Delphi里的打头的T、F、A都是什么英文单词的缩写,表示什么意思?

发表于 2008-12-17 最后回复 2011-09-11

中断10h的1130h功能

发表于 2011-08-28 最后回复 2011-09-07

3d箱子(公式是怎么得到的)

发表于 2011-08-14 最后回复 2011-08-26

交换两个数的值

发表于 2011-06-25 最后回复 2011-06-26

收到面试辞谢函...

发表于 2011-03-11 最后回复 2011-03-13

TPerlRegEx 逆序环视与顺序环视的 bug ?

发表于 2010-12-11 最后回复 2011-01-09

我的美女老板

发表于 2010-10-09 最后回复 2010-10-13

感谢您来参加面试

发表于 2010-03-31 最后回复 2010-04-02

被忽悠做实施

发表于 2010-04-01 最后回复 2010-04-01

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