Operations in the Delphi Browser

// Obtain the default Internet browser function getdefashshellhttp: string; var REG: Tregistry; strword: string; begin strword: = ''; Reg: = Tregistry. create; Reg. rootkey: = hkey_classes_root; If Reg. keyexists ('HTTP \ shell \ open \ command') then begin Reg. openkey ('HTTP \ shell \ open \ command', false); strword: = reg. readstring (''); Reg. closekey; end; Reg. free; Reg: = Tregistry. create; Reg. rootkey: = hkey_classes_root; If Reg. keyexists ('htmlfile \ shell \ open \ command') then begin Reg. openkey ('htmlfile \ shell \ open \ command', false); strword: = strword + ',' + Reg. readstring (''); Reg. closekey; end; Reg. free; Reg: = Tregistry. create; Reg. rootkey: = hkey_classes_root; If Reg. keyexists ('mhtmlfile \ shell \ open \ command') then begin Reg. openkey ('mhtmlfile \ shell \ open \ command', false); strword: = strword + ',' + Reg. readstring (''); Reg. closekey; end; Reg. free; Reg: = Tregistry. create; Reg. rootkey: = hkey_classes_root; If Reg. keyexists ('internetshortcut \ shell \ open \ command') then begin Reg. openkey ('internetshortcut \ shell \ open \ command', false); strword: = strword + ',' + Reg. readstring (''); Reg. closekey; end; Reg. free; Result: = strword; end; // set your own Internet browser function setdefashshellhttp (using line: string): Boolean; var REG: Tregistry; begin result: = false; Reg: = Tregistry. create; Reg. rootkey: = hkey_classes_root; // Registry address: If Reg. keyexists ('HTTP \ shell \ open \ command') then begin try Reg. openkey ('HTTP \ shell \ open \ command', true); // Registry address: Reg. writestring ('', cmdline); finally Reg. closekey; end; Reg. free; Reg: = Tregistry. create; Reg. rootkey: = hkey_classes_root; // Registry address: If Reg. keyexists ('htmlfile \ shell \ open \ command') then begin try Reg. openkey ('htmlfile \ shell \ open \ command', true); // Registry address: Reg. writestring ('', cmdline); finally Reg. closekey; end; Reg. free; Reg: = Tregistry. create; Reg. rootkey: = hkey_classes_root; // Registry address: If Reg. keyexists ('mhtmlfile \ shell \ open \ command') then begin try Reg. openkey ('mhtmlfile \ shell \ open \ command', true); // Registry address: Reg. writestring ('', cmdline); finally Reg. closekey; end; Reg. free; Reg: = Tregistry. create; Reg. rootkey: = HKEY_CURRENT_USER; // Registry address: If Reg. keyexists ('\ Software \ clients \ startmenuinternet') then begin try Reg. openkey ('\ Software \ clients \ startmenuinternet', true); // Registry address: Reg. writestring ('', application. title); finally Reg. closekey; end; Reg. free; // The following is the solution REG: = Tregistry for systems later than windwos 7. create; Reg. rootkey: = hkey_classes_root; // Registry address: If Reg. keyexists ('\ microblueweb') then begin try Reg. openkey ('\ microblueweb', true); // Registry address: If not Reg. keyexists ('Shell \ open \ command') then begin Reg. createkey ('Shell \ open \ command'); end; Reg. openkey ('Shell \ open \ command ', true); // Registry address: Reg. writestring ('', cmdline); finally Reg. closekey; end else begin try Reg. createkey ('microweb'); Reg. openkey ('\ microblueweb', true); // Registry address: Reg. createkey ('Shell \ open \ command'); Reg. openkey ('Shell \ open \ command ', true); Reg. writestring ('', cmdline); finally Reg. closekey; end; Reg. free; Reg: = Tregistry. create; Reg. rootkey: = HKEY_CURRENT_USER; // Registry address: If Reg. keyexists ('\ Software \ Microsoft \ Windows \ shell \ associations \ urlassociations \ HTTP \ userchoice') then begin try Reg. openkey ('\ Software \ Microsoft \ Windows \ shell \ associations \ urlassociations \ HTTP \ userchoice', true); // Registry address: Reg. writestring ('progid', 'microblueweb'); finally Reg. closekey; end; Reg. free; Result: = true; end; // register your browser function regeditweb (using line, path: string): Boolean; var REG: Tregistry; begin result: = false; Reg: = Tregistry. create; Reg. rootkey: = HKEY_LOCAL_MACHINE; // Registry address: If Reg. keyexists ('\ Software \ clients \ startmenuinternet') then begin try Reg. openkey ('\ Software \ clients \ startmenuinternet', true); // Registry address: If not Reg. keyexists ('\ Software \ clients \ startmenuinternet \' + cmdline) then begin Reg. createkey (cmdline); end; Reg. openkey (cmdline, true); // Registry address: Reg. writestring ('', using line); if not Reg. keyexists (using line + '\ shell \ open \ command') then begin Reg. createkey ('Shell \ open \ command'); end; Reg. openkey ('Shell \ open \ command ', true); Reg. writestring ('', PATH); finally Reg. closekey; end; Reg. free; Result: = true; end;