Создание ключа в реестре

Тема в разделе "Delphi - Система", создана пользователем ast, 23 июн 2006.

Статус темы:
Закрыта.
  1. ast

    ast Гость

    Как мне создать ключ в реестре с именем "N" например в этой директории HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explоrer
    такого-то типа со значением "M"?

    И еще как узнать тип создаваемого ключа?
     
  2. Barmutik

    Barmutik Гость

    Читать в хелпе про TRegistry
     
  3. ast

    ast Гость

    Ваш ответ меня не удовлетворяет :)
     
  4. Barmutik

    Barmutik Гость

    А что конкретно Вас должно удовлетворять? Я должен за Вас написать код который вы потом сможете сразу вставить к себе в программу?

    Или Вам просто трудно открыть хелп по указанному мною классу и на первой стрнице хелпа посвященного классу открыть ссылку на пример и посмотреть как это делается ?
     
  5. ast

    ast Гость

    Это все-таки форум. На форуме положено помогать...
     
  6. Andrey Kad.

    Andrey Kad. Гость

    По моему помочь подобным образом<написать готовый код> тебе может кто угодно но не модератор...У него и так дел хватает.А перед тем как обращаться в форум желательно научиться пользоваться хелпом.В данном случае тема самая банальная и простая.
     
  7. ast

    ast Гость

    Я все понимаю, но я не могу понять... Вот цитата найденная в интернете:

    RegSetValue(Key: HKey; SubKey: PChar; ValType: Longint; Value: PChar; cb: Longint): Longint;
    Задать новое значение ключу Key\SubKey, ValType - тип задаваемой переменной, Value - буфер для переменной, cb - размер буфера.

    Можете дать хотя бы один пример? Что такое буфер для переменной, его размер...
    И дайте хотя бы один реальный пример...
     
  8. Barmutik

    Barmutik Гость

    Применим вариант показа примера кода :) .. раз уж Вы так настойчиво не хотите читать топик хелпа что я Вам советую ...

    Код (Text):
    var
    MyRegistry: TRegistry;
    begin
    MyRegistry := TRegistry.Create;
    try
    MyRegistry.RootKey := HKEY_CURRENT_USER;
    if MyRegistry.OpenKey(Software\Microsoft\Windows\CurrentVersion\Policies\Explоrer, True) then
    begin
    try
    MyRegistry.WriteString('M', Ваше строковое значение);
    MyRegistry.WriteInteger('M', Выше цифровое значение);
    MyRegistry.WriteBool(...
    MyRegistry.WriteTime(...
    MyRegistry.WriteBinaryData(...
    except
    end;
    end;
    finally
    MyRegistry.Free;
    end;
    А всего лиш стоило открыть хелп и посмотреть пример... :blink: <_<
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей