vxin的专栏

//自定义函数GetFormNameAt，获得鼠标针指下窗体的Namefunction GetFormNameAt ( X, Y : integer ) : string;var   P:TPoint;   W:TWinControl;begin   P.X := X;   P.Y := Y;   W := FindVCLWindow(P); //得到鼠标指针下的V

unit Crc32;interface                                                            ---转截ksaiy的Bloguses  Windows,SysUtils,Classes;const  //Crc32表  Table:Array[0..255] of DWORD=  ( $00000000,  $77073

unit UnitIP;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,  IdHTTP, XPMan, StdCtrls

unit Unit_Mouse;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, Menus; {=======================================================  DES

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, ExtCtrls, StdCtrls, ComCtrls;  {=====================================================  DE

unit Unit1; interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls,shellapi, Menus, AppEvnts,Registry;constmousemsg = wm_user + 1; //自定义消息，用于处理用户在图标上点

{**************************************************************  CrackMe #01  code by 黑夜彩虹 & vxin with almost pure delphi  个人网站：http://soft.eastrise.net