Кто владелец taskbar buttons (NT)?
Falk0ner, вс, 06/07/2008 - 15:34.
{
In this article, I wish to describe the useful undocumented function
GetTaskmanWindow. The GetTaskmanWindow function returns a handle to
the window that ownes the taskbar buttons.
Here is the quoting about taskbar from Microsoft MSDN:
"The Microsoft® Windows® interface includes a special application desktop
toolbar called the taskbar.
The taskbar can be used for such tasks as switching between open
windows and starting new applications..."
and "The taskbar includes the Start menu, taskbar buttons,
a shortcut menu, and a status area...".
Unfortunately, Win32 API doesn't contain documented
function that can be used for accessing to the
taskbar so we should again use an undocumented way.
Here is the prototype for GetTaskmanWindow:
function GetTaskmanWindow (): HWND;
As always, Microsoft doesn't provide us with the exports symbols
in the User32.lib for this function, so we should load them dynamically using the
GetProcAddress and GetModuleHandle functions:
}
// getaskmanwnd.cpp (Windows NT/2000)
//
// This example will show you how you can obtain a handle to the
// Windows Taskbar window.
// Translated from C to Delphi by Thomas Stutz
// Original <code>
// (c)1999 Ashot Oganesyan K, SmartLine, Inc
// <a href="mailto:ashot@aha.ru" title="mailto:ashot@aha.ru">mailto:ashot@aha.ru</a>, <a href="http://www.protect-me.com" title="http://www.protect-me.com">http://www.protect-me.com</a>, <a href="http://www.codepile.com
function" title="http://www.codepile.com
function">http://www.codepile.com
function</a> TaskmanWindow: HWND;
type
TGetTaskmanWindow = function(): HWND; stdcall;
var
hUser32: THandle;
GetTaskmanWindow: TGetTaskmanWindow;
begin
Result := 0;
hUser32 := GetModuleHandle('user32.dll');
if (hUser32 > 0) then
begin
@GetTaskmanWindow := GetProcAddress(hUser32, 'GetTaskmanWindow');
if Assigned(GetTaskmanWindow) then
begin
Result := GetTaskmanWindow;
end;
end;
end;
procedure ShowTaskmanWindow(bValue: Boolean);
var
hTaskmanWindow: Hwnd;
begin
hTaskmanWindow := TaskmanWindow;
if hTaskmanWindow <> 0 then
begin
ShowWindow(GetParent(hTaskmanWindow), Ord(bValue));
end;
end;
// Example to Hide the Taskman Window
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowTaskmanWindow(False);
end;
In this article, I wish to describe the useful undocumented function
GetTaskmanWindow. The GetTaskmanWindow function returns a handle to
the window that ownes the taskbar buttons.
Here is the quoting about taskbar from Microsoft MSDN:
"The Microsoft® Windows® interface includes a special application desktop
toolbar called the taskbar.
The taskbar can be used for such tasks as switching between open
windows and starting new applications..."
and "The taskbar includes the Start menu, taskbar buttons,
a shortcut menu, and a status area...".
Unfortunately, Win32 API doesn't contain documented
function that can be used for accessing to the
taskbar so we should again use an undocumented way.
Here is the prototype for GetTaskmanWindow:
function GetTaskmanWindow (): HWND;
As always, Microsoft doesn't provide us with the exports symbols
in the User32.lib for this function, so we should load them dynamically using the
GetProcAddress and GetModuleHandle functions:
}
// getaskmanwnd.cpp (Windows NT/2000)
//
// This example will show you how you can obtain a handle to the
// Windows Taskbar window.
// Translated from C to Delphi by Thomas Stutz
// Original <code>
// (c)1999 Ashot Oganesyan K, SmartLine, Inc
// <a href="mailto:ashot@aha.ru" title="mailto:ashot@aha.ru">mailto:ashot@aha.ru</a>, <a href="http://www.protect-me.com" title="http://www.protect-me.com">http://www.protect-me.com</a>, <a href="http://www.codepile.com
function" title="http://www.codepile.com
function">http://www.codepile.com
function</a> TaskmanWindow: HWND;
type
TGetTaskmanWindow = function(): HWND; stdcall;
var
hUser32: THandle;
GetTaskmanWindow: TGetTaskmanWindow;
begin
Result := 0;
hUser32 := GetModuleHandle('user32.dll');
if (hUser32 > 0) then
begin
@GetTaskmanWindow := GetProcAddress(hUser32, 'GetTaskmanWindow');
if Assigned(GetTaskmanWindow) then
begin
Result := GetTaskmanWindow;
end;
end;
end;
procedure ShowTaskmanWindow(bValue: Boolean);
var
hTaskmanWindow: Hwnd;
begin
hTaskmanWindow := TaskmanWindow;
if hTaskmanWindow <> 0 then
begin
ShowWindow(GetParent(hTaskmanWindow), Ord(bValue));
end;
end;
// Example to Hide the Taskman Window
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowTaskmanWindow(False);
end;
Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php
Отправить комментарий