unit1.pas

This unit use for client for delphi, this a practise for try for programmer. included a function hac

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    Button12: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TurnSysKeysOff;
var
  OldVal : LongInt;
begin
  SystemParametersInfo (97, Word (True), @OldVal, 0)
end;

procedure TurnSysKeysBackOn;
var
  OldVal : LongInt;
begin
  SystemParametersInfo (97, Word (False), @OldVal, 0)
end; 

procedure SystemKeys(Disable: Boolean);
var
OldVal : LongInt;
begin
SystemParametersInfo(SPI_SCREENSAVERRUNNING,Word(Disable),@OldVal,0);
end;

procedure CoolSwitch(i : boolean);
var
  reg : TRegistry;
begin
  reg := TRegistry.Create;
  reg.RootKey := HKEY_CURRENT_USER;
  reg.OpenKey('Control Panel', True);
  reg.OpenKey('Desktop ', True);
  //reg := TRegistry.Create;
  //reg.RootKey := HKEY_CURRENT_USER;
  //reg.OpenKey('.DEFAULT', True);
  //reg.OpenKey('Control Panel', True);
  //reg.OpenKey('Desktop ', True);

  if i = true then
  begin
    reg.WriteString('CoolSwitch','0');
  end
  else
  if i = false then
  begin
    reg.DeleteValue('CoolSwitch');
  end;
  reg.CloseKey;
end;

procedure DisableTaskMgr(bTF: Boolean);
var
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  reg.RootKey := HKEY_CURRENT_USER;
  reg.OpenKey('Software', True);
  reg.OpenKey('Microsoft', True);
  reg.OpenKey('Windows', True);
  reg.OpenKey('CurrentVersion', True);
  reg.OpenKey('Policies', True);
  reg.OpenKey('System', True);

  if bTF = True then
  begin
    reg.WriteString('DisableTaskMgr', '1');
  end
  else
  if bTF = False then
  begin
    reg.DeleteValue('DisableTaskMgr');
  end;
    reg.CloseKey;
  end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  form2.Show;
  form1.Hide;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
SystemKeys(True);
end;

procedure TForm1.FormCreate(Sender: TObject);

begin
  ShowWindow(Application.Handle, SW_HIDE);
  SetWindowLong(Application.Handle, GWL_EXSTYLE,GetWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW );
  ShowWindow(Application.Handle, SW_SHOW);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
application.Terminate;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  DisableTaskMgr(True);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  DisableTaskMgr(false);
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
  TurnSysKeysOff;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
  TurnSysKeysBackOn;
end;

procedure TForm1.Button7Click(Sender: TObject);
var
   Rgn : hRgn;
begin
  {Hide the start button}
   Rgn := CreateRectRgn(0, 0, 0, 0);
   SetWindowRgn(FindWindowEx(FindWindow('Shell_TrayWnd', nil),0,'Button',nil),Rgn, true);
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
  {Turn the start button back on}
   SetWindowRgn(FindWindowEx(FindWindow('Shell_TrayWnd', nil),0,'Button',nil),0,true);
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
  {Disable the start button}
   EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil),0, 'Button', nil),false);
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
  {Enable the start button}
   EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil),0,'Button',nil),true);
end; 

procedure TForm1.Button11Click(Sender: TObject);
begin
  CoolSwitch(true);
end;

procedure TForm1.Button12Click(Sender: TObject);
begin
  CoolSwitch(false);
end;

end.