Здравствуйте , нужно ввести данные средствами winapi delphi в удаленный рабочий стол(mstsc) , проблема в том что не отлавливаются edit логина и пасса и ip кнопки отлавливаются
| Код |
procedure TForm1.Button3Click(Sender: TObject);
var
hOldCaption : string;
ParentWnd, ChildWnd : HWND;
begin
hOldCaption := 'Подключение к удаленному рабочему столу';
ParentWnd := FindWindow(nil, PChar(hOldCaption)); Sleep(2000);
if(ParentWnd = 0) then
begin
ShowMessage('Окно не найдено'); exit;
end;
ChildWnd:=FindWindowEx(ParentWnd, 0,'BUTTON', nil);
if ChildWnd <> 0 then
SendMessage(ChildWnd, BM_CLICK, 0, 0)
else
ShowMessage('button не найден!');
end;
а edit ы нет
procedure TForm1.Button3Click(Sender: TObject);
var
hOldCaption : string;
ParentWnd, ChildWnd : HWND;
begin
hOldCaption := 'Подключение к удаленному рабочему столу';
ParentWnd := FindWindow(nil, PChar(hOldCaption)); Sleep(2000);
if(ParentWnd = 0) then
begin
ShowMessage('Окно не найдено'); exit;
end;
ChildWnd:=FindWindowEx(ParentWnd, 0,'edit', nil);
if ChildWnd <> 0 then
ShowMessage('edit найден!');
else
ShowMessage('edit не найден!');
end;
|
Прошу помощи с решением
M
Rrader | Модератор: Название темы должно отражать ее суть! |
|