Delphi 获取硬盘序列号(支持SSD和SCSI硬盘) ，支持Windows7系统，只是获取硬盘的序列号，不包括其它的硬盘属性信息，运行效果如截图所示。
本源码无使用第三方控件，在Delphi7.0环境下可直接编译源码，运行程序后，单击窗口中的“Get HardDisk ID”按钮，即可获取到硬盘序列号。
2021-10-05 23:35:40
11KB
1
Delphi7.0 向XML中添加RTTI信息，这个例子挺简单，希望大家喜欢，面向Delphi新手的，高手请绕道哦，下面是本例Delphi向XML中添加RTTI信息的关键性代码：
procedure TForm1.ComponentToDOM(iNode: IXmlNode; Comp: TPersistent);
var
nProps, i: Integer;
PropList: PPropList;
Value: Variant;
newNode: IXmlNode;
begin
nProps := GetTypeData (Comp.ClassInfo)^.PropCount;
GetMem (PropList, nProps * SizeOf(Pointer));
try
GetPropInfos (Comp.ClassInfo, PropList);
for i := 0 to nProps - 1 do
begin
Value := GetPropValue (Comp, PropList [i].Name);
NewNode := iNode.AddChild(PropList [i].Name);
NewNode.Text := Value;
if (PropList [i].PropType^.Kind = tkClass) and (Value 0) then
if TObject (Integer(Value)) is TComponent then
NewNode.Text := TComponent (Integer(Value)).Name
else
ComponentToDOM (newNode, TObject (Integer(Value)) as TPersistent);
end;
finally
FreeMem (PropList);
end;
end;
2021-10-05 07:50:02
8KB
1
Delphi HOOK例子，一个键盘钩子程序，演示如何安装HOOK,如何卸载Hook，以及如何通过HOOK来获取键盘按键记录，每一步操作都被HOOK记录，并显示提示信息。
2021-09-28 22:26:41
14KB
1