1. Pascal / Говнокод #21297

    −51

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    function WRITESTRINGINREG(HK:HKEY;Key:string;CanCreate:boolean;Name:string;Value:string):boolean;

var

reg: TRegistry;

begin

Result:=false;

reg := TRegistry.Create;

reg.RootKey := HK;

reg.LazyWrite := false;

if reg.OpenKey(Key,CanCreate)=true then

begin

reg.WriteString(Name,Value);

Result:=true;

end else

begin

Result:=false;

end;

reg.CloseKey;

reg.free;

end;

    Ололо ковыряется в реестре.

    http://zedcreate.narod.ru/pages/clauses/clause001.htm

    Запостил: voodoodal16, 29 Сентября 2016

    Комментарии (6) RSS

    • ava barop 30.09.2016 00:21 # −56

      показать все, что скрыто>>- В Windows 95/98 –это файлы SYSTEM.DAT и USER.DAT, находящиеся в каталоге Windows.
      >>- В Windows Me был добавлен еще один файл CLASSES.DAT.

      а у тебя какой?
      Ответить

      • ava inkanus-gray 30.09.2016 00:37 # −55

        показать все, что скрытоПро Windows 3.1 с REG.DAT забыли.
        Ответить

        • ava barop 30.09.2016 00:39 # −55

          показать все, что скрытоа дельфи последних версий не работает под 3.1
          он не умеет 16ти битный код небось

          там нужен был паскаль и OWL
          Ответить

          • ava inkanus-gray 30.09.2016 01:23 # −52

            показать все, что скрытоИ то верно. А как в Windows 3.1 32-разрядные программы работают с реестром через Win32s, я точно не помню. Обращение к ключу HKEY_CLASSES_ROOT из Win32s-ного advapi32.dll точно переадресовывалось к API Win16 (user.exe, следовательно, и к REG.DAT). А другие ключи... кажется, тоже лежали в REG.DAT, но в скрытой ветке, которая не видна приложениям Win16.

            А ещё, чтобы приложение, скомпилированное в Дельфи, запустилось в Win32s, нужно было настроить встроенный линкер Дельфей, чтобы он не отрезал таблицу релокейшнов, иначе не запустится. И всё равно был шанс обломаться, если программа использовала какую-нибудь функцию Win32, которую Win32s не умело эмулировать.
            Ответить

    • ava bagor 01.10.2016 17:10 # −121

      показать все, что скрытоКакой багор)))
      Ответить

    Добавить комментарий