procedure THintWindow.Paint;var R: TRect;begin R := ClientRect; Inc(R.Left, 2); Inc(R.Top, 2); Canvas.Font.Color := Screen.HintFont.Color; DrawText(Canvas.Handle, PChar(Caption), -1, R, DT_LEFT or DT_NOPREFIX or DT_WORDBREAK or DrawTextBiDiModeFlagsReadingOnly); //function DrawText; external user32 name 'DrawTextA';end;截获Api DrawTextA也许可以否则就截屏吧,再利用模识技术把图片中的文字译成文本。