Работа в чужом окне архиватора

[ivanik]

Здравствуйте;
Мне нужно программно работать с самораспаковывающимся запароленым архивом.
Вот тестовый фрагмент одного из вариантов кода:
//находим окно архиватора]

h1 := FindWindow(nil, 'Самораспаковывающийся архив WinRAR');
//Находим ХЭНДЛ ComboBox
h2 := FindWindowEx(h1,0,'ComboBox',nil);
 //Находим ХЭНДЛ поля EDIT C:\Documents and Settings\User\Рабочий стол
h3 := FindWindowEx(h2,0,'Edit',nil);
 //вводим в поле C:\Documents and Settings\User\Рабочий стол нужный путь
SendMessage(h3, WM_SETTEXT, 0, lparam(pchar(Put1)));
//Находим кнопку "Извлечь"
h4 := FindWindowEx(h1,0,'Button','Извлечь');
//Жмем на кнопку "Извлечь"
if h4<>0 then sendmessage(h4,BM_CLICK,0,0);
end;
//ДО ЭТОГО ВСЕ ВЫПОЛНЯЕТСЯ (появляется окно подтверждения замены или ввода пароля)


//Если появляется окно подтверждения замены файла то ищем его дескриптор...
//ЗДЕСЬ ПРОБЛЕМА С ПОИСКОМ ДЕСКРИПТОРА этого окна
//Проверяем присутствие окна подтверждение замены файлов
if findwindow(nil, 'Подтверждение замены файла') = 0 then
begin
//считываем его дескриптор
h5:=FindWindow(nil, 'Подтверждение замены файла');
//Находим кнопку "Да для всех"
h6:=FindWindowEx(h5,0,'Button','Да для &всех');
//жмем на кнопку "Да для всех"
if (h6<>0) then  sendmessage(h6,BM_CLICK,0,0);
//ПОЯВЛЯЕТСЯ ОКНО ВВОДА ПАРОЛЯ

//Находим окно ввода пароля
if findwindow(nil, 'Ввод пароля') = 0 then h7:=FindWindow(nil, 'Ввод пароля');
//Находим поле Edit ввода пароля
h8 := FindWindowEx(h7,0,'Edit',nil);
//Вводим пароль в поле Edit
SendMessage(h8, WM_SETTEXT, 0, lparam(pchar('12345')));  
sleep(1000);
//Находим кнопку ОК для подтверждения ввода пароля
h9:=GetNextWindow(h7,GW_HWNDNEXT);
//жмем на кнопку "ОК"
 if h9<>0 then  SendMessage(h9,BM_CLICK,0,0);

 end
 else //если окно подтверждения замены файлов не выходит тогда вводим пароль
 begin  
//ПОЯВЛЯЕТСЯ ОКНО ВВОДА ПАРОЛЯ


//ЗДЕСЬ ПРОБЛЕМА С ПОИСКОМ ДЕСКРИПТОРА окна ВВОДА ПАРОЛЯ
//Находим окно ввода пароля
if findwindow(nil, 'Ввод пароля') = 0 then h7:=FindWindow(nil, 'Ввод пароля');
//Находим поле Edit ввода пароля
h8 := FindWindowEx(h7,0,'Edit',nil);
//Вводим пароль в поле Edit
SendMessage(h8, WM_SETTEXT, 0, lparam(pchar('12345')));  
sleep(1000);
//Находим кнопку ОК для подтверждения ввода пароля
h9:=GetNextWindow(h7,GW_HWNDNEXT);
//жмем на кнопку "ОК"
 if h9<>0 then  SendMessage(h9,BM_CLICK,0,0);
 end;

Ни как не могу получить дескриптор окна замены файлов и окна ввода пароля.
Пробовал использовать функции GetForegroundWindow, но все равно
не получается.
Прилагаю рисунки архиватора и программы SPY++.
Может, кто то имел дело с подобной задачей, то прошу помочь.

[eoln]

Где же форматирование от ТС? http://programmersforum.ru/showpost....&postcount=236
Для чего это интересно нужно? Самораспаковщики винрара самодостаточны для такого.
Сабж:

if h4<>0 then sendmessage(h4,BM_CLICK,0,0);
...
//Проверяем присутствие окна подтверждение замены файлов
if findwindow(nil, 'Подтверждение замены файла') = 0 then

А окно может не успеть появиться. Нужно подождать немного. Либо циклом ожидания, либо просто sleep на пару секунд сделать, можно ещё подождать отклика от приложения, ну т.п. способами
И ещё

if findwindow(nil, 'Подтверждение замены файла') = 0 then
begin
//считываем его дескриптор
h5:=FindWindow(nil, 'Подтверждение замены файла');

что при таком раскладе должно содержаться в h5? Наверное, ноль )). Нужно заменить равенство на неравенство.
Аналогично в

if findwindow(nil, 'Ввод пароля') = 0 then h7:=FindWindow(nil, 'Ввод пароля');

[FaTaL]

Может это Вам подойдёт?
SFX-модули GUI: параметры командной строки

[ivanik]

Здравствуйте!
Спасибо за внимание.
1) Я указал, что хочу программно работать со своим же запароленным архивом, чтобы тот, кто попробует запустить его сам не смог этого сделать.
2) Я не указывал паузы во фрагменте кода. Естественно я пробовал и с ними.
3) Фрагмент кода "if findwindow(nil, 'Самораспаковывающийся архив WinRAR') = 0 then
begin
showmessage ('Окно Самораспаковывающийся архив WinRAR не найдено #32770');"
это для тестового варианта и нужен только для вывода сообщения, что дескриптор не найден, а дальше идет работа по поиску дескриптора
в блоке begin ...end.
Все прекрасно работает. В самой программе код будет по другому.
Мне нужно определить дескриптор окна замены файлов (если потребуется такая замена) и окна ввода пароля (оно выйдет в любом случае).
Теоретически все понятно, практически не получается.
В MS Word и др. окна ввода паролей находятся легко и соответственно вводятся пароли.
Здесь же неполучается, хотя все вроде бы тривиально.
В программе Spy++ все видно (имя элементов и классы), а найти дескрипторы не могу.
Еще раз спасибо всем за внимание. Буду экспериментировать.

[min@y™]

Может это Вам подойдёт?
SFX-модули GUI: параметры командной строки

имха, вот это подойдёт лучше:

48.png

[ivanik]

Здравствуйте!
Спасибо за внимание.
Мне нужно конкретно найти дескриптор окна замены файлов и ввода пароля.
Я понял так, что с помощью прилагаемого вами кода можно определить их имена.
Из Spy++ я знаю их имена и классы, но все равно не могу найти их дескрипторы.
Может кто попробует это сделать на Delphi с самораспаковывающимся запароленым архивом с путем распаковки по умолчанию (т.е. на рабочий стол), чтобы сработала кнопка "Да для всех", затем введен пароль и нажата кнопка "ОК".
Мне на это требуется 5 мин., но результат нулевой.
Вам профессионалам это сделать проще.
Если нет Delphi, то можно и на С++, функции, то те же.

Все равно вам спасибо.

[min@y™]

Мне нужно конкретно найти дескриптор окна замены файлов и ввода пароля.

А может быть тебе надо в итоге просто извлечь файлы из архива?
Вот это читал?

Я понял так, что с помощью прилагаемого вами кода можно определить их имена.

Я разве прилагал какой-то код?

[eoln]

Хоть и метод добывания нужной добычи странный, но всё-таки отвечу )
1) странный код запуска несуществующего нужно приводить в том виде, в котором вы хотите увидеть невидимое
2) выкинуть проверки нужно, ибо они ещё страннее чем мое утверждение в пункте №1

begin
  h1 := FindWindow(nil, 'Самораспаковывающийся архив WinRAR');
  h2 := FindWindowEx(h1,0,'ComboBox',nil);
  h3 := FindWindowEx(h2,0,'Edit',nil);
  h4 := FindWindowEx(h1,0,'Button','Извлечь');
  if h4<>0 then postmessage(h4,BM_CLICK,0,0);
  sleep(2000);

  h1 := FindWindow(nil, 'Ввод пароля');
  h2 := FindWindowEx(h1,0,'Edit',nil);
  if h2<>0 then SendMessage(h2, WM_SETTEXT, 0, lparam(pchar('12345')));
  h4 := FindWindowEx(h1,0,'Button','OK');
  if h4<>0 then postmessage(h4,BM_CLICK,0,0);
  sleep(2000);

  h1 := FindWindow(nil, 'Подтверждение замены файла');
  h4 := FindWindowEx(h1,0,'Button','Да для &всех');
  if h4<>0 then postmessage(h4,BM_CLICK,0,0);
end;

[ivanik]

У меня точно такой код в программе.
Единственно, что я вставляю программно путь распаковки.
Может код и странный, но я ведь не профессионал.
А вы чувствуется профессионал и Вам большое СПАСИБО!
Вся причина была в том, что я задавал маленькую паузу (1000 и 500), а когда задал 2000 все заработало как часы.
Вот это я и хотел выяснить.
Чувствую, что все вроде правильно, а не работает.
Ну а не профессионалы пытаются унизить других.
Еще раз Вам большое СПАСИБО!!!

[beegl]

или RAR Component посмотрите: