Mega Code Archive
Explorer in acilis sayfasini yok etmek
<![CDATA[
procedure TForm1.FormCreate(Sender: TObject);
var
MyReg: tregistry;
begin
MyReg := tregistry.Create;
try
MyReg.RootKey := HKEY_CURRENT_USER;
MyReg.OpenKey('Software\Microsoft\Internet Explorer\Main',False);
MyReg.Writestring('Start Page','about:blank');
finally
MyReg.Free;
inherited;
end;
end;
Not: registry unit'ini eklemeyi unutmayalım.
]]>