VPF::ввести данные в удаленный рабочий стол(mstsc)

pro100user

Дата 26.1.2013, 18:16 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 26.1.2013

Репутация: нет
Всего: нет

Здравствуйте , нужно ввести данные средствами 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

Модератор: Название темы должно отражать ее суть!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »