Цитата(DarkProg @ 22.12.2012, 13:08  ) | | Координаты мыши узнать легко, а вот нажатие левой кнопки мыши выполняется вот так. |
Нафига ему координаты мыши?
Надо искать окно, например, по заголовку, что-то из раздела FindWindow, а потом, перебирая дочерние окна, находить их Handle и слать уже сообщение по SendMessage
Добавлено через 8 минут и 37 секунд
Вот когда-то в молодости писал, запуск приложения в режиме SW_HIDE, поиск окна по заголовку, потом поиск дочерних окон, если их класс (TEdit, запускаемые проги были писаны на дельфях, но не мной) то запоминаем и уже им шлем нужные параметры 
P.S. за код не ругать, давно это было 
| Код |
Var
hWnd,hList,hPass:THandle;
Temp:PChar;
Control:array [0..127] of char;
counter,count:integer;
UserName,UserPass:string;
Begin
OkBtn.Enabled:=False;
counter:=0; count:=0; hPass:=0;
ShellExecute(Handle,'open',PChar(FileStr),nil,nil,SW_HIDE);
repeat
hWnd:=FindWindow(nil,'Connect');
Application.ProcessMessages;
until hWnd<>0;
SetWindowText(hWnd,PChar('Соединение с базой: '+ListBox1.Items[ListBox1.ItemIndex]));
ShowWindow(hWnd,SW_RESTORE);
repeat
hList:=GetWindow(hWnd, GW_CHILD);
Application.ProcessMessages;
until hList<>0;
While (Counter<>2) AND (Count<>10) do
begin
if hList<>0 then
GetClassName(hList, Control, SizeOf(Control))
else
Control:='';
if (Control='TEdit') OR (Control='Edit') then
begin
counter:=counter+1;
if counter=1 then
hPass:=hList;
end;
if Counter<>2 then
hList:=GetWindow(hList, GW_HWNDNEXT);
Count:=Count+1;
end;
if Counter=2 then
begin
UserName:=GetPassString('******','UserName','');
Temp:=StrNew(PChar(UserName));
SendMessage(hList,WM_SETTEXT,0,integer(Temp));
StrDispose(Temp);
UserPass:=GetPassString('*******','AutoSave','');
UserPass:=Coder(UserPass);
Temp:=StrNew(PChar(UserPass));
SendMessage(hPass,WM_SETTEXT,0,integer(Temp));
StrDispose(Temp);
// ActivateKeyboardLayout(latin,KLF_REORDER);
end
else
ShowMessage('Не могу передать имя пользователя!');
// StatusBar1.SimpleText:=IntToStr(hWnd)+' '+IntToStr(count)+' '+IntToStr(Counter)+' '+IntToStr(hList)+' '+Control;
OkBtn.Enabled:=True;
|
|