csunit.~pas

DEILPHI写的QQ安全软件源码!功能全套,该有的全有了,欢迎交流

unit CSUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls,LogHook;

type
  TForm1 = class(TForm)
    Button1: TButton;
 //   Timer1: TTimer;
    Button2: TButton;
    Label1: TLabel;
    Timer2: TTimer;
    Label2: TLabel;
    ListBox1: TListBox;
    Edit1: TEdit;
    Label3: TLabel;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
//    procedure Timer1Timer(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button3Click(Sender: TObject);
     
  private
    { Private declarations }
  public
    { Public declarations }
     function  EnumerateChildWindows(hWnd:HWND; lParam:LPARAM):   BOOL;   stdcall;
  end;

var
  Form1: TForm1;

implementation
 uses  GPKernel,Timer,ScanWin,ComUnit,Thread,EditWin;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  CS,Handle:HWND;
  p:TPoint;
  begin

 //  GetCursorPos(p);     //获取屏幕的坐标
  // Handle := WindowFromPoint(P);//返回当前位置的句柄
 //  CS:=ChildWindowFromPoint(Handle,p); //当前点的句柄
 //  Label2.Caption := Format('MouseClick: X=%d, Y=%d', [P.X, P.Y]);
 //  Windows.ScreenToClient(Handle,p);     //转成窗口的坐标，h是窗口句柄

 end;


function  TForm1.EnumerateChildWindows(hWnd: HWND; lParam: LPARAM):   BOOL;
var
  ZClassName1:string;
  ZClassName:   Array[0..255]   of   char;

   begin
    GetClassName(hWnd,ZClassName,255);
        Result:=TRUE;
 // Form1.ListBox1.Items.Add(ZClassName);
    ZClassName1:='ATL:Edit';
    if ZClassName=ZClassName1 then
   begin

 end;
 END;

procedure TForm1.Button2Click(Sender: TObject);
begin
 TimerOn;
//YshiZM;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
//ScanWind;
   end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 CreateEdit;
end;

end.