流氓窗口隐藏器0.02

hyp

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

加入了自动获取窗口标题功能
) R/ s1 O. S, r; g7 L% X# j  v和尝试销毁该窗口功能
呃,其他的貌似没有了,要断网了,明天再来贴源码
3 s% ~- n9 O' z& \流氓窗口隐藏器.rar

hyp

procedure TForm1.TrackBar1Change(Sender: TObject);
var
  h: HWND;
  FormStyle: Integer;
begin
6 M6 b) J- f) ?/ ^$ @  h := FindWindow(nil, pchar(Edit1.Text));
  if (h<>0) then
  begin
9 h, q! X* S. i- ?1 w& B5 U8 i  Label3.Caption:='透明度(0-255):'+ IntToStr(trackbar1.position);
  FormStyle := GetWindowLong(h, GWL_EXSTYLE);
  SetWindowLong(h, GWL_EXSTYLE, FormStyle or WS_EX_LAYERED);
! @# e, |! ~. f- e: o' {- o  SetLayeredWindowAttributes(h, 0,trackbar1.Position, LWA_ALPHA);
  end
' D" ^. W& u% G2 R  I3 O/ C  else
1 X  }' y! B* u6 Y4 K7 g  Label3.Caption:='找不到指定的'+edit1.Text +'窗口!';
# e  c( j- g( V' S1 Aend;
; X0 d6 Y+ O4 {9 e  qprocedure TForm1.Button1Click(Sender: TObject);
var
  h: HWND;
begin
1 o1 l* }4 o5 Y% k/ w5 s  h := FindWindow(nil, pchar(Edit1.Text));
! R! x" [, a6 x/ v! B0 n  if (h<>0) then
" {" h7 e& {( D  if(Edit1.Text<>'HI检测结果')then
4 Y, F) x* y5 q0 N  postmessage(h,WM_DESTROY,0,0)
0 l. _' j8 F4 h1 k  else
  postmessage(h,wm_keydown,27,65537)
8 }6 O) r' }9 }( F1 P  else
  Label3.Caption:='找不到指定的'+edit1.Text +'窗口!';
end;
procedure TForm1.FormCreate(Sender: TObject);
" j3 `9 r3 S1 f9 f) I, j2 [# @" `begin
. [9 g* I2 T: E& Z" Hsetwindowpos(form1.Handle,HWND_TOPMOST,form1.Left,form1.Top,form1.Width,form1.Height,0);
+ O8 \! ~0 D- X; t; yend;
procedure TForm1.Timer1Timer(Sender: TObject);
' a% L1 ~3 H# F* T/ o: D, Qvar
  arr: array[0..254] of Char;
$ E  [2 G: b2 G  h:HWND;
" K; X' J, W& d* L7 dbegin
/ M$ J4 s0 g* A  h:=getforegroundwindow;
  GetWindowText(h, @arr, SizeOf(arr));
$ W8 p9 t! [/ n# ^6 a- ?  if(arr<>'流氓窗口隐藏器')then
% `0 p  a" y3 @* O1 W; e: y1 }  Edit1.Text:=arr;
end;
:loveliness:

+ H, h) ?5 W* G" y[ 本帖最后由 hyp 于 2008-5-10 08:16 编辑 ]

blueghost

了不起，开源就更了不起了
" L" X$ M" X2 f, i/ R! z$ L5 |; K顺便一说，流氓HI只要ESC就可以退出了....................

hyp

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