Чтение из реестра

← →
anod © (2002-05-13 23:20) [0]

Помогите, подскажите с помощью какой функции прочитать данные из реестра.
RegQueryValueEx?
Если не сложно, привелите примерчик.

← →
Moscower © (2002-05-13 23:32) [1]

function GetProgramFilesDirByKeyStr(KeyStr: string): string; var dwKeySize: DWORD; Key: HKEY; dwType: DWORD; begin if RegOpenKeyEx( HKEY_LOCAL_MACHINE, PChar(KeyStr), 0, KEY_READ, Key ) = ERROR_SUCCESS then try RegQueryValueEx( Key, "ProgramFilesDir", nil, @dwType, nil, @dwKeySize ); if (dwType in [REG_SZ, REG_EXPAND_SZ]) and (dwKeySize > 0) then begin SetLength( Result, dwKeySize ); RegQueryValueEx( Key, "ProgramFilesDir", nil, @dwType, PByte(PChar(Result)), @dwKeySize ); end else begin RegQueryValueEx( Key, "ProgramFilesPath", nil, @dwType, nil, @dwKeySize ); if (dwType in [REG_SZ, REG_EXPAND_SZ]) and (dwKeySize > 0) then begin SetLength( Result, dwKeySize ); RegQueryValueEx( Key, "ProgramFilesPath", nil, @dwType, PByte(PChar(Result)), @dwKeySize ); end; end; finally RegCloseKey( Key ); end; end;

← →
ArhAngeL2 © (2002-05-14 16:38) [2]

А не легче использовать стандартный класс Delphi TRegIniFile

← →
anod © (2002-05-14 20:55) [3]

А он не увеличивает ли размер программы килобайт на 80?

А какое сообщение вернет функция, если нет такого ключа.
(в данном примере "ProgramFilesPath")

Хм, подскажите хотяб просто как определить если нет такого парматра (ключа)?

anod © (14.05.02 20:55)
А он не увеличивает ли размер программы килобайт на 80?
Вообще, если уж вы так заботитесь о размере программы - проще писать на Си - легче все это стыкуется с вызовами WinApi, честное слово.

Что вернет - а нишиша. Пустую строку, надо полагать. Или про какое "сообщение" имелось с виду?

Чтение из реестра Найти похожие ветки