DELPHI全屏截图、区域截屏程序，同时还包括绘图工具、按比例缩放、图像剪裁、图像旋转、自定义形状抓图（圆形、椭圆形、正方形等），还有多种画笔工具，整个截屏软件在界面上的设计也是很棒，下边是TAB式窗口，功能相当丰富。
作者寄语：这是我大二下学期的暑假做的,虽然还是只学了一学期DELPHI,但我还是自己学了一学期.所以做得还可以,看得过去,我是模仿一个外国软件HprSnap6.exe,因为对我很有用所以我也学做了一下,也开始有面向对象的方法,定义一些接口(单元,类),代码也规范了.但还没做完,就没做了，用时:20天。主要功能:全屏截图,区域截图,简单的修改图片,
扩展:
(1)远程截图.(先有客户端截图,图片-->数据流-->图片
(2)远程控制.(这是我看到QQ控制,我觉得,她并不是真正的远程控件,而是虚拟的.因为我发现并不能在远程里打字,所以我的分析:(1)实时的 客户端截图,图片-->数据流-->图片(2)在服务台里,虚拟一个远程桌面(3)实时的转送服务台里的坐标,和单击事件,并发送给客户端(4)客户端实时的监控服务器发过来的信息,然后在用客户端进行具体操作. 这是我的分析方法不知道对不对,但我想应该是对的。
2021-10-15 15:09:10
2.03MB
1
Delphi根据WebBrowser实现网页功能，一个简单的网页浏览器，仿IE浏览器界面，功能当然没有IE多了，只是实现了输入网址URL，打开网页的功能，另外还有基本的刷新网页、后退、前进功能，适合Delphi初学者研究学习WebBrowser组件的使用，方便你在程序中内嵌网页浏览功能。
2021-10-13 20:02:13
8KB
1
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