Проблема нахождения элемента через 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]

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

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

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