Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.008 c