Ĺadny brzuch
Zrobiłem program który minimalizuje się do schowka uruchamia przy starcie i co wyznaczoną ilość czasu uruchamia plik dzwiękowy. Z początku wszystko chodziło dobrze teraz jednak program uruchamia dzwięk "jak chce" to znaczy tak jakby timer kompletnie zwariował. Dodam, że ten sam program po dodaniu opcji ShowMessage i dzwięku działa prawidłowo. W czym tkwi problem ?
Zrobiłem program który minimalizuje się do schowka uruchamia przy starcie i co wyznaczoną ilość czasu uruchamia plik dzwiękowy. Z początku wszystko chodziło dobrze teraz jednak program uruchamia dzwięk "jak chce" to znaczy tak jakby timer kompletnie zwariował. Dodam, że ten sam program po dodaniu opcji ShowMessage i dzwięku działa prawidłowo. W czym tkwi problem ?
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
Timer1->Interval=CSpinEdit1->Value*60000;
/* obsługa wyjątku otwarcia */
if(MediaPlayer1->FileName==""){
MediaPlayer1->FileName=ExtractFileDir(Application->ExeName) + "\\def1.wav";
};
/* */
TIniFile *ini = new TIniFile(ExtractFileDir(Application->ExeName) + "\\start.ini");
MediaPlayer1->FileName=ini->ReadString("USTAWIENIA", "Melodiajeden", ExtractFileDir(Application->ExeName) + "\\def1.wav");
ini->Free();
MediaPlayer1->Open();
MediaPlayer1->Play();
if(CheckBox1->Checked){
ShowMessage(Time());
};
}
//---------------------------------------------------------------------------
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Zrobiłem program który minimalizuje się do schowka uruchamia przy starcie i co wyznaczoną ilość czasu uruchamia plik dzwiękowy. Z początku wszystko chodziło dobrze teraz jednak program uruchamia dzwięk "jak chce" to znaczy tak jakby timer kompletnie zwariował. Dodam, że ten sam program po dodaniu opcji ShowMessage i dzwięku działa prawidłowo. W czym tkwi problem ?

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
Timer1->Interval=CSpinEdit1->Value*60000;
/* obsługa wyjątku otwarcia */
if(MediaPlayer1->FileName==""){
MediaPlayer1->FileName=ExtractFileDir(Application->ExeName) + "\\def1.wav";
};
/* */
TIniFile *ini = new TIniFile(ExtractFileDir(Application->ExeName) + "\\start.ini");
MediaPlayer1->FileName=ini->ReadString("USTAWIENIA", "Melodiajeden", ExtractFileDir(Application->ExeName) + "\\def1.wav");
ini->Free();
MediaPlayer1->Open();
MediaPlayer1->Play();
if(CheckBox1->Checked){
ShowMessage(Time());
};
}
//---------------------------------------------------------------------------