ext. Programmstart + maximieren

[bluescreen25]

Reaktiviert und funzt:

Delphi-Quellcode:

procedure TForm1.SetWorkArea;
var Dummy:TRect;
begin
  ShowTaskBar(false);//Taskleiste verstecken
  // Aktuellen Zustand auslesen
  SystemParametersInfo(SPI_GetWorkArea, 0, Pointer( @MerkScreen), 0);
  SetWindowPos(Form1.Handle,HWND_TOPMOST,0, 0, 0, 0,SWP_NOMOVE or SWP_NOSIZE or SWP_SHOWWINDOW);
  Dummy := MerkScreen;
  Dummy.Bottom := Dummy.Top + Screen.Height;
  // neues WorkArea festlegen
  SystemParametersInfo( SPI_SetWorkArea,0,Pointer( @Dummy),0);
  MakeWindowOpaque (Form1, Transparenz); //Transparenz an
  SetCursorPos(extFloating_X+(extFloating_W div 2),extFloating_Y+(extFloating_H  div 2));
end;

Gruß, bluescreen25