Hallo,
ich habe in meinem Programm ein Hauptmenü-Eintrag namens 'Templates'. Darunter befindet sich ein Eintrag 'Standard' und ein Break. Nun wird bei CreateForm die unten stehende Prozedur aufgerufen. Es soll nun für jede Datei, die durch die Prozedur gefunden wird ein weiterer Eintrag im Menü hinzugefügt werden. Es soll dann so aussehen, wie es in diesem
Screenshot aussieht.
Delphi-Quellcode:
procedure TMainForm.GetTemplates(Sender: TObject);
var
I: Integer;
AppName, AppVersion: String;
Ini: TiniFile;
begin
FileListBox1.Directory := MyPath+'Templates\';
for I:=0 to FileListBox1.Items.Count-1 do
Ini:=TIniFile.Create(MyPath+'Templates\'+FileListBox1.Items.Strings[I]);
try
AppName := Ini.ReadString('Info','Program','');
AppVersion := Ini.ReadString('Info','Version','');
finally
Ini.Free;
end;
if (Appname='58745521456') and (AppVersion='1.0') then
begin
//Hier sollte dann die Menü-Einträge erstellt werden...
end;
end;
Ich hoffe, das mir jemand dabei helfen kann. Ich habe hier zwar schon im Forum gesucht, aber irgendwie hab ich nicht das Richtige gefunden. Oder ich habe es gefunden, aber nicht so richtig verstanden.
Vielen Dank schon mal für euere Hilfe.