Привет всем
сейчас я на простом примере в Delphi покажу как можно работать с реестром! Причем паралельно мы напишем прогу которая будет ломать дни в Касперском 7.0.0.124
В Delphi 2 и выше появился объект TRegistry при помощи которого очень просто работать с реестром. Но мы здесь рассмотрим функции API, которые доступны и в Delphi 1.
Реестр предназначен для хранения системных переменных и позволяет зарегистрировать файлы программы, что обеспечивает их показ в проводнике с соответствующей иконкой, вызов программы при щелчке на этом файле, добавление ряда команд в меню, вызываемое при нажатии правой кнопки мыши над файлом. Кроме того, в реестр можно внести некую свою информацию (переменные, константы, данные о инсталлированной программы ...). Программу можно добавить в список деинсталляции, что позволит удалить ее из менеджера "Установка/Удаление программ" панели управления.
По даным от пользователя MELK с нашего форума (
http://fssr.ru/hz.php?name=Forums&file= ... 12da949503)
Запись о наших ключах храниться в 2х ветках реестра,а именно:
HKEY_LOCAL_MACHINESOFTWAREKasperskyLabLicStorage
HKEY_LOCAL_MACHINESOFTWAREMicrosoftSystemCertif icatesSPCCertificates
Можно их удалить и свободно пользоваться касперским еще 30 дней...
Но мне лично думаю БУДЕТ влом каждый месяц в реестр лазить (хотя робота непыльная,но на то нам и Дельфи,что бы делал сею роботу за нас!) вот я и решил почему не написать прогу которая ветки реестра удалит? Да и к тому же попрактикуюсь в програмировании! Ну вот сел я за дело!
Перелопатил кучу статей (большинство было клонами) и все таки написал эту прогу.если есть желание полопатить тоже вот самая толковая
http://www.codenet.ru/progr/delphi/stat/registry.php
Отсюда я узнал как можно удалить ветки реестра (процес узнавания я небуду описывать,вы сами почитайте). Вот код сией програмы!
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,registry;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
const
KeyWin='SOFTWAREKasperskyLabLicStorage';
KeyWin1='SOFTWAREMicrosoftSystemCertificatesSPCCertificates';
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
reg.DeleteKey(KeyWin);
reg.DeleteKey(KeyWin1);
Reg.CloseKey;
Reg.Free;
end;
end.
Жмем на кнопочку и радуемся
З.Ы. Прошу без особой критики
я непретендую на гИнИальность,просто решил поделиться тем что знаю
Hacker-on
hackzona.ru
Вход
FAQ
Поиск
