Как захватить текущий ключ из Реестра

[Filka]

procedure TForm1.Button2Click(Sender: TObject);
var
  H: HWND;
  L: Integer;
  S: string;
begin
  H := FindWindow('RegEdit_RegEdit', nil);
  if H <> 0 then
  begin
    H := FindWindowEx(H, 0, 'msctls_statusbar32', nil);
    if  H <> 0 then
    begin
      L := SendMessage(H, WM_GETTEXTLENGTH, 0, 0);
      SetLength(S, L);
      SendMessage(H, WM_GETTEXT, L + 1, LPARAM(@S[1]));
      Delete(S, 1, Pos('\', S));
      Edit1.Text := S;
    end;
  end;
end;

?

[Alex11223]

А если он узнает про существование .reg файлов?

Сообщение от alex0097

в стандартном реестре

Вы из тех, кто называют текстовый файл блокнотом?

regedit это программа для редактирования реестра, а не реестр.

[min@y™]

Сообщение от alex0097

Мне нужно, что бы пользователь не менял Настройки, в стандартном реестре(про другие программы речи не шло).

[Black Fregat]

А ещё есть команда reg в cmd

C:\Users\Василий>reg /?

REG <операция> [Список параметров]

  <операция> [ QUERY   | ADD    | DELETE  | COPY    |
                   SAVE    | LOAD   | UNLOAD  | RESTORE |
                   COMPARE | EXPORT | IMPORT  | FLAGS ]

Код возврата: (за исключением REG COMPARE)

  0 - Успешно
  1 - С ошибкой

Для получения справки по определенной операции введите:

  REG <операция> /?

Примеры:

  REG QUERY /?
  REG ADD /?
  REG DELETE /?
  REG COPY /?
  REG SAVE /?
  REG RESTORE /?
  REG LOAD /?
  REG UNLOAD /?
  REG COMPARE /?
  REG EXPORT /?
  REG IMPORT /?
  REG FLAGS /?

[alex0097]

Сообщение от Filka

procedure TForm1.Button2Click(Sender: TObject);
var
  H: HWND;
  L: Integer;
  S: string;
begin
  H := FindWindow('RegEdit_RegEdit', nil);
  if H <> 0 then
  begin
    H := FindWindowEx(H, 0, 'msctls_statusbar32', nil);
    if  H <> 0 then
    begin
      L := SendMessage(H, WM_GETTEXTLENGTH, 0, 0);
      SetLength(S, L);
      SendMessage(H, WM_GETTEXT, L + 1, LPARAM(@S[1]));
      Delete(S, 1, Pos('\', S));
      Edit1.Text := S;
    end;
  end;
end;

?

попробовал ваш код, не работает на Windows 10, на 7 отработал как надо

[alex0097]

Спасибо Spy++ от Microsoft на win10 идет класс

[Sciv]

Сообщение от alex0097

Спасибо Spy++ от Microsoft на win10 идет класс

Да она на всех виндах идёт