| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Чтение из реестра [D6, WinXP]
anod © (2002-05-13 23:20:00)Помогите, подскажите с помощью какой функции прочитать данные из реестра.
RegQueryValueEx?
Если не сложно, привелите примерчик.
KSergey (2002-05-15 16:40:00) [1]anod © (14.05.02 20:55)
А он не увеличивает ли размер программы килобайт на 80?
Вообще, если уж вы так заботитесь о размере программы - проще писать на Си - легче все это стыкуется с вызовами WinApi, честное слово.
Что вернет - а нишиша. Пустую строку, надо полагать. Или про какое "сообщение" имелось с виду?
anod (2002-05-15 00:05:00) [2]Хм, подскажите хотяб просто как определить если нет такого парматра (ключа)?
anod (2002-05-14 20:55:00) [3]А он не увеличивает ли размер программы килобайт на 80?
А какое сообщение вернет функция, если нет такого ключа.
(в данном примере "ProgramFilesPath")
ArhAngeL2 (2002-05-14 16:38:00) [4]А не легче использовать стандартный класс Delphi TRegIniFile
Moscower (2002-05-13 23:32:00) [5]
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;
| |
