请问“u2m(痛并快乐着)”如何查窗体句柄，有具体例子吗，谢谢

[chinazhf]

能提供代码吗？

[wjlsmail]

h : THandle ;

h := FindWindow('TForm2','Form2') ;

SendMessage(h,WM_SetText,0,Integer(PChar('ssss'))) ;

[wjlsmail]

...

h : THandle ;

h := FindWindow(PChar('TForm2'),PChar('Form2')) ; // 不转换也可以转换一下好些

SendMessage(h,WM_SetText,0,Integer(PChar('ssss'))) ;

[chinazhf]

没有反应，请问如何判断它是否运行

[wjlsmail]

窗体为 Form2 的程序要运行着

[Taken]

h : THandle ;

h := FindWindow(nil,'未定标题 - 记事本') ;//之前要运行记事本程序

if h<>0 then
SendMessage(h,WM_SetText,0,Integer(PChar('ssss'))) ;

[chinazhf]

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

[u2m]

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

[chinazhf]

谢谢各位，请问点击哪里给分啊