Inna metoda zapisu do rejestru niż TRegistry

0

A ja mam pytanko...
Ponieważ gdy dodam moduł registry do uses to rozmiar pliku się drastycznie zwiększa co jest nie <ort>kożystne </ort>w czystym api.
c

ort! się odwołać bezpośrednio no procedur z modułu window i wwypociłem coś takiego. Czy jest jakaś alternatywa.

var TempKey: HKey;
Function NowyKlucz(r:integer;k:string):boolean;
var Disposition:integer;
begin
Result:=RegCreateKeyEx(r, PChar(k), 0, nil,
REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, nil, TempKey, @Disposition) = ERROR_SUCCESS;
end;

procedure Usun(r:longword;k,n:string);
begin
if NowyKlucz(r,k) then begin
RegDeleteValue(TempKey, pchar(n));
RegCloseKey(tempkey);
end;
end;

procedure dodaj(r:longword;k,n,w:string);
begin
if NowyKlucz(r,k) then begin
RegSetValueEx(TempKey, PChar(n), 0, REG_SZ, pchar(w),
    Length(w)+1);
RegCloseKey(tempkey);
end;
end;
Przykład użycia:
dodaj(HKEY_LOCAL_MACHINE,'SOFTWARE\Microsoft\Windows\CurrentVersion\Run',nazwa,wartość);
Usun(HKEY_LOCAL_MACHINE,'SOFTWARE\Microsoft\Windows\CurrentVersion\Run',nazwa,wartość);

ale ta opcja ma jedną wadę
Antywir Nod wykrywa ten plik jako wirusa.
Czy ktoś zna jakiąś inną metodę zapisu do rejestru lub jak można by to usprawnić.

0

nie możesz zobaczyć sobie jak to wygląda w pliku Registry.pas i wziąć tylko to co jest Ci potrzebne :>

0

Rozwiązanie hmm... głupawe. Generujesz plik *.reg i potem uruchamiasz REGEDIT /s nazwa-pliku.reg

0

no właśnie tak zrobiłem jak mówisz Misiekd i wyszło mi to co napisałem wyżej, <ort>senk </ort>w tym że Nod32 wykrywa ten plik po skompilowaniu jako wirusa (Nowa odmiana Zootob) i to jest problem, chodzi mi o to żeby plik mało zajmował i antywir go nie wykrywał....

1 użytkowników online, w tym zalogowanych: 0, gości: 1