procedure TForm1.FormCreate(Sender: TObject);
begin
filelistbox1.Drive:='F';
filelistbox1.Directory:='mp3';
form1.Caption:=mediaplayer1.filename;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
a,b :string;
c : byte;
begin
randomize;
c:=random(filelistbox1.ItemIndex);
mediaplayer1.FileName:=filelistbox1.Items[c]; // no to miało za zadanie policzyć wszystkie wpisy w tym katalogu ale żby działało musi by zaznaczony ostatni strong
mediaplayer1.Open;
form1.Caption:=mediaplayer1.filename;
repeat
Application.ProcessMessages;
a:=TimetoStr(Time); //chce zeby pokazywało aktualny czas
label1.Caption:=a; //ale chyba za dużo mocy zżera?
until edit2.text=a;
mediaplayer1.Stop;
label2.Caption:=timetostr(time);
a:=TimetoStr(Time);
end;
I teraz to sie potwornie krzaczy... Diała tak połowicznie