| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

mciSendStringA из winmm.dll

Mishka ©   (2002-10-13 10:21:00) 

Подскажите что неправильно...
Function mciSendStringA(lpstrCommand:String;lpstrReturnString:String;uReturnLength:Longword;hwndCallback:Longword):longword; external "winmm.dll";

А потом а теле программы вызываю..

var mciCommand,r :string;
begin
mciCommand := "open " + "d:\winnt\clock.avi"+ " alias MyAVI";
mciSendStringA(mciCommand,r,0,0);

Это вызывает ошибку ;((

---

TTCustomDelphiMaster   (2002-10-13 11:17:00) [1]

Посмотрите как это реализовано в MMSystem.pas

...lpstrCommand:PAnsiChar; lpstrReturnString:PAnsiChar...

---

Наверх