如何不让开始菜单出现

[I_Love_Soft]

如题:

这个问题可能很难吧!

[Bird1945]

procedure Button(boolVisible: Boolean);
var
Tray, Child: hWnd;
C: array[0..127] of Char;
S: string;
begin
Tray := FindWindow('Shell_TrayWnd', nil);
Child := GetWindow(Tray, GW_CHILD);
while Child <> 0 do
begin
if GetClassName(Child, C, SizeOf(C)) > 0 then
begin
S := StrPas(C);
if UpperCase(S) = 'BUTTON' then
begin
startbutton_handle := child;
ShowWindow(Child, Integer(boolVisible))
end;
end;
Child := GetWindow(Child, GW_HWNDNEXT);
end;
end;

[yangxd]

很难实现，如你所想相差很远。

[luoweicaisd]

up

[banxian]

不知道,偶有一次使用HOOK设置了任务栏的属性后任务栏消失了，开始菜单悬空出现，然后，然后我就不敢乱点了，赶快去保存偶的psd文件去了，哈哈

[dyxfkj]

procedure TForm1.Button1Click(Sender: TObject);
var
wndHandle : THandle;
wndClass : array[0..50] of Char;
begin
StrPCopy(@wndClass[0], 'Shell_TrayWnd');//-----隐藏任务栏!
wndHandle := FindWindow(@wndClass[0], nil);
ShowWindow(wndHandle, SW_HIDE);
End;

procedure TForm1.Button2Click(Sender: TObject);
var
wndHandle : THandle;
wndClass : array[0..50] of Char;
begin
StrPCopy(@wndClass[0], 'Shell_TrayWnd');//-----显示任务栏
wndHandle := FindWindow(@wndClass[0], nil);
ShowWindow(wndHandle, SW_RESTORE);
end;