流氓窗口隐藏器0.02

hyp

旧版本在这里:http://www.chengyi.org/bbs/thread-70391-1-2.html\

/ h6 s7 r3 d6 e加入了自动获取窗口标题功能
和尝试销毁该窗口功能
呃,其他的貌似没有了,要断网了,明天再来贴源码
流氓窗口隐藏器.rar

hyp

procedure TForm1.TrackBar1Change(Sender: TObject);
! s% J2 P. s1 wvar
  h: HWND;
  FormStyle: Integer;
9 w2 }$ l4 m+ d# _4 Pbegin
5 O2 u( l# u& }  L4 L9 t  h := FindWindow(nil, pchar(Edit1.Text));
  if (h<>0) then
0 w; Q" i7 w+ |* y  begin
  Label3.Caption:='透明度(0-255):'+ IntToStr(trackbar1.position);
% j9 Y* M6 M! T3 w+ K$ s  FormStyle := GetWindowLong(h, GWL_EXSTYLE);
4 E- d8 a% F* a  SetWindowLong(h, GWL_EXSTYLE, FormStyle or WS_EX_LAYERED);
  SetLayeredWindowAttributes(h, 0,trackbar1.Position, LWA_ALPHA);
$ Y) c) c' v& }+ N  end
  else
  Label3.Caption:='找不到指定的'+edit1.Text +'窗口!';
end;
procedure TForm1.Button1Click(Sender: TObject);
var
# n8 v* g% X2 o% ~5 P( v" o  h: HWND;
begin
/ b* W1 i; {- N# [& p# P9 Q  h := FindWindow(nil, pchar(Edit1.Text));
9 g0 ]4 d) V& I, A  if (h<>0) then
  if(Edit1.Text<>'HI检测结果')then
  postmessage(h,WM_DESTROY,0,0)
  else
  postmessage(h,wm_keydown,27,65537)
' b$ o& G9 k! X" j. g  else
  Label3.Caption:='找不到指定的'+edit1.Text +'窗口!';
3 R+ |2 q/ q% L$ }end;
% q+ a4 r9 x+ p5 rprocedure TForm1.FormCreate(Sender: TObject);
begin
setwindowpos(form1.Handle,HWND_TOPMOST,form1.Left,form1.Top,form1.Width,form1.Height,0);
end;
) J- X; H$ u  @! b, c) _2 O% Zprocedure TForm1.Timer1Timer(Sender: TObject);
3 I1 U- o4 U  s4 pvar
3 z' p& D1 e' g6 X! n  arr: array[0..254] of Char;
  h:HWND;
begin
  U2 D0 [# E# u5 i$ J2 I  h:=getforegroundwindow;
. F0 s) Q# }  m% F7 p* \  H  GetWindowText(h, @arr, SizeOf(arr));
# D' Q1 {3 w( G0 j0 O) r8 h" R  if(arr<>'流氓窗口隐藏器')then
  Edit1.Text:=arr;
7 b! G$ l9 x/ _1 K/ jend;
:loveliness:
5 h! x  D, ^. E6 l/ c* P; \
- p  Z; |8 |. k) Y[ 本帖最后由 hyp 于 2008-5-10 08:16 编辑 ]

blueghost

了不起，开源就更了不起了
顺便一说，流氓HI只要ESC就可以退出了....................

hyp

postmessage(h,wm_keydown,27,65537);       这句就是所谓的按ESC
# Z4 K& m0 D  C$ V呃,知道啊