自我复制到系统目录中,并写注册表,使程序开机自动运行

最新推荐文章于 2023-02-11 17:10:24 发布

转载最新推荐文章于 2023-02-11 17:10:24 发布 · 955 阅读

文章标签：

#path #file #system #string

DELPHI技术资料专栏收录该内容

31 篇文章

订阅专栏

本文介绍了一段用于实现程序自动复制到系统目录并写入注册表以达到开机自动运行目的的Delphi代码。首先判断目标文件是否存在，然后进行复制，并设置隐藏属性。接着通过调用注册表API实现开机自启。

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;