关闭开始菜单(50分)

var h,Fromh:HWND;
begin
h:= FindWindowEx(FindWindow('Shell_TrayWnd',nil),0,'button',nil);
sendmessage (h,WM_CLOSE,0,0);
end;

我用以上方法把开始菜单关闭了,如果再将开始菜单显示呢?

怎么没有一个人回答啊!唉,

你给了它“WM_CLOSE”了啊，不可能恢复的啦
建议把你的程序改一下，用 MoveWindow 把“开始”缩成一点，：），要恢复就恢复它的大小就可以了

隐藏开始菜单：
procedure TForm1.Button1Click(Sender: TObject);
var
hwnd1, hwnd2: HWND;
begin
hwnd1 := FindWindow(PChar('Shell_TrayWnd'), nil);
if hwnd1 <> 0 then
begin
hwnd2 := FindWindowEx(hwnd1, 0, nil, PChar('开始'));
if hwnd2 <> 0 then
begin
ShowWindow(hwnd2 , SW_HIDE);
end;
end;
end;
显示开始菜单：
procedure TForm1.Button1Click(Sender: TObject);
var
hwnd1, hwnd2: HWND;
begin
hwnd1 := FindWindow(PChar('Shell_TrayWnd'), nil);
if hwnd1 <> 0 then
begin
hwnd2 := FindWindowEx(hwnd1, 0, nil, PChar('开始'));
if hwnd2 <> 0 then
begin
ShowWindow(hwnd2 , SW_SHOW);
end;
end;
end;