哆嗦A梦 发表于 2014-3-5 14:43:17

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

unit Unit2;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, Vcl.Buttons;

type
TForm2 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    Timer1: TTimer;
    procedure Button2MouseEnter(Sender: TObject);
    procedure Button1MouseEnter(Sender: TObject);
    procedure Button1MouseLeave(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form2: TForm2;
Timer1: TTimer;
implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
    if Button1.Caption='是的' then
      MessageBox(handle,'你终于承认了','恭喜',MB_OK)
end;

procedure TForm2.Button1MouseEnter(Sender: TObject);
var temp:Integer;
begin
ifButton1.Caption='不是' then
begin
      temp := Random(4);
      case temp of
      0:
      begin
         if Button1.Top=85 then
          Button1.Top := Button1.Top -40
          else
          Button1.Top := Button1.Top +40
      end;
      1:
          begin
            Button1.Enabled :=false;
          end;
      2:
          begin
            Button1.Caption :='是的';
            Button2.Caption :='不是';
          end;
         3:
          begin
            Button1.Visible := false;
          end;
      end;
end
else
begin
          Button2.Enabled := True;
          Button2.Visible := True;
end;
end;

procedure TForm2.Button1MouseLeave(Sender: TObject);
begin

         Button1.Enabled := true;
         Button1.Visible := true;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
    if Button2.Caption='是的' then
      MessageBox(handle,'你终于承认了','恭喜',MB_OK)
    else
      MessageBox(handle,'怎么可能','-_-',MB_OK);
end;

procedure TForm2.Button2MouseEnter(Sender: TObject);
var temp:Integer;
begin
ifButton2.Caption='不是' then
begin
      temp := Random(4);
      case temp of
      0:
      begin
         if Button2.Top=85 then
          Button2.Top := Button2.Top -40
          else
          Button2.Top := Button2.Top +40
      end;
      1:
          begin
            Button2.Enabled :=false;
          end;
      2:
          begin
            Button2.Caption :='是的';
            Button1.Caption :='不是';
          end;
         3:
          begin
            Button2.Visible := false;
          end;
      end;
end
else
begin

end;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   MessageBox(handle,'关了你也是','嘿嘿',MB_OK)
end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
   if ActiveControl <> nil then
       ActiveControl := nil;

end;

end.

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


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

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

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

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

comeheres 发表于 2014-3-5 17:41 static/image/common/back.gif
加个移动窗口，或者设置前几次关闭失效，屏蔽任务管理器

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

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

☆﹎尐の潴猪 发表于 2014-3-5 18:23 static/image/common/back.gif
怎么屏蔽任务管理器？
使得在进程里面也看不见？

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

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

comeheres 发表于 2014-3-5 18:26 static/image/common/back.gif
最简单的，屏蔽ctrl+alt+del组合按键就行……真正禁止的话，需要修改组策略，这个恶搞程序屏蔽按键就行了

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

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

☆﹎尐の潴猪 发表于 2014-3-5 18:23 static/image/common/back.gif
怎么屏蔽任务管理器？
使得在进程里面也看不见？

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

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

哆嗦A梦 发表于 2014-3-5 18:31 static/image/common/back.gif
光屏蔽ctrl+alt+del不行，右键任务栏也能打开任务管理器呢，最有效的就是用时钟查看进程列表，有任务管理 ...

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

☆﹎尐の潴猪 发表于 2014-3-5 22:58:52

哆嗦A梦 发表于 2014-3-5 18:32 static/image/common/back.gif
如果想让程序任务管理器里看不到的话应该涉及到驱动保护方面的知识 。

嗯我确实是这样想的

☆shiny☆ 发表于 2014-3-7 01:15:23

xian ding zai xia zai

嘻嗷『凯』 发表于 2014-3-7 09:59:40

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

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

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

哆嗦A梦 发表于 2014-3-8 14:30:19

564798774 发表于 2014-3-7 10:43 static/image/common/back.gif
这是C程序吧，还是C++

这是delphi啊，

tlwangxd 发表于 2014-10-23 10:32:23

学习
页: [1]
查看完整版本: 恶搞小程序！附源码～大牛见笑