1. 公告

    • 黑夜给了我黑色的眼睛去寻找光明，阳光给了我明亮的眼睛我却是去寻找黑暗，所以我只有在夜里才出现真实的自己。(菩提本不树,明镜亦非台,本来无一物，何处染尘埃。)

  2. 写作时间

    << 2008-4 >>

    Sun

    Mon

    Tue

    Wed

    Thu

    Fri

    Sat

    1

    2

    3

    4

    5

    6

    7

    8

    9

    10

    11

    12

    13

    14

    15

    16

    17

    18

    19

    20

    21

    22

    23

    24

    25

    26

    27

    28

    29

    30

  3. 原创下载

  4. 最新文章

  5. 最新评论

  6. 文章归档

  7. Statistics

    • 文章总数:154
    • 评论总数:47
    • 引用总数:0
    • 浏览总数:121178
    • 留言总数:0
    • 当前样式:4u-HK
    • 当前语言:zh-CN

  8. 友情链接

  9. 反向链接

加注册表自启动

    关键字:

在Delphi中可以直接调用Registry单元直接操作注册表。可使用过的朋友都知道，由于这个单元加入后，程序会变大几K。要知道，Delphi在编写程序的时候本身生成出来的文件就比较大[汗啊，委屈啊]。所以，如果直接使用这个单元，就真的不适合我们编写木马了。

program  Write_Reg_String;


uses
 windows;

procedure WriteRegString(const RootKey : HKey; Key, ValueName, Value: string);
{
写字符串进注册表函数
ROOTKEY：主键名
HKey:键名
ValueName：项名
Value：项的内容
}
var
  Handle: HKey;
  Res,
  Disposition: Integer;
begin
  Res := RegCreateKeyEx(RootKey, PChar(Key), 0, '',
    REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, nil, Handle, @Disposition);
  if Res = 0 then begin
    Res := RegSetValueEx(Handle, PChar(ValueName), 0,
      REG_SZ, PChar(Value), Length(Value) + 1);
    RegCloseKey(Handle)
  end;
end;


begin      //写自启动
WriteRegString(HKEY_LOCAL_MACHINE,'SoftWare\Microsoft\Windows\CurrentVersion\Run','AutoRun',
'C:\WINDOWS\regedit.exe');
end.

您或许还对以下的内容感兴趣：

如果您拥有一个BLOG，如果您的BLOG的PV/IP/PR还算不错，如果您打算用您所拥有的BLOG来赚钱，那么我来告诉您几个赚钱的方法：

1、透过 Google AdSense 使您的BLOG产生收益。

2、您还可以通过申请TextLinkAds投放者来直接出售链接位从而产生收入。