Başlangıç > Kodlar > Delphi ile Görev yöneticisini (Task manager) devredışı bırakmak

Delphi ile Görev yöneticisini (Task manager) devredışı bırakmak

Form üzerine iki RadioButonu ekleyin


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Registry;

type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
Label1: TLabel;
procedure RadioButton2Click(Sender: TObject);
procedure RadioButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
procedure DisableTaskManager();
var DTM: Tregistry;
begin
DTM:= tregistry.Create;
DTM.RootKey:= HKEY_CURRENT_USER;
DTM.OpenKey(‘Software\Microsoft\Windows\CurrentVersion\Policies\system\’,false);
DTM.WriteInteger(‘DisableTaskMgr’,1);
DTM.Free;
end;

procedure EnableTaskManager();
var ETM: Tregistry;
begin
ETM:= tregistry.Create;
ETM.RootKey:= HKEY_CURRENT_USER;
ETM.OpenKey(‘Software\Microsoft\Windows\CurrentVersion\Policies\system\’,false);
ETM.WriteInteger(‘DisableTaskMgr’,0);
ETM.Free;

end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
EnableTaskManager;
end;

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
DisableTaskManager;
end;

end.


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: