?? zonghekuangjiaunit.pas
字號:
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -