流氓窗口隐藏器0.02

hyp

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

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

hyp

procedure TForm1.TrackBar1Change(Sender: TObject);
var
& V/ [& X" r1 g, E. ?+ V  h: HWND;
  FormStyle: Integer;
begin
  h := FindWindow(nil, pchar(Edit1.Text));
7 J9 ?* z% b" t( D5 V) C4 E0 l, j) Q' F  if (h<>0) then
. b  G7 v/ Y$ b9 m3 j( N. o# G4 i  begin
+ s; Y3 R9 L6 y: X* u( u2 H7 F  Label3.Caption:='透明度(0-255):'+ IntToStr(trackbar1.position);
  FormStyle := GetWindowLong(h, GWL_EXSTYLE);
; p  G& F6 o% E, R  SetWindowLong(h, GWL_EXSTYLE, FormStyle or WS_EX_LAYERED);
  SetLayeredWindowAttributes(h, 0,trackbar1.Position, LWA_ALPHA);
  end
) K3 ?# ]) ?; U# F  Z+ F  else
4 p' k+ k# o3 D5 k- ^! v% X  Label3.Caption:='找不到指定的'+edit1.Text +'窗口!';
: l+ X* ^; m2 r2 U+ E' z  P9 Fend;
. V" @) i4 m# _- l( ?/ b- F3 ]procedure TForm1.Button1Click(Sender: TObject);
var
  h: HWND;
5 Z7 T3 R$ x) c! W0 |' @begin
  h := FindWindow(nil, pchar(Edit1.Text));
8 v( m( Q5 t* z* E8 n# m  if (h<>0) then
  if(Edit1.Text<>'HI检测结果')then
$ G. T. f1 j4 S1 Z* D  postmessage(h,WM_DESTROY,0,0)
  else
6 p0 u$ N0 R% o, I+ p, M" c& a  postmessage(h,wm_keydown,27,65537)
  else
5 F9 B( {1 v+ a' p! l. L: ?: i  Label3.Caption:='找不到指定的'+edit1.Text +'窗口!';
+ S; l0 G; U/ q0 W# [end;
procedure TForm1.FormCreate(Sender: TObject);
; P$ x& Q; ?" wbegin
setwindowpos(form1.Handle,HWND_TOPMOST,form1.Left,form1.Top,form1.Width,form1.Height,0);
' d1 d4 Z% l; E9 A8 cend;
& n8 [8 x) s- [% Z- Mprocedure TForm1.Timer1Timer(Sender: TObject);
var
  arr: array[0..254] of Char;
" V8 ?$ C1 s$ R$ h8 X) x* j  h:HWND;
begin
  h:=getforegroundwindow;
9 E; f( W8 l- A8 U; e  GetWindowText(h, @arr, SizeOf(arr));
" x* r7 r1 U/ P2 b9 S  l( T  if(arr<>'流氓窗口隐藏器')then
  Edit1.Text:=arr;
$ `- z8 V# P& t8 b$ R! E; gend;
7 Q9 A; Z6 g* ]% }:loveliness:

[ 本帖最后由 hyp 于 2008-5-10 08:16 编辑 ]

blueghost

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

hyp

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