Moj program-Music Player

E.ovako...Napravi sam moj prvi (ozbiljniji) program u Delphi-u 4.Zove se Music Player,kao sto ime kaze sluzi za slusanje muzike....ali imam nekoliko problema a to su:
1.Ne radi "stop" dugme iako sam napisao ovako:
procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
if MediaPlayer1.Enabled then
begin
MediaPlayer1.Stop;
Label3.Caption := d + '00:00';
Timer1.Enabled := False;
TrackBar1.Position := 0;
end;
end;
Mislim da je ovo ispravno ako nije ispravite....
2.Ne radi mu "Pauza" dugme iako sam napisao:
procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
if MediaPlayer1.Enabled then
begin
MediaPlayer1.Pause;
Timer1.Enabled := False;
end;
end;

To je sto ne radi,a ovo je sto ne znam da napisem....
imam dugme "Izbaci" ali ne znam na napisem da izbaci pesmu iz ListBox-a
I imam jedan TrackBar koji bi sluzio za smanjivanje i pojacavanje zvuka i to ne znam da napisem
Imam jos jedan mali Problem....Naime kad ubacim vise WMA fajlova pocne da izbacuje error "No MCI device open"(to izbacuje kada se zavrsi prva pesma)

Inace program otvara Mp3,Wma i Wav fajlove.....
I imam jos jedno pitanje,a to je kao da mi promeni "skin"tj. da promeni slicice u programu(moj "skin" je sastvljenj od slicica")

ako vam nesto nije jasno pitajte....



E to je to......nadam se da ce te mi pomoci....
Zeleo bi da napomenem da imam 15 godina i da sam pocetnik u programiranju....

Unapred zahvalan....

Potpis

Ko ne zna, a misli da zna
Kloni ga se
Ko ne zna i zna da ne zna
Pomogni mu
Ko zna, a misli da ne zna
Postuj ga
Ko zna i zna da zna
Idi njegovim stopama

probaj maknut if then petlju..



Listbox1.DeleteSelected;




type
TGlasnoca = record
Levi, Desni: Word;
end;

..

procedure TForm1.TrackBar2Change(Sender: TObject);
var
G: TGlasnoca;
begin
G.Levi := TrackBar2.Position;
G.Desni := TrackBar2.Position;
waveOutSetVolume(0, Cardinal(G));

end;







U uses dodaj MMSystem...u u neki onclick event buttona:

procedure TForm1.Button1Click(Sender: TObject);
begin
if WavFajl <> '' then
if not PlaySound(PChar(WavFajl), 0, SND_FILENAME)
then
ShowMessage('neka_greska');
end;





Skini vclskin komponentu..

i potrazi ovde na forumu za skidanje onog "demo verzija" ... programski workaround... by me, i josh par leekova... udruzenim snagama! :P

Potpis

Laravel Srbija.

_{[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]}

Floppy,
Mogao bih da te uputim na neke od tema na koje sam ja odgovarao (pogledaj moj profil).
Ima tamo par primera za slicne probleme, mozda dobijes koju ideju.

Potpis

Pozdrav, Peke
Speed IO ADSL+ Rezultat
SpeedTest.NET ADSL+ Rezultat