const
K ='\Software\Microsoft\Windows\CurrentVersion\Policies\System';
KK ='\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer';
A ='Network\Logon';
AA ='.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Policies\Network';
B='.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer';控制面板,打印机if CtrlCode[0]+CtrlCode[1]+CtrlCode[2]+CtrlCode[3]='face'
then begin
with
Tregistry.Create do
try
RootKey:=HKEY_CURRENT_USER;
openkey(kk,true);
writeInteger('NoSetFolders',1);
closeKey;
finally
free;
end;
end;//禁止使用控制面版禁止使用注册表
if CtrlCode[0]+CtrlCode[1]+CtrlCode[2]+CtrlCode[3]+CtrlCode[4]+CtrlCode[5]
+CtrlCode[6]='regedit' then
begin
with
Tregistry.Create do
try
RootKey:=HKEY_CURRENT_USER;
openkey(k,true);
writeInteger('DisableRegistryTools',1);
closeKey;
finally
free;
end;
end; //禁止使用注册表嘿嘿这是我程序中的一端,复制下来给你,改动下就OK应该
K ='\Software\Microsoft\Windows\CurrentVersion\Policies\System';
KK ='\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer';
A ='Network\Logon';
AA ='.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Policies\Network';
B='.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer';控制面板,打印机if CtrlCode[0]+CtrlCode[1]+CtrlCode[2]+CtrlCode[3]='face'
then begin
with
Tregistry.Create do
try
RootKey:=HKEY_CURRENT_USER;
openkey(kk,true);
writeInteger('NoSetFolders',1);
closeKey;
finally
free;
end;
end;//禁止使用控制面版禁止使用注册表
if CtrlCode[0]+CtrlCode[1]+CtrlCode[2]+CtrlCode[3]+CtrlCode[4]+CtrlCode[5]
+CtrlCode[6]='regedit' then
begin
with
Tregistry.Create do
try
RootKey:=HKEY_CURRENT_USER;
openkey(k,true);
writeInteger('DisableRegistryTools',1);
closeKey;
finally
free;
end;
end; //禁止使用注册表嘿嘿这是我程序中的一端,复制下来给你,改动下就OK应该
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货