能提供代码吗?

解决方案 »

  1.   

    h : THandle ;h := FindWindow('TForm2','Form2') ;SendMessage(h,WM_SetText,0,Integer(PChar('ssss'))) ;
      

  2.   

    ...h : THandle ;h := FindWindow(PChar('TForm2'),PChar('Form2')) ; // 不转换也可以转换一下好些SendMessage(h,WM_SetText,0,Integer(PChar('ssss'))) ;
      

  3.   

    窗体为 Form2 的程序要运行着
      

  4.   

    h : THandle ;h := FindWindow(nil,'未定标题 - 记事本') ;//之前要运行记事本程序if h<>0 then
      SendMessage(h,WM_SetText,0,Integer(PChar('ssss'))) ;
      

  5.   

    请问执行SendMessage(h,WM_SetText,0,Integer(PChar('ssss'))) ;没有反应,还有如何给分
      

  6.   

    楼上几位说的都对阿,FindWindow,第二个参数为窗体名,如果得到的值不空就说明它正在运行嘛。