Программно нажать на кнопку ОК

← →
Volf_555 (2005-10-01 01:25) [0]

procedure TMainForm.Button10Click(Sender: TObject);
var
c:Integer;
begin
ShellExecute(handle, "open", PChar(ExtractFilePath(Application.ExeName)+("1.key")),nil,nil,sw_Show); //запуск 1.key
c:=FindWindow(nil, PChar(Редактор реестра")); //поиск сообщения после открытия 1.key
sendmessage(c,WM_CLOSE,1,0); //попытка закрытия окна и неудача
end;

Суть в следущем - запускается файл 1.key >> Программа находит заголовок окна "Редактор реестра" >> Идёт программное нажатие на кнопку ОК или на ОТМЕНА

Как это реализовать?

← →
Adder © (2005-10-01 01:36) [1]

Позвольте спросить - зачем?

← →
Volf_555 (2005-10-01 01:47) [2]

>>Adder
Текст вводится в MEMO >> сохраняется в 1.key >> запускается 1.key >> автоматом нажимается кнопка ОК >> (данные занесены в реестр)

← →
Adder © (2005-10-01 02:10) [3]

имхо - это как гланды удалять через ...

← →
Volf_555 (2005-10-01 02:14) [4]

А что предложишь тогда?

← →
IceBeerg © (2005-10-01 12:00) [5]

Volf_555 (01.10.05 2:14) [4]
Я бы предложил распарсить memo и самому программно внести данные в реестр...
Хотя... если мне не изменяет память... есть ключик к regedit"у который позволяет вносить изменения в реестр пропуская диалог с ОК Отмена... но к сожалению ключа не помню, а справка после поднятия w2k3 почти не работает... google!

Попробуй запустить "regedit.exe -s имя_файла.reg".
А вообще, задача действительно странная...
Насчёт распарсить не согласен, всё-таки геморно несколько разбираться с бинарными значениями и прочей гадостью... Можно, конечно, вот только зачем? Хотя, мне просто в голову не приходит ситуация, чтобы пользователю хотелось вбивать подобное в мемо-поле :)

← →
Volf_555 (2005-10-02 02:01) [7]

>>Sashka
Пробывал запускать рег-файл твоим образом - сообщения не выскакивают и содержимое рег-файла в реестр не добавляется!

2 Volf_555 (02.10.05 02:01) [7]
И опять же TRegistry. Изучай работу с реестрои Windows из своей программы. Это - лучший вариант. Семестр ещё не скоро закончится.

Программно нажать на кнопку ОК Найти похожие ветки