Плеер звуков windows

[Dima-91]

Не могу понять как решить эту ошибку: E2085 Invalid pointer addition.

TForm1 *Form1;
char *SoundPath;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
char *wd;
	wd = (char*)AllocMem(MAX_PATH);
	GetWindowsDirectoryA(wd,MAX_PATH);
	SoundPath = wd;

	SoundPath = SoundPath +"\\Media\\";//E2085
	TSearchRec sr;
	if (FindFirst (SoundPath + "*.wav", faAnyFile, sr) == 0)//E2085
...

Можете подсказать как решить вопрос? (Пример из книги).

[p51x]

Заменить указатель на класс стринг.
Если хотите с указателями, то ознакомьтесь с функциями типа http://www.cplusplus.com/reference/cstring/strcat/

[Stilet]

как решить эту ошибку

На какой строке?

[p51x]

Сообщение от Stilet

На какой строке?

Очевидно же на

SoundPath = SoundPath +"\\Media\\";//E2085

[Stilet]

А-а-а ну да. Я не заметил что эта переменка выше описана.

[Dima-91]

не пойму почему прописал string wd, а у меня типа стринг нету...

[p51x]

а вы хедер подключили? в инклуды то? стд указали?

[Dima-91]

TForm1 *Form1;
AnsiString SoundPath;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
char *wd;
	wd = (char*)AllocMem(MAX_PATH);
	GetWindowsDirectoryA(wd,MAX_PATH);
	SoundPath = wd;

	SoundPath = SoundPath + "\\Media\\";
	TSearchRec sr;
	if (FindFirst (SoundPath + "*.wav", faAnyFile, sr) == 0)
	{
		ListBox1->Items->Add(sr.Name);
	while (FindNext(sr) == 0 )
			ListBox1->Items->Add(sr.Name);
	}
	if (FindFirst (SoundPath + ".mid", faAnyFile, sr) == 0)
	{
		ListBox1->Items->Add(sr.Name);
	while (FindNext(sr) == 0)
			ListBox1->Items->Add(sr.Name);
	}
	if (FindFirst (SoundPath +".rmi", faAnyFile,sr) == 0)
	{
		ListBox1->Items->Add(sr.Name);
	while (FindNext(sr) == 0)
			ListBox1->Items->Add(sr.Name);
	}
	if (ListBox1->Items->Count != 0)
	{
		Label2->Caption = ListBox1->Items->Strings[1];
		ListBox1->ItemIndex = 0;

		MediaPlayer1->FileName = SoundPath + ListBox1->Items->Strings[1];
		MediaPlayer1->Open();
		MediaPlayer1->Play();
	}
}

получилось скомпилирвать, нашло музыку, только кнопка непрерывно не работает... Пока что попробую проверить код.