Чтение параметра реестра

← →
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]

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

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

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

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

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