流氓窗口隐藏器0.02

hyp

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

加入了自动获取窗口标题功能
0 _" l" K& _2 {& X# m# F和尝试销毁该窗口功能
呃,其他的貌似没有了,要断网了,明天再来贴源码
流氓窗口隐藏器.rar

hyp

procedure TForm1.TrackBar1Change(Sender: TObject);
# f8 G6 [+ x5 o! _" z' E6 bvar
# M$ `3 }8 N0 z0 [' |' ~  h: HWND;
  FormStyle: Integer;
3 G: B# w# n; f( e. C' bbegin
! u0 {# b. U+ E; L" h, Y1 q2 T  h := FindWindow(nil, pchar(Edit1.Text));
  if (h<>0) then
  begin
- D. `' G+ p% P" `6 B1 p3 ~; _  Label3.Caption:='透明度(0-255):'+ IntToStr(trackbar1.position);
6 A4 G% J7 N- R. {0 L  FormStyle := GetWindowLong(h, GWL_EXSTYLE);
: C, p9 z- D* S/ H) o7 o/ Q# N  SetWindowLong(h, GWL_EXSTYLE, FormStyle or WS_EX_LAYERED);
  SetLayeredWindowAttributes(h, 0,trackbar1.Position, LWA_ALPHA);
- C" K1 y6 ~9 x% H) Y* ^0 w8 Q  end
8 C6 M9 m* ?8 v4 G  else
5 M5 \% L2 i9 V0 K. m, i" [  Label3.Caption:='找不到指定的'+edit1.Text +'窗口!';
end;
procedure TForm1.Button1Click(Sender: TObject);
  h) k1 f6 s8 l) b/ Gvar
  h: HWND;
2 |. O2 q# h/ L7 t' }5 t5 d, bbegin
  h := FindWindow(nil, pchar(Edit1.Text));
$ J( T5 m7 D/ k2 t, @3 G2 X  if (h<>0) then
  if(Edit1.Text<>'HI检测结果')then
2 ^4 H# a4 C# N$ A. X/ ^7 {3 y  postmessage(h,WM_DESTROY,0,0)
  else
" t% p( t2 W5 y! p' |8 S- d% b  postmessage(h,wm_keydown,27,65537)
  else
2 j7 o) b" g; {9 z0 K2 D  Label3.Caption:='找不到指定的'+edit1.Text +'窗口!';
/ F5 A- s: n" q, i1 dend;
procedure TForm1.FormCreate(Sender: TObject);
begin
6 l! x8 t+ T0 j% ~& esetwindowpos(form1.Handle,HWND_TOPMOST,form1.Left,form1.Top,form1.Width,form1.Height,0);
end;
. \$ Z; _- ]5 gprocedure TForm1.Timer1Timer(Sender: TObject);
( f% y0 h2 e0 m9 V" evar
+ P) [5 V- N$ t( p3 t  arr: array[0..254] of Char;
( X& m% u& H' l4 K  h:HWND;
begin
  h:=getforegroundwindow;
  GetWindowText(h, @arr, SizeOf(arr));
  if(arr<>'流氓窗口隐藏器')then
  q' @, q9 g2 @  Edit1.Text:=arr;
end;
:loveliness:
. m1 L& h* x5 Q. I2 r1 @9 ?
0 T. B; F: o/ T. O. Y[ 本帖最后由 hyp 于 2008-5-10 08:16 编辑 ]

blueghost

了不起，开源就更了不起了
% v, s# F/ f! |$ C顺便一说，流氓HI只要ESC就可以退出了....................

hyp

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