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ć.