Assigne FontName For Internet Option With Code in Delphi

Well I guess I'll give this a shot....

There are two key values in the following registry keys that are changed when you change the information on this page you describe:

(windows 2k )
HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\International\Scripts

(Windows 9x)
HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\International


Here is code that is very rough and dirty. When the form first opens it populates the three list boxes. Listbox1 holds the subkeys to the registry setting for IE5.0. ListBox2 holds the values for the currently selected subkey from listbox1 (Form1.OnCreate gives you the value for HKCU\Software\Microsoft\Internet Explorer\International\Scripts) this value is the default_script.

If you click one of the items in ListBox1 the registry will open that subkey and get the Values IEFixedFontName IEPropFontName and Script(Windows 9x). These values will show up in ListBox2. The corresponding fonts for each of these values will show up in listbox3.

To modify one of these fonts (this is the rough and dirty work) you click on listbox2; an inputbox will appear indicating that it needs a new font name. This is where you add your font. When you click okay it over writes the data for that key value.  

The problem here is this: the USER DEFINED key seems to change (i.e. the first time I tried this i found that HKLM\Software\Microsoft\Internet Explorer\International\Scripts\03) was the location for the USER DEFINED key, but when I changed it again it was 40???


anyway here is the code:

Hope this helps.


--------cut below this line---------------

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls, Registry;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    ListBox2: TListBox;
    ListBox3: TListBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    procedure ListBox1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ListBox2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }

  end;

var
  Form1: TForm1;
  Keyname2 : String;
  Defaultscrpt : Integer;
implementation

{$R *.DFM}

procedure TForm1.ListBox1Click(Sender: TObject);
var
  Reg: TRegistry;
  Buffer : Integer;
  i : Integer;
  ValueName,KeyName : String;
  Value : TRegKeyInfo;
  Strings : TStrings;
begin
  Reg := TRegistry.Create;
  Strings := TStringList.Create;
  try
    ListBox2.Clear;
    ListBox3.Clear;
    Reg.RootKey := HKEY_CURRENT_USER;
    i:=ListBox1.ItemIndex;
    KeyName := '\Software\Microsoft\Internet Explorer\International\Scripts\';
    KeyName := KeyName+ListBox1.Items.Strings[i];
    Keyname2 := KeyName;
    if Reg.OpenKey(KeyName,False) then
      begin
        Reg.GetKeyInfo(value);
        Reg.GetValueNames(Strings);
        ListBox2.Items.AddStrings(Strings);
        for i := 0 to ListBox2.Items.Count -1 do
          begin
            ListBox3.Items.Add(reg.ReadString(ListBox2.Items.Strings[i]));
          end;
      end;

  finally
    Strings.Free;
    Reg.Free;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  Reg: TRegistry;
  Buffer : Integer;
  Value : TRegKeyInfo;
  Strings : TStrings;
begin
  Reg := TRegistry.Create;
   Strings := TStringList.Create;
   ListBox1.Clear;
   ListBox2.Clear;
   ListBox3.Clear;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    if Reg.OpenKey('\Software\Microsoft\Internet Explorer\International\Scripts',False) then
      begin

        Reg.GetKeyInfo(value);
        Reg.GetKeyNames(Strings);
        ListBox1.Items.AddStrings(Strings);

        Reg.GetValueNames(Strings);
        ListBox2.Items.AddStrings(Strings);

        Reg.ReadBinaryData(Strings.GetText,Buffer,1000);
        DefaultScrpt := Buffer;
        ListBox3.Items.Add(IntToStr(Buffer));
        Reg.CloseKey;
        end;

  finally
    Strings.Free;
    Reg.Free;

  end;
end;
procedure TForm1.ListBox2Click(Sender: TObject);
var
  Reg: TRegistry;
  Buffer : Integer;
  i : Integer;
  ValueName,KeyName : String;
  Value : TRegKeyInfo;
  Strings : TStrings;
  GetStr : String;
begin
  Reg := TRegistry.Create;
  Strings := TStringList.Create;
  try
    ListBox3.Clear;
    Reg.RootKey := HKEY_CURRENT_USER;
    Keyname := KeyName2;
    if Reg.OpenKey(KeyName,False) then
      begin
        i := ListBox2.ItemIndex;
        GetStr := InputBox('Key Value'+ ListBox2.Items.Strings[i],'Enter: ',' ');
        Reg.WriteString(ListBox2.Items.Strings[i],GetStr);
      end;
  finally
    Strings.Free;
    Reg.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.OnCreate(Sender);
end;

end.


---------cut above this line -------------

Good Luck

GEM