delphi +winapi

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by pro100user, 26 Jan 2013.

  1. pro100user

    pro100user New Member

    Joined:
    7 Oct 2012
    Messages:
    0
    Likes Received:
    0
    Reputations:
    0
    Здравствуйте , нужно ввести данные средствами 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;
    Прошу помощи с решением