Taskbar aktualisieren :
FlashWindow(Handle, True); // The current form
FlashWindow(Application.Handle, True); // The app button on the taskbar
Dimension ermitteln :
procedure TForm1.Button1Click(Sender: TObject);
var
H: HWnd; Rect: TRect;
begin
H:= FindWindow('Shell_TrayWnd', nil);
if H <> 0 then begin GetWindowRect(H, Rect);
Label1.Caption:= 'Left: ' + IntToStr(Rect.Left);
Label2.Caption:= 'Right: ' + IntToStr(Rect.Right);
Label3.Caption:= 'Top: ' + IntToStr(Rect.Top);
Label4.Caption:= 'Bottom: ' + IntToStr(Rect.Bottom);
end;
end;
Taskbar Auschalten und Einschalten :
var
Form1: TForm1;
TaskbarHandle: THandle;
procedure TForm1.Button1Click(Sender: TObject);
begin
EnableWindow(TaskbarHandle, False);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
EnableWindow(TaskbarHandle, True);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
TaskbarHandle:=FindWindow('Shell_TrayWnd', nil);
end;
Taskbar Verstecken :
procedure TForm1.HideTaskBarClick(Sender: TObject);
var
hTaskBar : THandle;
begin
hTaskbar := FindWindow('Shell_TrayWnd', Nil);
ShowWindow(hTaskBar, SW_HIDE);
end;
procedure TForm1.ShowTaskBarClick(Sender: TObject);
var
hTaskBar : THandle;
begin
hTaskbar := FindWindow('Shell_TrayWnd', Nil);
ShowWindow(hTaskBar, SW_SHOWNORMAL);
end;
// oder
procedure TForm1.Button1Click(Sender: TObject);
var
hTaskBar : THandle;
begin
hTaskbar := FindWindow('Shell_TrayWnd', Nil);
ShowWindow(hTaskBar, SW_HIDE);
end;
// Show the windows task bar.
procedure TForm1.Button2Click(Sender: TObject);
var
hTaskBar : THandle;
begin
hTaskbar := FindWindow('Shell_TrayWnd', Nil);
ShowWindow(hTaskBar, SW_SHOWNORMAL);
end;
// Hide the windows start button.
procedure TForm1.Button1Click(Sender: TObject);
var
Rgn : hRgn;
begin
{Hide the start button}
Rgn := CreateRectRgn(0, 0, 0, 0);
SetWindowRgn(FindWindowEx(FindWindow('Shell_TrayWnd', nil),0,'Button',nil),Rgn,true);
end;
// Show the windows start button.
procedure TForm1.Button2Click(Sender: TObject);
begin
{Turn the start button back on}
SetWindowRgn(FindWindowEx(FindWindow('Shell_TrayWnd', nil),0,'Button',nil),0,true);
end;
// Disable the windows start button.
procedure TForm1.Button3Click(Sender: TObject);
begin
EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil),0,'Button',nil),false);
end;
// Enable the windows start button.
procedure TForm1.Button4Click(Sender: TObject);
begin
EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil),0,'Button',nil),true);
end
Text ändern :
procedure TForm1.Button1Click(Sender: TObject);
var
Handle1,Handle2:hwnd;
begin
Handle1:=FindWindow('Shell_TrayWnd',nil); //get the handle of the taskbar
Handle2:=FindWindowEx(Handle1,0,'Button',nil); //get the handle of the start button from the taskbar
SetWindowText(Handle2,PAnsiChar(Edit1.Text)); //set the text
SendMessage(Handle2,Messages.WM_MOUSEMOVE,0,0); //used to refresh the caption of the start button
end;
Keine Kommentare:
Kommentar veröffentlichen