调用帮助文件(*.chm) 大家帮忙在线等待>>> ( 积分: 100 )

如何打开一个帮助文件(*.chm)的指定到XX标题

如何打开一个帮助文件(*.chm)的指定到XX标题

你的意思是打开chm文件后  被打开的chm 标题你自己定义？

var<br>h:HWND;<br>begin<br>shellexecute(handle,'open','c:/1.chm',nil,nil,1);<br>h:=FindWindow(nil,'chm窗体标题'); <br>SendMessage(h,WM_SETTEXT,0,Integer(pchar('你好')));//修改标题<br>end;

ShellExecute(Handle,pchar('open'),pchar('help.chm'),nil,pchar(ExtractFilePath(application.ExeName)+'/'),2);<br> &nbsp; &nbsp;Lhandle:=findwindow(nil,'&amp;frac12;&amp;oslash;&amp;Iuml;ú&amp;acute;&amp;aelig;&amp;sup1;&amp;Uuml;&amp;Agrave;í&amp;Iuml;&amp;micro;&amp;Iacute;&amp;sup3;');<br> &nbsp; &nbsp;//sendmessage(Lhandle,wm_settext,0,longword(pchar('abc')));<br> &nbsp; &nbsp;if Lhandle&lt;&gt;0 then<br> &nbsp; &nbsp; &nbsp; &nbsp;SetWindowText(Lhandle,'test');

var<br>h:HWND;<br>begin<br>shellexecute(handle,'open','c:/1.chm',nil,nil,1);<br>sleep(3000);<br>h:=FindWindow(nil,'chm窗体标题'); <br>SendMessage(h,WM_SETTEXT,0,Integer(pchar('你好')));//修改标题<br>end;