Danke aber es funktioniert nicht...
ich zeige mal....
Bild wie es aussieht in der Anlage....
Quelltext
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
sExePath:
string;
begin
PageControl1.ActivePageIndex := DayOfTheWeek(now)-1;
sExePath := ExtractFilePath(Application.ExeName);
MediaPlayer1.FileName:=sExePath + '
dll/vorspann.wma';
MediaPlayer1.open;
MediaPlayer1.Play;
{Jahr}
{Speichern}
memo13.Lines.LoadFromFile(sExePath + '
settings/jahr1.dll');
u.s.w.