Windows Taskleiste Tipps & tricks

Windows Taskleiste Tipps & tricks

Windows Taskleiste Tipps & tricks : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Einige 'Geheimnisse' der Windows-Taskleiste
Wie aus Ihrem Programm einen 'Start'-Knopf drücken:
Prozedur TForm1.PressStart(Sender: TObject);
var
hTaskBar, h: HWND;
hDCScreen: HDC;
ScreenHeight: DWORD;
beginnen
finden Sie die Schaltfläche 'Start'
hDCScreen: = GetDC(0);
ScreenHeight: = GetDeviceCaps(hDCScreen,VERTRES);
ReleaseDC (0, hDCScreen);
hTaskBar: = FindWindow ('Shell_TrayWnd', null);
h: = GetWindow (hTaskBar, GW_CHILD);
Drücken Sie die Schaltfläche 'Start'
SendMessage (hButton, WM_LBUTTONDOWN,MK_LBUTTON,LOWORD(5) +
HIWORD(ScreenHeight-20));
'Start'-Button ausblenden
ShowWindow (SW_HIDE, h);
Sleep(2000);
Schaltfläche 'Start' anzeigen
ShowWindow (h, SW_NORMAL);
Ende;
Wie zum Ausblenden und Anzeigen der Windows-Taskleiste:
Prozedur TForm1.HideTaskBar(Sender: TObject);
var
H: HWND;
beginnen
H: = FindWindow ('Shell_TrayWnd', null);
ShowWindow (H, SW_HIDE);
Sleep(2000);
ShowWindow (H, SW_SHOW);
Ende;
Wie man eine Anwendungsschaltfläche von Windows-Taskleiste ausblenden:
Prozedur TForm1.HideButton(Sender: TObject);
beginnen
ShowWindow(Application.Handle,SW_HIDE);
Ende;
Prozedur TForm1.ShowButton(Sender: TObject);
beginnen
ShowWindow(Application.Handle,SW_SHOW);
Ende;
Das gleiche Beispiel, aber mit Windows API:
var
M_hWnd: HWND;
hMain: HWND;
Prozedur TForm1.CreateWindow(Sender: TObject);
beginnen
M_hWnd: = CreateWindowEx (0,'staic', '', WS_POPUP, 0,0,1600,1200,
0, 0, 0, null);
hMain: = CreateWindowEx (0,' statisch', 'Hauptfenster',
WS_POPUP + WS_VISIBLE, 40,50,200,300, M_hWnd, 0, 0, null);
Ende;
Prozedur TForm1.HideWindow(Sender: TObject);
beginnen
Button ausblenden
ShowWindow(hMain,SW_HIDE);
Ende;
Prozedur TForm1.ShowWindow(Sender: TObject);
beginnen
Schaltfläche für anzeigen
ShowWindow(hMain,SW_SHOW);
Ende;