Delphi调用WMI读取USB设备的PID和VID

2016年07月27日 51 阅读

Delphi调用WMI读取USB设备的PID和VID2012-01-15WMI（Windows®Management Instrumentation ） 非常强大，它可以以数据库的形式查询你的电脑的软件和硬件，在它的数据库里面，时刻保存着最新的软件信息和硬件信息，因此你可以用WMI来检测CUP 主频、温度，读取WINDOWS的进程.........本文就介绍如何使用WMI读取USB设备的PID和VID码1. Windows, Messages, S...

delphi读取磁盘信息

2016年07月27日 57 阅读

delphi读取磁盘信息2012-01-151．读硬盘序列号function GetDiskSerial（DiskChar: Char）: string;varSerialNum : pdword;a, b : dword;Buffer : array [0..255] of char;beginresult := "";if GetVolumeInformation（PChar（diskchar+":"）, Buf...

Delphi中用ADO求表达式的值的另类方法

2016年07月27日 48 阅读

Delphi中用ADO求表达式的值的另类方法2012-01-15 博客园 涂磊Delphi里求表达式的值的另类方法（用ADO）[1]用一个ADOConnectioin1（已经连上一个数据库）和一个ADOQuery1[2]With ADOQuery1 do close; SQl.clear; SQL.ADD（"Select 123+34*11"）;//只能进行整数运算 Open; Showmessage（IntToStr（Fields[0].AsIntege...

Delphi利用数据库实现文件打包

2016年07月27日 58 阅读

Delphi利用数据库实现文件打包2012-01-15 csdn博客 张国威Delphi利用数据库实现文件打包的基本思路分析：【1】在Delphi中，把文件读取为文件流，再以流的形式保存在数据库的OLE 对象的字段中；【2】当要释放文件包时，可以直接读取数据库的OLE 对象字段，另保存为文件。以下为具体代码的实现过程：【1】打开Delphi，去到“File”＝》“New”＝》Application，新建一个应...

DELPHI保护级类成员的应用

2016年07月27日 51 阅读

DELPHI保护级类成员的应用2012-01-15type TStringGridEx = class（TStringGrid）;procedure TForm1.Button1Click（Sender: TObject）;begin if TStringGridEx（StringGrid1）.RowCount > 5 then TStringGridEx（StringGrid1）.DeleteRow（5）;end;这是要在StringGrid中删...

Delphi的命令行参数

2016年07月27日 54 阅读

Delphi的命令行参数2012-01-15说明通过下面的介绍，你将清楚的了解怎样从命今建入Delphi的IDE环境，并了解其详细的参数Delphi的命今行参数对大小不敏感，对于参数 -d /d -D /D在Delphi中取着同样的作用Delphi的执行程序名为Delphi32.exe，以下你可能通过它来使用所有的参数比如：Delphi32.exe /ns /hm（起动一个没有splash窗口，并监控内存的例子）Delphi32.exe –sd...

Delphi支持Vista的UAC机制

2016年07月27日 55 阅读

Delphi支持Vista的UAC机制2012-01-15 博客园 生的伟大活得憋屈Vista提供的UAC机制，是Vista的新增功能之一。它的主要目的是防止对于操作系统本身的恶意修改。如果想对于Vista的系统设置进行改动，必须通过UAC的验证才能够进行。通过这样的手段，大大提供了系统的安全性。关于UAC的利弊，网络上的说法褒贬不一，在这里就不具体讨论了。对于Delphi程序的影响，UAC主要在于以下几点：1、由于UAC机制，Delphi对于系统的操作可...

Delphi中在DLL中封装的VCL窗体Tab键响应的问题

2016年07月27日 48 阅读

Delphi中在DLL中封装的VCL窗体Tab键响应的问题2012-01-15 博客园 Lenic在DLL中的子窗体不会响应Tab按键的，这个时候就需要手动去指定Tab键的操作，但是前提是主窗体要向这个窗体发送一个消息，一个Tab键按下的消息。基本顺序是这样的：1. 主窗体用Hook技术捕获Tab按键并向活动子窗体发送一个Tab键按下的消息2. 子窗体手动定义一个Tab键被按下的处理（需要用到FormKeyDown事件）。3. 移动到下一个焦点的WinAP...

Delphi中在DLL动态链接库中封装VCL的MDI子窗体

2016年07月27日 55 阅读

Delphi中在DLL动态链接库中封装VCL的MDI子窗体2012-01-15 博客园 Lenic不多说了，看代码就应该明白了，曾经我遇到的问题，现在放出来大家共享！这里是工程文件的部分：在DLL中封装MDI子窗体需要重写DLL入口函数，具体代码如下：1var2 DllApp: TApplication;//定义保存原DLL的TApplication对象3 DllScr: TScreen;//定义保存原DLL的TScreen对象45procedure ...

在DELPHI7中不使用任何第三方控件,实现放在工具栏上可拖动的XP风格

2016年07月27日 51 阅读

在DELPHI7中不使用任何第三方控件,实现放在工具栏上可拖动的XP风格2012-01-15今天有点空闲时间,顺便写点东西,不是什么深奥的东西,但实用,对于不想第三方控件但又想加点效果的朋友可能有点用.实现的效果如图:步骤一:把Win32面板上把CoolBar组件加到窗体上步骤二:把Additional面板上的ActionMainMenuBar组件加到CoolBar组件上.（注意一定要放在CooBar 组件上）步骤三:把Win32面板上的PageScrol...

Delphi的时间与字符串函数代码示例

2016年07月27日 50 阅读

Delphi的时间与字符串函数代码示例2012-01-15 博客园 万一SysUtils.StrToDate（）;SysUtils.StrToDateDef（）;SysUtils.TryStrToDate（）;SysUtils.StrToTime（）;SysUtils.StrToTimeDef（）;SysUtils.TryStrToTime（）;SysUtils.StrToDateTime（）;SysUtils.StrToDateTimeDef（）;Sys...

现有Delphi项目迁移到Tiburon中的注意事项

2016年07月27日 50 阅读

现有Delphi项目迁移到Tiburon中的注意事项2012-01-15 峪飞鹰 随着 Embarcadero 8 月 25 号发布 RAD Studio 2009 （Tiburon） 以来（Tiburon 的 RTM 日期可能要延后到 9 - 10 月），随着 Tiburon 全面支持 Unicode，现有的 Delphi / C++ Builder 项目要迁移到 Unicode 下应该注意些什么也成为大家最为关心的问题。Tiburon 对 Unicod...

Delphi中一个极快的正整数排序函数的实现

2016年07月27日 50 阅读

Delphi中一个极快的正整数排序函数的实现2012-01-15 博客园 万一实现原理: 对比二进制位.unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class（TForm） Button1: TButton; Memo1: TMemo;...

用Delphi实现文件下载的几种方法

2016年07月27日 51 阅读

用Delphi实现文件下载的几种方法2012-01-15笔者最近开发的系统中需要写一个下载文件的功能。以前用BCB调用API写的很烦琐，忽然想起有一个API就可以搞定了，于是一大早就来搜索。这个API就是UrlDownloadToFile。不仅如此，Delphi的一些控件也可以轻松实现下载，如NMHTTP，指定NMHTTP1.InputFileMode := ture; 指定Body为本地文件名，指定Get就可以下载了。下面是详细代码，均出自CSDN。我把...

Delphi中DBEdit组件使用方法

2016年07月27日 50 阅读

Delphi中DBEdit组件使用方法2012-01-15Delphi的DBEdit组件位于组件板的Data Controls页上，用于编辑数据表当前记录某字段的值。DBEdit组件的主要属性与方法如下：1、主要属性（1）DataSource用于选择数据源，使DBEdit组件通过数据源与数据表连接。当DBEdit通过数据源与数据表连接后，显示数据表的哪一个字段，则是由DataField字段决定的。（2）DataField用于选择数据字段，如果DataFie...

Delphi中的Wrapper设计模式

2016年07月27日 46 阅读

Delphi中的Wrapper设计模式2012-01-15Wrapper设计模式能够把一个类的接口修改成另一个类所需要的接口，然后让本来因为接口不兼容的类能够在一起配合工作。在 Delphi中，为了让两个类能够支持同样的接口，它们必须有同样的祖先类这样才能在其他类调用的时候实现多态性。但是有的时候我们希望两个没有关系的类 能够在一起工作，Wrapper设计模式就能够让一个类wrap部分另一个类的部分接口（当然也可以是全部，看具体的需要而定），从而能够模拟出...

实现Lucas-Kanade光流计算的Delphi类

2016年07月27日 51 阅读

实现Lucas-Kanade光流计算的Delphi类2012-01-15 刘留 Geo.Cra[at]gmail[dot]com}unit OpticalFlowLK;interfaceuses Math, Windows, SysUtils, Variants, Classes, Graphics, unitypes, ColorConv;type TOpticalFlowLK = class private ImageOld, ImageNew: T...

Delphi中如何在一个窗体中嵌入另一个窗体

2016年07月27日 48 阅读

Delphi中如何在一个窗体中嵌入另一个窗体2012-01-15 博客园 yu505Form1uses unit2;procedure TForm1.FormCreate（Sender: TObject）;begin form2 := TForm2.Create（Panel,self）; form2.BorderStyle := bsNone; form2.WindowState := wsMaximized; form2.Parent :...

Delphi中的容器类

2016年07月27日 49 阅读

Delphi中的容器类2012-01-15 陈省 从Delphi 5开始VCL中增加了一个新的Contnrs单元，单元中定义了８个新的类，全部都是基于标准的TList 类。TList 类TList 类实际上就是一个可以存储指针的容器类，提供了一系列的方法和属性来添加，删除，重排，定位，存取和排序容器中的类，它是基于数组的机制来实现的容器，比较类似于C++中的Vector和Java中的ArrayList，TList 经常用来保存一组对象列表，基于数组实现的机...

Delphi中对象解除技巧

2016年07月27日 54 阅读

Delphi中对象解除技巧2012-01-15在Delphi程序设计中，我们需要通过解除建立的所有对象来避免内存泄漏。但是，如果你在程序中不谨慎小心的话，很容易多次解除同一个对象，这将会引起很严重的错误，造成应用程序崩溃，甚至是死机。请看下面的程序：procedure TForm1.Button1Click（Sender:TObject）;var Button2,Button3:TButton;begin Button2:=TButton.Create（...