我要100分,因为我分不多了,要不无偿给你代码都可以
请你另开一帖,并在这里把那帖的地址帖出来
以下是代码,我正好做过这样的东西
----------
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls ,Registry;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
m_Reg: TRegistry;
m_ValueNameList: TStrings;
m_i: integer;
begin
m_ValueNameList := TStringList.Create;
m_Reg := TRegistry.Create;
m_Reg.RootKey := HKEY_CURRENT_USER;
if m_Reg.OpenKey('/Software/Microsoft/Internet Explorer/TypedURLs', false) then
m_Reg.GetValueNames(m_ValueNameList);
for m_i := 0 to m_ValueNameList.Count - 1 do
m_Reg.DeleteValue(m_ValueNameList.Strings[m_i]);
//清除3721自带的网络实名。
m_ValueNameList.Clear;
m_Reg.RootKey := HKEY_USERS;
if m_Reg.OpenKey('/S-1-5-21-515967899-436374069-1202660629-1000' +
'/Software/3721/CnsUrl', false) then
m_Reg.GetValueNames(m_ValueNameList);
for m_i := 0 to m_ValueNameList.Count - 1 do
m_Reg.DeleteValue(m_ValueNameList.Strings[m_i]);
//清除你机器上输入的网络实名
m_ValueNameList.Clear;
m_Reg.RootKey := HKEY_USERS;
if m_Reg.OpenKey('HKEY_USERS/S-1-5-21-515967899-436374069-1202660629-1000' +
'/Software/3721/InputCns', false) then
m_Reg.GetValueNames(m_ValueNameList);
for m_i := 0 to m_ValueNameList.Count - 1 do
m_Reg.DeleteValue(m_ValueNameList.Strings[m_i]);
end;
end.