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

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

← →
Student :) ©   (2009-12-26 17:10) [0]

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

function RegQueryStr(RootKey: HKEY; Key, Name: string;
 Success: PBoolean = nil): string;
var
 Handle: HKEY;
 Res: LongInt;
 DataType, DataSize: DWORD;
begin
 if Assigned(Success) then
   Success^ := False;
 Res := RegOpenKeyEx(RootKey, PChar(Key), 0, KEY_QUERY_VALUE, Handle);
 if Res <> ERROR_SUCCESS then
   Exit;
 Res := RegQueryValueEx(Handle, PChar(Name), nil, @DataType, nil, @DataSize);
 if (Res <> ERROR_SUCCESS) or (DataType <> REG_DWORD) then
 begin
   RegCloseKey(Handle);
   Exit;
 end;
 SetString(Result, nil, DataSize - 1);
 Res := RegQueryValueEx(Handle, PChar(Name), nil, @DataType,
   PByte(@Result[1]), @DataSize);
 if Assigned(Success) then
   Success^ := Res = ERROR_SUCCESS;
 RegCloseKey(Handle);
end;


строка запроса

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text :=RegQueryStr(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows NT\CurrentVersion", "InstallDate");
end;

но вместо цифр пишется какие то знаки, как ответ преобразовать в 10 ное число?

---

← →
Palladin ©   (2009-12-26 17:26) [1]

чем тебе готовый класс TRegistry не угодил? или "комсомольцы не ищут легких путей" ?

---

← →
Student :) ©   (2009-12-26 17:35) [2]

"комсомольцы не ищут легких путей" Типа того :)

---

← →
Игорь Шевченко ©   (2009-12-26 17:53) [3]

uses
 DateUtils;

var
 InstallDate: DWORD;
begin
...
 Res := RegQueryValueEx(Handle, PChar    (Name), nil, @DataType, @InstallDate,  @DataSize);

 if (Res <> ERROR_SUCCESS) or (DataType <> REG_DWORD) then
 begin
  RegCloseKey(Handle);
  Exit;
end;
 Result := FormatDateTime("dd.mm.yyyy",UnixToDateTime(InstallDate);
...
end;

---

← →
Anatoly Podgoretsky ©   (2009-12-26 18:23) [4]

> Student :)  (26.12.2009 17:35:02)  [2]

Ну продолжай трепаться.

---

← →
antonn ©   (2009-12-26 18:39) [5]

>
> Ну продолжай трепаться.

он ответил на вопрос

---

← →
Student :) ©   (2009-12-26 21:07) [6]

спасибо щас попробуемс

---

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

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



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