恶搞小程序！附源码～大牛见笑

哆嗦A梦

1. unit Unit2;
   
2. 
   
3. interface
   
4. 
   
5. uses
   
6.   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
   
7.   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, Vcl.Buttons;
   
8. 
   
9. type
   
10.   TForm2 = class(TForm)
    
11.     Label1: TLabel;
    
12.     Button1: TButton;
    
13.     Button2: TButton;
    
14.     Timer1: TTimer;
    
15.     procedure Button2MouseEnter(Sender: TObject);
    
16.     procedure Button1MouseEnter(Sender: TObject);
    
17.     procedure Button1MouseLeave(Sender: TObject);
    
18.     procedure Button1Click(Sender: TObject);
    
19.     procedure Button2Click(Sender: TObject);
    
20.     procedure Timer1Timer(Sender: TObject);
    
21.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
    
22.   private
    
23.     { Private declarations }
    
24.   public
    
25.     { Public declarations }
    
26.   end;
    
27. 
    
28. var
    
29.   Form2: TForm2;
    
30.   Timer1: TTimer;
    
31. implementation
    
32. 
    
33. {$R *.dfm}
    
34. 
    
35. procedure TForm2.Button1Click(Sender: TObject);
    
36. begin
    
37.     if Button1.Caption='是的' then
    
38.       MessageBox(handle,'你终于承认了','恭喜',MB_OK)
    
39. end;
    
40. 
    
41. procedure TForm2.Button1MouseEnter(Sender: TObject);
    
42. var temp:Integer;
    
43. begin
    
44. if  Button1.Caption='不是' then
    
45.   begin
    
46.       temp := Random(4);
    
47.       case temp of
    
48.         0:
    
49.         begin
    
50.            if Button1.Top=85 then
    
51.           Button1.Top := Button1.Top -40
    
52.           else
    
53.           Button1.Top := Button1.Top +40
    
54.         end;
    
55.         1:
    
56.           begin
    
57.             Button1.Enabled :=false;
    
58.           end;
    
59.         2:
    
60.           begin
    
61.             Button1.Caption :='是的';
    
62.             Button2.Caption :='不是';
    
63.           end;
    
64.          3:
    
65.           begin
    
66.             Button1.Visible := false;
    
67.           end;
    
68.       end;
    
69.   end
    
70. else
    
71.   begin
    
72.           Button2.Enabled := True;
    
73.           Button2.Visible := True;
    
74.   end;
    
75. end;
    
76. 
    
77. procedure TForm2.Button1MouseLeave(Sender: TObject);
    
78. begin
    
79. 
    
80.            Button1.Enabled := true;
    
81.            Button1.Visible := true;
    
82. end;
    
83. 
    
84. procedure TForm2.Button2Click(Sender: TObject);
    
85. begin
    
86.     if Button2.Caption='是的' then
    
87.       MessageBox(handle,'你终于承认了','恭喜',MB_OK)
    
88.     else
    
89.       MessageBox(handle,'怎么可能','-_-',MB_OK);
    
90. end;
    
91. 
    
92. procedure TForm2.Button2MouseEnter(Sender: TObject);
    
93. var temp:Integer;
    
94. begin
    
95. if  Button2.Caption='不是' then
    
96.   begin
    
97.       temp := Random(4);
    
98.       case temp of
    
99.         0:
    
100.         begin
     
101.            if Button2.Top=85 then
     
102.           Button2.Top := Button2.Top -40
     
103.           else
     
104.           Button2.Top := Button2.Top +40
     
105.         end;
     
106.         1:
     
107.           begin
     
108.             Button2.Enabled :=false;
     
109.           end;
     
110.         2:
     
111.           begin
     
112.             Button2.Caption :='是的';
     
113.             Button1.Caption :='不是';
     
114.           end;
     
115.          3:
     
116.           begin
     
117.             Button2.Visible := false;
     
118.           end;
     
119.       end;
     
120.   end
     
121. else
     
122.   begin
     
123. 
     
124.   end;
     
125. end;
     
126. 
     
127. procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
     
128. begin
     
129.      MessageBox(handle,'关了你也是','嘿嘿',MB_OK)
     
130. end;
     
131. 
     
132. procedure TForm2.Timer1Timer(Sender: TObject);
     
133. begin
     
134.    if ActiveControl <> nil then
     
135.        ActiveControl := nil;
     
136. 
     
137. end;
     
138. 
     
139. end.

复制代码

小程序下载：
http://pan.baidu.com/s/1i3gbKvN


我也是新手，刚学delphi 没多久～这个程序在网上看到这个演示图片，觉得挺有意思就自己做了一个。
代码可能有一些多余或可以精简的。也请各位大牛多指点。谢谢。

comeheres

加个移动窗口，或者设置前几次关闭失效，屏蔽任务管理器

☆﹎尐の潴猪

comeheres 发表于 2014-3-5 17:41

                               
登录/注册后可看大图

加个移动窗口，或者设置前几次关闭失效，屏蔽任务管理器

怎么屏蔽任务管理器？
使得在进程里面也看不见？

comeheres

☆﹎尐の潴猪 发表于 2014-3-5 18:23

                               
登录/注册后可看大图

怎么屏蔽任务管理器？
使得在进程里面也看不见？

最简单的，屏蔽ctrl+alt+del组合按键就行……真正禁止的话，需要修改组策略，这个恶搞程序屏蔽按键就行了

哆嗦A梦

comeheres 发表于 2014-3-5 18:26

                               
登录/注册后可看大图

最简单的，屏蔽ctrl+alt+del组合按键就行……真正禁止的话，需要修改组策略，这个恶搞程序屏蔽按键就行了

光屏蔽ctrl+alt+del不行，右键任务栏也能打开任务管理器呢，最有效的就是用时钟查看进程列表，有任务管理器的程序就结束掉。

哆嗦A梦

☆﹎尐の潴猪 发表于 2014-3-5 18:23

                               
登录/注册后可看大图

怎么屏蔽任务管理器？
使得在进程里面也看不见？

如果想让程序任务管理器里看不到的话应该涉及到驱动保护方面的知识 。

☆﹎尐の潴猪

哆嗦A梦 发表于 2014-3-5 18:31

                               
登录/注册后可看大图

光屏蔽ctrl+alt+del不行，右键任务栏也能打开任务管理器呢，最有效的就是用时钟查看进程列表，有任务管理 ...

那么 这个程序运行的时候就开不了任务管理器了
我还是觉得让这个进程在任务管理器里面影藏 还是比较好

☆﹎尐の潴猪

哆嗦A梦 发表于 2014-3-5 18:32

                               
登录/注册后可看大图

如果想让程序任务管理器里看不到的话应该涉及到驱动保护方面的知识 。

嗯  我确实是这样想的

☆shiny☆

xian ding zai xia zai

嘻嗷『凯』

- -任务管理器有无敌的:bigALT+F4厉害？

564798774

这是C程序吧，还是C++

哆嗦A梦

564798774 发表于 2014-3-7 10:43

                               
登录/注册后可看大图

这是C程序吧，还是C++

这是delphi啊，

tlwangxd

学习