this slowpoke moves

Work with Taskbar

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

Beliebte Posts

Translate