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 .
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 .