procedureTForm1.btnFindClick(Sender: TObject); varhr, hr1, hr_id, hr_pwd: THandle; WindowText: array[0..MAX_PATH] ofChar; beginhr := FindWindow('#32770', 'TeamViewer'); hr := FindWindowEx(hr, 0, 'MainWindowRemoteControlPage', nil); hr1 := FindWindowEx(hr, 0, 'IncomingRemoteControlComponentView', nil); hr_id := FindWindowEx(hr1, 0, 'CustomRunner', nil); hr := FindWindowEx(hr_id, 0, 'Edit', nil); SendMessage(hr, WM_GETTEXT, MAX_PATH, Longint(@WindowText)); lblID.Caption :=WindowText; hr_pwd := FindWindowEx(hr1, hr_id, 'CustomRunner', nil); hr := FindWindowEx(hr_pwd, 0, 'Edit', nil); SendMessage(hr, WM_GETTEXT, MAX_PATH, Longint(@WindowText)); lblPWD.Caption :=WindowText; end;
delphi
免责声明:文章转载自《delphi》仅用于学习参考。如对内容有疑问,请及时联系本站处理。
上篇Go第六篇之结构体剖析Simulink仿真入门到精通(十九) 总结回顾&自我练习下篇
宿迁高防,2C2G15M,22元/月;香港BGP,2C5G5M,25元/月 雨云优惠码:MjYwNzM=