1:
2:
3:
4:
5:
6:
7:
8:

 
[1] 
name = Web.de
url = www.web.de

[2]
name = Auq.de
url = www.auq.de					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

[main]
anzahl=3

[1]
name=web.de
url=www.web.de

[2]
name=auq.de
url=www.auq.de

[3]
name=google.de
url=www.google.de					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

var
  ini: TIniFile;
  cnt, anz: LongInt;
  name, url: string;
begin
  ini:= TIniFile.Create(FileName);
  anz:= ini.ReadInteger('main', 'anzahl', 0);
  for cnt:= 1 to anz do begin
    name:= ini.ReadString(IntToStr(cnt), 'name', '');
    url:= ini.ReadString(IntToStr(cnt), 'url', '');
    // erstelle jetzt den menü eintrag mit name und url
  end;
  ini.Free;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure TForm1.FormCreate(Sender: TObject); 
var 
  NewItem: TMenuItem; 
  ini: TIniFile; 
  cnt, anz: LongInt; 
  name, url: string; 
begin 
  ini:= TIniFile.Create(FileName); 
  anz:= ini.ReadInteger('main', 'anzahl', 0); 
  for cnt:= 1 to anz do begin

    NewItem := TMenuItem.Create(Self); 
    NewItem.Caption := ini.ReadString(IntToStr(cnt), 'name', ''); 
    NewItem.OnClick := ShellExecute (ini.ReadString(IntToStr(cnt), 'URL', ''); //Ich weiss, dass der Befehl schmarrn ist, aber ich weiss momentan den genauen ShellExecute Befehl nicht.
    Fonts1.Add(NewItem); 

  end; 
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

[1] 
name = Web.de 
url = www.web.de 

[2] 
name = Auq.de 
url = www.auq.de

[4]
name = Irgendwo
url = www.irgendwo.net					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:

uses
  IniFiles, ShellAPI;


// als private Prozedur deklarieren!
procedure TForm1.UrlClick(Sender: TObject);
begin
  with(Sender as TMenuItem) do
    if(Hint <> '') then ShellExecute(self.Handle,'open',pchar(Hint),nil,nil,SW_SHOWNORMAL);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  cIni : TIniFile;
  sl   : TStringList;
  i    : integer;
  mi   : TMenuItem;
begin
  cIni := TIniFile.Create(Filename);
  with cIni do
    try
      sl := TStringList.Create;
      try
        ReadSections(sl);

        if(sl.Count > 0) then
          for i := 0 to sl.Count - 1 do
            begin
              mi         := TMenuItem.Create(nil);
              mi.Caption := ReadString(sl.Strings[i],'name','');
              mi.Hint    := ReadString(sl.Strings[i],'url','');

              if(mi.Caption <> '') and (mi.Hint <> '') then
                begin
                  mi.OnClick := UrlClick;
                  PopupMenu1.Items.Add(mi);
                end;
            end;
      finally
        sl.Free;
      end;
    finally
      Free;
    end;
end;					

1:
2:
3:
4:
5:
6:
7:

cIni := TIniFile.Create(Filename); 
with cIni do 
  try 
    // Mach hier irgendwas mit der INI
  finally 
    Free; 
  end;					

1:

cReg.					

1:

with TreeView1,Items					

1:
2:
3:
4:
5:

procedure TForm1.UrlClick(Sender: TObject); 
begin 
 with(Sender as TMenuItem) do 
  if(Hint <> '') then ShellExecute(self.Handle,'open',pchar(Hint),nil,nil,SW_SHOWNORMAL); 
end;					

1:
2:

Private
  Procedure UrlClick (Sender: tObject);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

Implementation

{...}

procedure TForm1.UrlClick(Sender: TObject); 
begin 
  with Sender as TMenuItem do 
    if Hint <> '' then 
      ShellExecute (
          Handle,
          'open',
          PChar (Hint), 
          nil, nil, 
          SW_SHOWNORMAL
        ); 
End;					

1:
2:
3:

Tpopupmenu1.UrlClick;
Tpopupmenu.UrlClick;
Tform1.UrlClick;