Mit dem folgenden Source kann man den Taskmanager sperren
(wie der Titel ja schon sagt... *g*)
Nat?rlich kann man das umgehen wenn man z.B. den Schalter
in der Registrie wieder frei gibt, aber um jemanden einfach ein bisschen zu ?rgern oder aber ein bisschen Zeit zu gewinnen funktioniert?s wunderbar.
Meisst ist an Schulrechner auch auf diese einfache Art der Taskmanager gesperrt, den man hiermit nat?rlich dann auch frei geben k?nnte.....
Desweiteren l?sst sich das Programm auch mit Parametern aufrufen, aber das seht Ihr ja selber...
Have Fun 
Code
unit Main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Menus;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
closeTimer: TTimer;
MainMenu1: TMainMenu;
mm_datei: TMenuItem;
mm_datei_beenden: TMenuItem;
mm_info: TMenuItem;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure closeTimerTimer(Sender: TObject);
procedure mm_datei_beendenClick(Sender: TObject);
procedure mm_infoClick(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
uses
Registry,
f_info,
u_globkons;
{$R *.dfm}
//..............................................................................
procedure Setze_Wert_fuer_Taskmanager(aWert:Integer);
var
regist: TRegistry;
begin
regist:=TRegistry.Create;
try
regist.RootKey := HKEY_CURRENT_USER;
regist.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\SYSTEM\',true);
regist.WriteInteger('disabletaskmgr',aWert);
finally
regist.Free;
end;
end;
//..............................................................................
procedure TForm1.Button1Click(Sender: TObject);
begin
Setze_Wert_fuer_Taskmanager(1);
end;
//..............................................................................
procedure TForm1.Button2Click(Sender: TObject);
begin
Setze_Wert_fuer_Taskmanager(0);
end;
//..............................................................................
procedure TForm1.FormCreate(Sender: TObject);
var
i : Integer;
param : String;
begin
// Programmaufrufparameter auswerten:
i := ParamCount;
if i >= 1 then
begin
for i:=1 to ParamCount do
begin
param := ParamStr(i);
try
Setze_Wert_fuer_Taskmanager(StrToInt(param));
except
//Falls Fehler, keine Meldung machen....
end;
end;
end;
end;