Habe es schließlich so gemacht und es läuft super!!! Vielen Dank an alle Beteiligten. Vielleicht kann mir auch noch jemand sagen, wie ich den dynamischen Items noch Short-Cuts und Bitmaps hinzufügen kann. Das Problem ist nämlich, dass ich den ShortCut nicht in der Konfigurationsdatei speichern und die Bitmap nicht über einen Pfad angeben kann.
Aber trotzdem vielen Dank!
Und hier mein Code:
Delphi-Quellcode:
Application.ShowMainForm:= false;
//MenuItem:= TMenuItem.Create(Self);
//Variablen "nullen"
i:=0;
//ini-Datei einlesen
Datei:=TStringList.Create;
if FileExists('Verknüpfungen.ini') then
begin
Datei.LoadFromFile(ExtractFilePath(Application.ExeName)+'Verknüpfungen.ini');
end
else
begin
ShowMessage('Die Datei "Verknüpfungen.ini" konnte nicht gefunden werden und wird deshalb neu erstellt!');
Datei.SaveToFile('Verknüpfungen.ini');
close();
end;
//Liste der Verknüpfungen zusammenbauen
while i < Datei.Count do
begin
try
MenuItem:= TMenuItem.Create(Self);
MenuItem.Caption:=Datei.Strings[i];
MenuItem.OnClick:=Anwendung;
MenuItem.Tag:=i+1;
PopupMenu1.Items.Add(MenuItem);
//MenuItem.Free;
i:=i+2;
except
//
end;
end;
i:=0;