关于TextOut，如何在其他程序的窗口中输出文字？

Question

myHandl:=FindWindow(nil,'其他程序窗口');
myHDC:=GetDC(myHandle);
TextOut(myHDC,100,100,'输出文字',Length('输出文字'));这样写似乎不行啊，应该如何做呢？

Answer 1

sendmessage(myhdc,wm_settext,0,pchar(s));

Answer 2

sendmessage(myhdc,wm_settext,0,pchar(s));
如何控制输出文字的位置呢？

Answer 3

sendmessage(myhdc,wm_settext,0,pchar(s));这个是设置其他窗口的标题的，就是form的caption

Answer 4

sendmessage的最后一个参数系统要求是INTEGER啊，怎么会是STRING型呢，请指教

Answer 5

楼上兄弟，看来你应该去补习一下Object Pascal了
PChar并非string类型，其实其本质是一个指针，指向一个string的开始位置它的存在正是为了与API函数的兼容，通常在一个API中，我们需要将一个string类型的参数传递给API，但是该API的该参数类型是Integer，通常我们会这样处理mypchar := 'your synax';
用Integer(mypchar)带入即可，程序会为你自动处理的