Скачать: CL | DM;

Проблема нахождения элемента через FindWindowEx   Найти похожие ветки 

← →
NewCheloveck555   (2006-06-29 23:23) [0]

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

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


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;


---

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

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

   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.

---

← →
NewCheloveck555   (2006-06-30 01:31) [2]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.027 c