// Hiermit kann man
die beiden Windowstasten sperren (entsperren).
// Getestet mit D4 unter WinME (nicht
für NT)
// sperren
procedure
TFormx.Button7Click(Sender: TObject);
begin
systemparametersinfo(97,1,nil,0);
end;
// entsperren
procedure
TFormx.Button8Click(Sender: TObject);
begin
systemparametersinfo(97,0,nil,0);
end;
|