zonghekuangjiaunit.pas

一个综合管理的程序,包含ie属性调用,控制面版打开,解锁注册表

unit zonghekuangjiaunit;

interface

uses
  Windows, Messages, SysUtils, StrUtils,Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus,shellapi,registry,ExtCtrls, Buttons;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Image1: TImage;
    BitBtn1: TBitBtn;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);



  private

       { Private declarations }
  public
    { Public declarations }
  end;

var
 
  Form1: TForm1;
  X:integer;
implementation

uses coolbar, treesviewedit;




{$R *.dfm}


function GetSysDir:String;   //取系统目录取得的结果包含system32
var p:Pchar;

begin
GetMem(P,255);
GetSystemDirectory(p,254);
Result:=p;
Freemem(p);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
   {启动控制面板}
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL',9);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  {Internet 属性-常规}
x:=winexec('rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,0',9);
end;


procedure TForm1.Button3Click(Sender: TObject);
begin
  texteditform.Show;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
 listfile.show;
end;




procedure TForm1.BitBtn1Click(Sender: TObject);

var
   Sysdir,TempStr:string;
   SysdirlengthPos:Integer;
   Reg: TRegistry;
begin
      Reg := TRegistry.Create;
      Reg.RootKey := HKEY_CURRENT_USER;
        if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\System',True) then
           begin

             Reg.writeinteger('DisableRegistryTools', 0); //如果打开注册表成功写入键值
             Reg.CloseKey;
             Reg.Free;
           end ;
      Reg := TRegistry.Create;
      Reg.RootKey := HKEY_USERS;
        if Reg.OpenKey('\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Policies\System',True) then
           begin

             Reg.writeinteger('DisableRegistryTools', 0); //如果打开注册表成功写入键值
             Reg.CloseKey;
             Reg.Free;
           end ;
 Sysdir:=GetSysDir;
 SysdirlengthPos:=Length(Sysdir);
 TempStr:=Copy(Sysdir,1,SysdirlengthPos-8);//得到windows路径到TempStr串中
  // WinExec(PChar(tempstr+'regedit.exe'), SW_SHOWNORMAL);
 ShellExecute(handle,'open',PChar(tempstr+'regedit.exe'),nil,nil,SW_SHOWNORMAL);
  //用api调用注册表编辑器
 end ;
end.