Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.11.2017, 10:55   #11
Filka
Форумчанин
 
Регистрация: 29.10.2015
Сообщений: 272
По умолчанию

Код:
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;
?
Filka вне форума Ответить с цитированием
Старый 23.11.2017, 10:56   #12
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

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

Цитата:
Сообщение от alex0097 Посмотреть сообщение
в стандартном реестре
Вы из тех, кто называют текстовый файл блокнотом?

regedit это программа для редактирования реестра, а не реестр.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Старый 23.11.2017, 10:57   #13
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,656
По умолчанию

Цитата:
Сообщение от alex0097 Посмотреть сообщение
Мне нужно, что бы пользователь не менял Настройки, в стандартном реестре(про другие программы речи не шло).
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Старый 23.11.2017, 12:43   #14
Black Fregat
Программист
Участник клуба
 
Аватар для Black Fregat
 
Регистрация: 23.06.2009
Сообщений: 1,772
По умолчанию

А ещё есть команда 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 /?
Black Fregat вне форума Ответить с цитированием
Старый 23.11.2017, 17:59   #15
alex0097
Форумчанин
 
Аватар для alex0097
 
Регистрация: 06.07.2010
Сообщений: 123
По умолчанию

Цитата:
Сообщение от 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; 23.11.2017 в 18:46.
alex0097 вне форума Ответить с цитированием
Старый 23.11.2017, 19:11   #16
alex0097
Форумчанин
 
Аватар для alex0097
 
Регистрация: 06.07.2010
Сообщений: 123
По умолчанию

Спасибо Spy++ от Microsoft на win10 идет класс
Изображения
Тип файла: png tQSmhkvMQ0q8K643AxVDRQ.png (11.5 Кб, 89 просмотров)
alex0097 вне форума Ответить с цитированием
Старый 23.11.2017, 21:36   #17
Sciv
Старожил
 
Аватар для Sciv
 
Регистрация: 16.05.2012
Сообщений: 3,211
По умолчанию

Цитата:
Сообщение от alex0097 Посмотреть сообщение
Спасибо Spy++ от Microsoft на win10 идет класс
Да она на всех виндах идёт
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
Sciv вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
как захватить окно и нажать ок!? Art22 Win Api 25 08.04.2017 00:48
Удалить ключ из реестра Aoizora Win Api 3 11.11.2016 23:13
Ключ реестра KolaSh Общие вопросы Delphi 7 30.05.2013 08:37
Как захватить весь вывод в консоли??? alexfmf Общие вопросы Delphi 5 13.05.2009 21:54
изменить разрешения на папку и ключ реестра Deceased Общие вопросы Delphi 0 18.10.2008 21:47