Вниз
Скачать: CL | DM;

Управление сторонним приложением   Найти похожие ветки 

 
Sesh   (2006-04-07 14:23) [0]

Нашел кнопку на стороннем приложении, а как на нее нажать?
PostMessage, SendMessage и что в параметрах указывать?


 
balepa ©   (2006-04-07 14:46) [1]

В справке почитай msdn.microsoft.com,
Указывать наверно кому куда и что :)


 
Sesh   (2006-04-07 15:01) [2]

сделал так:
PostMessage(f,WM_LBUTTONDOWN,VK_RETURN,0);
PostMessage(f,WM_LBUTTONUP,VK_RETURN,0);
а вот как теперь в найденный EDIT вписать текст?


 
balepa ©   (2006-04-07 15:07) [3]

var
 S:PChar;
 mHWND: HWND;
begin
S:="Server"#0;
 SendMessage(mhwnd,WM_SETTEXT,0,LongInt(s));
end;


 
Sesh   (2006-04-07 15:57) [4]

И последнее, там на форме 2 эдита, если делаю так то меняет только текст в 1-ом, а надо и во 2-м, как перейти к нему?
 s:=FindWindow(nil,"Доступ");
 f:=FindWindowEx(s,0,"#32770",nil);

 d:=FindWindowEx(f,0,"Edit",nil);
 z:="111";
 SendMessage(d,WM_SETTEXT,100,LongInt(@z));
 sleep(500);

 d:=FindWindowEx(f,0,"Edit",nil);
 z:="222";
 SendMessage(d,WM_SETTEXT,100,LongInt(@z));

пробовал обойти таким путем не получилось, подскажите пож-ста
 d:=FindWindowEx(f,0,nil,"");
 z:="222";
 SendMessage(d,WM_SETTEXT,100,LongInt(@z));



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

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



Память: 0.45 MB
Время: 0.028 c
4-1138842232
Illuha_y
2006-02-02 04:03
2006.04.23
Не работает RegEnumValue


15-1143905550
unknown
2006-04-01 19:32
2006.04.23
Эльбрус 6к


15-1143862359
Pazitron_Brain
2006-04-01 07:32
2006.04.23
Почему этот скрипт не отображает результат?


2-1143793505
RTV
2006-03-31 12:25
2006.04.23
StringGrid


2-1144402787
Lera
2006-04-07 13:39
2006.04.23
Приложения




   Наверх