DELPHI加注册表自启动的最简单代码

program  exe ;
uses
windows ;
// 注册表新建键值的函数
procedure CreateKey(const RootKey : HKey; Key, ValueName, Value: string );
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      //  跟                       位置                                      名          文件路径
CreateKey(HKEY_LOCAL_MACHINE,'SoftWare/Microsoft/Windows/CurrentVersion/Run','AutoRun','C:/WINDOWS/regedit.exe' );
end .

以前的代码，要用到registry，不适合写木马哦，要大好几K 呢。
标题 DELPHI加注册表自启动的最简单代码 选择自 jondynet 的 Blog
关键字 DELPHI 加注册表自启动的最简单代码
出处
uses registry ;
var reg:tregistry ;
begin
reg:=tregistry.create ;
reg.rootkey:=HKEY_LOCAL_MACHINE ;
reg.openkey('SOFTWARE/Microsoft/Windows/CurrentVersion/Run',true );
reg.WriteString('ScanRegistry','mir47.EXE' );
reg.closekey ;
reg.free ;
end .