请问如何搜索出已经运行的其它的程序，必使之在状态栏上不可见？

Question

var
  HWndOpts: HWND;
  HWndOpts := Winprocs.FindWindow(nil,FileTitle );
  if HWndOpts <> 0 then
     SendMessage(HWndOpts, WM_CLOSE, 0, 0);如果让它在状态栏中不见就不知道了。

Answer 1

将窗口扩展属性加上 WS_EX_TOOLWINDOW 就可以了，不知道你的应用情况，假定你能找到其窗口类名或窗口标题（用VC带的SPY++和Delphi带的WinSight能找到），然后你在程序中可以用FindWindow找到该窗口的句柄，再用GetWindowLong和SetWindowLong就行了。var
  wnd: HWND;
begin
  wnd := FindWindow( '窗口类名', nil );
  SetWindowLong( wnd, GWL_EXSTYLE, GetWindowLong(wnd, GW_EXSTYLE) and WS_EX_TOOLWINDOW );
end;===================================
http://i58.boy.net.cn/ (抱歉，未建好)
邮件列表，大家互助, 请来信: [email protected]
如果是Yahoo!用户，请访问: http://cn.groups.yahoo.com/group/delphi_sky/
或： http://agui.delphibbs.com/

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  WindowTitle : String;
  WinHwnd: hWnd;
begin
  WindowTitle := '无标题 - 记事本'; //指定窗口
  WinHwnd := FindWindow(nil, Pchar(WindowTitle));
  if WinHwnd <> 0 then
  begin
    if WinHided then
    begin
      WinHided := False;
      ShowWindow(WinHwnd, SW_SHOW);
    end
    else begin
      WinHided := True;
      ShowWindow(WinHwnd, SW_HIDE);
    end;
  end
  else
    Application.MessageBox ('指定的窗口未找到。',
                            '提示',
                            MB_OK + MB_ICONINFORMATION);
end;//如果不知道窗口请用回调函数先枚举出所以可见窗口即可使用上面的例子将其隐藏或显示。

Answer 3

谢谢了，用 Greenberet(百萬石) 可以办到~~刚才要给分，系统有错误，明天再给吧多谢了~：）））））好happy