Текущий архив: 2002.07.15;
Скачать: CL | DM;
Вниз
Чтение из реестра Найти похожие ветки
← →
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 © (2002-05-15 00:05) [4]Хм, подскажите хотяб просто как определить если нет такого парматра (ключа)?
← →
KSergey © (2002-05-15 16:40) [5]anod © (14.05.02 20:55)
А он не увеличивает ли размер программы килобайт на 80?
Вообще, если уж вы так заботитесь о размере программы - проще писать на Си - легче все это стыкуется с вызовами WinApi, честное слово.
Что вернет - а нишиша. Пустую строку, надо полагать. Или про какое "сообщение" имелось с виду?
Страницы: 1 вся ветка
Текущий архив: 2002.07.15;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.041 c
