// Hiermit kann man
die Taskanzeige über
Strg+Alt+Entf
bzw.
Alt+Tab function TaskManOnOff(w: uint): boolean; begin result := systemparametersinfo(SPI_SCREENSAVERRUNNING, w, nil, 0); end; // abschalten procedure TForm1.Button1Click(Sender: TObject); begin TaskManOnOff(1); end; // einschalten procedure TForm1.Button2Click(Sender: TObject); begin TaskManOnOff(0); end; |