Recursive child windows for Creative Cloud ParentHWnd=$00030602 HWnd=$000205FA IsVisible=-1 IsOwned=0 IsAppWindow=0 WindowTextLength=6 WindowText="&Close" ParentHWnd=$00030602 HWnd=$000205FC IsVisible=-1 IsOwned=0 IsAppWindow=0 WindowTextLength=0 WindowText="" ParentHWnd=$00030602 HWnd=$000205E4 IsVisible=-1 IsOwned=0 IsAppWindow=0 WindowTextLength=12 WindowText="Registration" ParentHWnd=$00030602 HWnd=$000205E6 IsVisible=-1 IsOwned=0 IsAppWindow=0 WindowTextLength=51 WindowText="- Information about new versions of ABBYY products." ParentHWnd=$00030602 HWnd=$000205E8 IsVisible=-1 IsOwned=0 IsAppWindow=0 WindowTextLength=25 WindowText="- Free technical support " ParentHWnd=$00030602 HWnd=$000205EA IsVisible=-1 IsOwned=0 IsAppWindow=0 WindowTextLength=74 WindowText="Register your copy of ABBYY FineReader and receive the following benefits:" ParentHWnd=$00030602 HWnd=$000205EC IsVisible=-1 IsOwned=0 IsAppWindow=0 WindowTextLength=0 WindowText="" ParentHWnd=$00030602 HWnd=$000205E0 IsVisible=-1 IsOwned=0 IsAppWindow=0 WindowTextLength=0 WindowText="" ParentHWnd=$00030602 HWnd=$000205E2 IsVisible=-1 IsOwned=0 IsAppWindow=0 WindowTextLength=0 WindowText="" ') ĭumpWindowStack( ' Recursive child windows for ABBYY ') ĭumpWindowStack( ' Child is Signin button: closing parent. Writeln( ' > Child is Close button: clicking. If WindowDump.WindowText = '&Close ' then If ParentWindowText = AbbyyFineReaderForScanSnap50 then GetWindowText(ParentHWnd, PChar(ParentWindowText), Length(ParentWindowText) + 1) SetLength(ParentWindowText, ParentWindowTextLength) ParentWindowTextLength := GetWindowTextLength(ParentHWnd) WindowDump := DumpWindow( ' ', HWnd, ParentHWnd) OwnerHWnd := GetWindow(ParentHWnd, GW_OWNER) ĭumpWindow(Prefix, ParentHWnd, OwnerHWnd) ĭumpWindowStack( ' ' + Prefix, ParentHWnd, OwnerHWnd) įunction EnumChildWindowsProc(HWnd: HWnd ParentHWnd: lParam): Bool stdcall Procedure DumpWindowStack( const Prefix: string const HWnd: HWnd const ParentHWnd: lParam) Result := TWindowDump.Create(Prefix, HWnd, ParentHWnd) Prefix, ParentHWnd, HWnd, BoolToStr(IsVisible), BoolToStr(IsOwned), BoolToStr(IsAppWindow), WindowTextLength, WindowText]) įunction DumpWindow( const Prefix: string const HWnd: HWnd const ParentHWnd: lParam): TWindowDump Result := Format( '%sParentHWnd=$%8.8x HWnd=$%8.8x IsVisible=%s IsOwned=%s IsAppWindow=%s WindowTextLength=%d WindowText="%s" ', [ // GetWindowText(HWnd, PChar(WindowText), Length(WindowText) + 1) WindowTextLength := GetWindowTextLength(HWnd) īegin // without Length check you can get an access violation IsAppWindow := GetWindowLongPtr(HWnd, GWL_STYLE) and WS_EX_APPWINDOW 0 Program AbbyyFineReader_CreativeCloud_AutoCloseConsoleProject ĪbbyyFineReaderForScanSnap50 = 'ABBYY FineReader for ScanSnap 5.0 ' Ĭonstructor Create( const APrefix: string const AHWnd: HWnd const AParentHWnd: lParam) Ĭonstructor TWindowDump.Create( const APrefix: string const AHWnd: HWnd const AParentHWnd: lParam)
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |