如何隐藏別人的程序 ( 积分: 50 )

因为别人的某个程序A(没有源代码)必须开着，显示在状态区或者任务栏很容易误关掉，<br>因此需要写个程序把A程序隐藏起来，不现在在状态区或者任务栏就行了<br>应该用哪个函数呢？谢谢！

因为别人的某个程序A(没有源代码)必须开着，显示在状态区或者任务栏很容易误关掉，<br>因此需要写个程序把A程序隐藏起来，不现在在状态区或者任务栏就行了<br>应该用哪个函数呢？谢谢！

隐藏窗口的话用 ShowWindow(窗口句柄 ,SW_HIDE);

to 刘麻子:<br> &nbsp; 不行，程序並沒有隱藏，還顯示在狀態那地方

SetWindowLong(Application.Handle, GWL_EXSTYLE,<br> &nbsp; &nbsp;GetWindowLong(Application.Handle, GWL_EXSTYLE) or<br> &nbsp; &nbsp;WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);

樓上地代碼無法實現，<br>我地代碼如下：<br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br> &nbsp;aHandle:THandle;<br> &nbsp;ExtendedStyle:integer;<br>begin<br> &nbsp;aHandle:=FindWindow(nil,'Program Title);<br> &nbsp;IF aHandle&gt;0 then<br> &nbsp; &nbsp;begin<br> &nbsp; &nbsp; &nbsp;ShowWindow(aHandle,SW_HIDE);<br> &nbsp; &nbsp; &nbsp;ExtendedStyle := GetWindowLong (aHandle, GWL_EXSTYLE);<br> &nbsp; &nbsp; &nbsp;SetWindowLong(aHandle, GWL_EXSTYLE, ExtendedStyle OR WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW and not WS_EX_NOPARENTNOTIFY);<br> &nbsp; &nbsp; &nbsp;showmessage('OK');<br> &nbsp; &nbsp;end;

ShowWindow(窗口句柄 ,SW_HIDE)也不行？？<br>那可能是程序已过虑这个消息了。<br><br>观注....

是的，用ShowWindow(窗口句柄 ,SW_HIDE)<br>任務欄是沒有了，但它卻顯示到狀態欄　

多人接受答案了。