发信人: lamkh()
整理人: teleme(2001-01-03 15:29:39), 站内信件
|
【 在 xu_ying (kingxu) 的大作中提到: 】
: 如何隐藏windows的启动菜单和右键菜单?
procedure hideTaskbar;
var wndHandle : THandle;
wndClass : array[0..50] of Char;
begin
StrPCopy(@wndClass[0], 'Shell_TrayWnd');
wndHandle := FindWindow(@wndClass[0], nil);
// This hides the taskbar
ShowWindow(wndHandle, SW_HIDE);
end;
procedure showTaskbar;
var wndHandle : THandle;
wndClass : array[0..50] of Char;
begin
StrPCopy(@wndClass[0], 'Shell_TrayWnd');
wndHandle := FindWindow(@wndClass[0], nil);
// This restores the taskbar
ShowWindow(wndHandle, SW_RESTORE);
end;
-- ※ 来源:.月光软件站 http://www.moon-soft.com.[FROM: 61.143.213.64]
|
|