Delphi 7 реестр

[llbumerll]

Подскажите как добавить dll файл в реестр нажав на Button

код из *.reg

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Windows]
"AppInit_DLLs"="Мой файл.dll"
"LoadAppInit_DLLs"=dword:00000001

Вот что то типо этого только надо на Delphi 7:question::omg:

[vikingse]

var
Registry: TRegistry;
begin
{ создаём объект TRegistry }
Registry := TRegistry.Create;
{ устанавливаем корневой ключ; напрмер hkey_local_machine или hkey_current_user }
Registry.RootKey := HKEY_LOCAL_MACHINE;
{ открываем и создаём ключ }
Registry.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion\Windows',true);
{ записываем значение }
Registry.WriteString('AppInit_DLLs','Мой файл.dll');
Registry.WriteString('LoadAppInit_DLLs','dword:000 00001');
{ закрываем и освобождаем ключ }
Registry.CloseKey;
Registry.Free;
end;