最近碰到一个怪问题，关于任务栏，一定来看看哦，悬赏200分！！！(200分)

我一程序，单独运行时，没有任何问题，可是当跟另一个网吧较常用的软件（万象幻境）好像有点冲突，
同时运行在内存时，当用户随便运行一　软件时，则出现开始菜单“掉”下去了，象隐藏掉
了样的，但又不同于隐藏，因为自动隐藏的话，鼠标移至上面时会自动显示，而这种情况则
需点击一下，这样使用户甚为不便，特　别象正在输入汉字，突然没有提示条。。。。
不知哪位大侠知道解决？？？？急。。！！

是否有获取状态的方法。如：隐藏，显示，。。等。。

procedure HideTaskBar;
var
; hApp: HWND;
; rcWork: TRect;
begin
; { get the taskbar handle }
; hApp := FindWindow('Shell_TrayWnd', '');
; if hApp <> 0 then begin
; ; { hide taskbar }
; ; ShowWindow(hApp, SW_HIDE);
; ; { set workarea to full screen }
; ; //FullScreenArea;
; end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
; HideTaskBar;
end;

procedure ShowTaskBar;
var
; hApp: HWND;
; rcApp, rcWork: TRect;
begin
; { get the taskbar handle }
; hApp := FindWindow('Shell_TrayWnd', '');
; if hApp <> 0 then begin
; ; { restore taskbar }
; ; ShowWindow(hApp, SW_RESTORE);
; ; { set workarea excluding taskbar }
; ; //StandardArea;
; end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
; ShowTaskBar;
end;

还是显示不了！！！

接受答案了.