Форум: "WinAPI";
Текущий архив: 2004.03.28;
Скачать: [xml.tar.bz2];

Вниз

работа с реестром?   Найти похожие ветки 

← →
xamlo   (2004-01-18 18:47) [0]

подскажите как правильно написать функцию, использующуую только API функйии, которая будет считывать значение ключа из реестра.

вот то что я написал, но оно выдает полный ноль:
//-----------------readkey.dpr-------
Program readkey;
uses windows,system;

function OpenKey(Key: String; var Handle: HKEY): Boolean;
begin
 Result := RegCreateKey(HKEY_LOCAL_MACHINE, PChar(Key), Handle) = ERROR_SUCCESS;
end;

function CloseKey(Handle: HKey): Boolean;
begin
 Result := RegCloseKey(Handle) = ERROR_SUCCESS;
end;

function readkeyval(s:string):string;
const key="SOFTWARE\Microsoft\Windows\CurrentVersion";
var    Buffer: array[0..29] of Byte;
       DataType, BufSize: Integer;
       Handle: HKey;
begin
   BufSize := SizeOf(Buffer);
   if openkey(key,Handle) then
   if RegQueryValueEx(Handle, PChar(s), nil, @DataType, @Buffer, @BufSize) = ERROR_SUCCESS then begin
  CloseKey(Handle);
  end;
  result:=string(PChar(@Buffer));
end;

//сама программа
begin
messagebox(0,PChar(readkeyval("ProductId")),"ProductId",0);
end;
//---------конец проги-------попробуйте это откомпелировать у себя, может у вас будет не ноль(значение).
подскажите как и что исправить чтобы работало.

---

← →
xamlo   (2004-01-18 22:06) [1]

Ответьте пожалуйста!!!!

---

← →
Плохиш_   (2004-01-18 22:59) [2]

Берёшь исходники TRegistry и изучаешь

---

← →
xamlo   (2004-01-18 23:04) [3]

Примерно это и сделано, я не прошу мне говорить что почитать, а сказать почему это не работает, и что надо сделать чтобы работало.

---

← →
Cobalt ©   (2004-01-19 23:29) [4]

1) CУЩЕСТВУЕТ ЛИ ЭТОТ КЛЮЧ?
2)  RegCreateKey This function is provided for compatibility with Windows version 3.1. Win32-based applications should use the RegCreateKeyEx function.
3) Пробовал ли ТЫ отладить свой код?

---

← →
xamlo   (2004-01-20 00:45) [5]

Ну да пробовал, мне он ничего такого не писал, Ну ладно спасибо и на этом, проверю, может и заработает, а может и нет

---

Страницы: 1 вся ветка

Форум: "WinAPI";
Текущий архив: 2004.03.28;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.038 c