Получить дескриптор окна, которое владеет кнопками запущенных программ на панели задач

Code:

{

 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: Ashot Oganesyan K, SmartLine, Inc

function 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;