流氓窗口隐藏器0.02

hyp

旧版本在这里:http://www.chengyi.org/bbs/thread-70391-1-2.html\
7 u" l* V1 B) {9 x7 c
加入了自动获取窗口标题功能
和尝试销毁该窗口功能
呃,其他的貌似没有了,要断网了,明天再来贴源码
流氓窗口隐藏器.rar

hyp

procedure TForm1.TrackBar1Change(Sender: TObject);
- o" T7 J7 e1 R% J+ dvar
  h: HWND;
; B7 ~; X: v$ a& }) O5 {! R- `  FormStyle: Integer;
begin
  h := FindWindow(nil, pchar(Edit1.Text));
) m* U) m2 y$ j  v  if (h<>0) then
/ N9 H9 y2 M0 O" w; |/ S  begin
0 Y7 B& a8 g- i  Label3.Caption:='透明度(0-255):'+ IntToStr(trackbar1.position);
  FormStyle := GetWindowLong(h, GWL_EXSTYLE);
  SetWindowLong(h, GWL_EXSTYLE, FormStyle or WS_EX_LAYERED);
  SetLayeredWindowAttributes(h, 0,trackbar1.Position, LWA_ALPHA);
  end
) o8 v& n9 d( u  J! _: u' E  else
  Label3.Caption:='找不到指定的'+edit1.Text +'窗口!';
! o4 [  }+ g' Z- cend;
! F5 O: S, i+ ~$ Vprocedure TForm1.Button1Click(Sender: TObject);
var
6 S1 A0 |0 j& P- M  H  h: HWND;
1 |( p5 P/ N, e' F5 g0 Ebegin
  h := FindWindow(nil, pchar(Edit1.Text));
$ P# C9 |; \% `& `) R  if (h<>0) then
  if(Edit1.Text<>'HI检测结果')then
( O3 P3 Z) {9 W- R* b, y  postmessage(h,WM_DESTROY,0,0)
- I( i# s9 y$ ^5 R: C. x  else
  postmessage(h,wm_keydown,27,65537)
: x; b* s. f% p8 w+ o# v  else
2 c, }6 p, n4 L8 w+ p% I4 ^) [  Label3.Caption:='找不到指定的'+edit1.Text +'窗口!';
end;
procedure TForm1.FormCreate(Sender: TObject);
* b' n) E! a9 N" G' q! wbegin
! l0 d* j( k- D  K$ |9 ?0 q3 Asetwindowpos(form1.Handle,HWND_TOPMOST,form1.Left,form1.Top,form1.Width,form1.Height,0);
end;
( L1 M  j% i! a2 ?procedure TForm1.Timer1Timer(Sender: TObject);
; @, T% z7 m4 E! R# S* t4 Ivar
  arr: array[0..254] of Char;
  h:HWND;
  c" k* ]# R! U: y3 T+ x: g9 |; Qbegin
  h:=getforegroundwindow;
/ l1 S7 v& p  P, X( e  GetWindowText(h, @arr, SizeOf(arr));
  if(arr<>'流氓窗口隐藏器')then
0 N# U& J1 j7 S$ o  Edit1.Text:=arr;
end;
:loveliness:
; U  Y5 n" i, D' @+ S$ X, j
$ H' P% f- q. ~. N9 i8 [[ 本帖最后由 hyp 于 2008-5-10 08:16 编辑 ]

blueghost

了不起，开源就更了不起了
: T: B7 O  }( `顺便一说，流氓HI只要ESC就可以退出了....................

hyp

postmessage(h,wm_keydown,27,65537);       这句就是所谓的按ESC
呃,知道啊