var
in_se: Tin_se;
del:Boolean; // задаем глобальную переменную типа Boolean
implementation
{$R *.dfm}
uses Service;
procedure Tin_se.correctly (Sender: TObject); //
задаемфункциюпроверкинаочистку memo2
begin
del:=false; // переводим переменную в false
end;
procedure Tin_se.Edit1Change(Sender: TObject);
begin
Lst1.Perform(LB_SELECTSTRING,1,longint(Pchar(Edit1.text))); //
осущетвляемпоискв ListBox
end;
procedure Tin_se.FormClose(Sender: TObject; var Action: TCloseAction); //
действиепризакрытииформы
begin
del:=false; // переводим переменную в false
end;
procedure Tin_se.FormCreate(Sender: TObject); // действиеприоткрытииформы
var i: integer;
reg:tregistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey('SYSTEM\CurrentControlSet\Services\', FALSE); //
открываемподраздел
reg.GetKeyNames(lst1.Items); //получаемимяключа
reg.closekey; // закрываем ключ
for i:=0 to lst1.Count-1 do // создаем цикл и производим действие
begin
lst1.ItemIndex:=i;
reg.OpenKey('SYSTEM\CurrentControlSet\Services\'+lst1.Items[i], FALSE); //
открываемподраздел
lst1.Items.Append('SYSTEM\CurrentControlSet\Services\'+lst1.Items[i]+reg.ReadString('D
isplayName'));
reg.CloseKey; // закрываем ключ
end;
reg.Free; // освобождаем объект
end;
procedure Tin_se.lst1DblClick(Sender: TObject);
var
m: integer;
begin
if del=false then // если глобальная переменная в состоянии false то
begin
del:= true; // переводим переменную в true
Form1.memo2.lines.clear; //очищаемполе memo2
Form1.ApplyBTN.Enabled:=true;
end;
Form1.Memo2.Lines.Add(Lst1.Items.Strings[Lst1.ItemIndex]); //добавляемв
memo2 значение
