| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Проблема нахождения элемента через FindWindowEx [D6, WinXP]

NewCheloveck555 ©   (2006-06-29 23:23:00) 

При сохранении рисунка с веб-браузера выскакивает диалоговое окно "Сохранение рисунка"
Необходимо взять и заменить значение в имени файла
Как это сделать?

Пробывал так:


procedure TForm1.Button1Click(Sender: TObject);
var
s:Integer;
begin
s:=FindWindow(nil,'Сохранение рисунка');
ShowMessage(IntToStr(s));
s:=FindWindowEx(s,0,'Combobox',nil);
ShowMessage(IntToStr(s));
s:=FindWindowEx(s,0,'Edit',nil);
ShowMessage(IntToStr(s)); //здесь s=0...
end;


---

NewCheloveck555   (2006-06-30 01:31:00) [1]

Огромное спасибо!

Насчёт локализации понятно.
Я прогу для себя делаю, которая автоматом рисунки будет переименовывать и сохранять их, так что вопрос с локализацией мне не страшен

---

Шпиён   (2006-06-30 00:54:00) [2]

Не совсем правильно пробовал:

   s:=FindWindow(nil,'Сохранение рисунка');
   ShowMessage(IntToStr(s));
   s:=FindWindowEx(s,0,'ComboboxEx32',nil);
   ShowMessage(IntToStr(s));
   s:=FindWindowEx(s,0,'Combobox',nil);
   ShowMessage(IntToStr(s));
   s:=FindWindowEx(s,0,'Edit',nil);
   ShowMessage(IntToStr(s));

И еще надо учесть, что заголовок ("Сохранение рисунка") - зависит от локализации Windows.

---

Наверх