Dieser Code stammt von
Enrico's Delphi Pages
Bei den Tips unter System
Delphi-Quellcode:
var
Affengriff: Longbool;
//Taskmanager Aufruf verbieten
procedure TForm1.Button1Click(Sender: TObject);
begin
SystemParametersInfo(97,Word(True),@Affengriff,0);
end;
//Taskmanager wieder erlauben
procedure TForm1.Button2Click(Sender: TObject);
begin
SystemParametersInfo(97,Word(False),@Affengriff,0); //entsperrt
end;
Ich habe es nicht getestet, also keine Garantie, dass es funktioniert.