Zitat von EngeL [Uncreativ.de]Hallo,
heute zeige ich euch wie man seine Anwendung im Vollbildmodus laufen lassen kann....schaut zu:
Beim Starten der Anwendung (onFormCreate):
Code
procedure TForm1.FormCreate(Sender: TObject);varHTaskbar:HWND; //Variable f?r das finden der taskbarbegintry//Zum finden der Taskbar (also wo das teil ist...)HTaskBar:=FindWindow('Shell_TrayWnd', nil);//Schaltet die Taskbar ausEnableWindow(HTaskBar, False);//Und macht sie dann unsichtbarShowWindow(HTaskbar,SW_HIDE);finallywith Form1 do //tue dies mit der form1...beginBorderStyle := bsNone; //Schaltet die umrandung des fensters aus also das x u.s.w.FormStyle:=fsStayOnTop; //Macht das fenster immer in den VordergrundLeft:=0; //damit links und rechts vom bildschirmrand alles dicht istTop:=0; //damit oben und unten vom bildschirmrand alles dicht istHeight:=Screen.Height; //h?he des fenstersWidth:=Screen.Width; //breite des fenstersend;end;Zitat von EngeL [Uncreativ.de]Beim Schlie?en der Anwendung (onFormClose):
Code
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
HTaskbar: HWND; //Variable f?r das finden der taskbar
begin
//Findet die taskbar
HTaskBar := FindWindow('Shell_TrayWnd', nil);
//Schaltet die taskbar wieder ein
EnableWindow(HTaskBar, True);
//Macht die taskbar wieder sichtbar
ShowWindow(HTaskbar, SW_SHOW);
end;