procedure TForm1.FormCreate(Sender: TObject);
type
Einstellungen =
record
Lautstaerke : integer;
Skin :
string[1];
{Buttons}
playlistnamen : boolean;
{Vollst. Namen anzeigen?}
Color : Tcolor;
{Hintergrund}
Color_ue : Tcolor;
{Ueberschriftenfarbe}
Color_sch : Tcolor;
{Schriftfarbe}
Font_ue : TFont;
{Schriftart(Ueberschriften)}
Font : TFont;
{Schriftart(Normalschriften)}
end;
var i,j:integer;
groesse:longint;
Sem: THandle;
strin:
string;
Mutex: THandle;
Was:Einstellungen;
f:
file of byte;
temp:textfile;
label 99;
begin
if paramcount>0
then
begin
i:=0;
assignfile(temp,(extractfiledrive(paramstr(0))+'
\Mediaplayer_System\temp.dat'));
if not fileexists(extractfiledrive(paramstr(0))+'
\Mediaplayer_System\temp.dat')
then
rewrite(temp)
else append(temp);
99:
strin:='
';
if (paramcount>0)
then
begin
{mehre Dateien in Temporärer Datei speichern}
while not fileexists(strin)
do begin
i:=i+1;
strin:=strin+paramstr(i);
end;
writeln(temp,strin);
if i<paramcount
then goto 99;
closefile(temp);
{Überprüfung ende}
if GetLastError = ERROR_ALREADY_EXISTS
then halt;
listbox1.items.clear;
listbox1.items.add(extractfilename(strin));
maxlied:=1;
mediaplayer1.close;
Label1.caption:=extractfilename(strin);
FillID3TagInformation(strin, Title,Artist,Album,Year,Comment, Genre);
mediaplayer1.filename:=strin;
mediaplayer1.open;
SetMPVolume(mediaplayer1,trackbar2.position);
gesamtzeitsek:=(mediaplayer1.length
div 1000);
gesamtzeitmin:=0;
trackbar1.max:=mediaplayer1.length;
gauge1.maxvalue:=mediaplayer1.length;
while (gesamtzeitsek>=60)
do
begin
gesamtzeitsek:=gesamtzeitsek-60;
gesamtzeitmin:=gesamtzeitmin+1;
end;
if gesamtzeitsek<10
then gesamtzeit.caption:=inttostr(gesamtzeitmin)+'
:0'+inttostr(gesamtzeitsek)
else gesamtzeit.caption:=inttostr(gesamtzeitmin)+'
:'+inttostr(gesamtzeitsek);
mediaplayer1.play;
end;
end;
for i:=0
to MaxID3Genre
do genre.items.add(ID3Genre[i]);
MediaplayerMsg := RegisterWindowMessage('
Mediaplayer');
Mutex := CreateMutex(
nil, False, '
Mediaplayer');
if GetLastError = ERROR_ALREADY_EXISTS
then halt;
if Mutex <> 0
then
ReleaseMutex(
Mutex);