NetVision-Technik

NetVision-Technik (http://www.netvision-technik.de/forum/index.php)
-   Delphi / Pascal (http://www.netvision-technik.de/forum/forumdisplay.php?f=60)
-   -   Taskbar verstecken - zeigen (http://www.netvision-technik.de/forum/showthread.php?t=2883)

TrackerPolizei 27.02.2009 16:51

Taskbar verstecken - zeigen
 
Hiermit versteckt oder zeigz man eben die Taskbar.

Code:

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;


Beispiel:  ShowTaskmanWindow(False);



Alle Zeitangaben in WEZ +1. Es ist jetzt 15:06 Uhr.

Powered by vBulletin® Version 3.8.9 (Deutsch)
Copyright ©2000 - 2024, vBulletin Solutions, Inc.