home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programming Unleashed / Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso / misc / cdmusicc / cdunitc.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-03-21  |  1.3 KB  |  40 lines
  1. unit Cdunitc;
  2.  
  3. { Program copyright (c) 1995 by Charles Calvert }
  4. { Project Name: CDMUSICC }
  5.  
  6. interface
  7.  
  8. uses
  9.   WinTypes;
  10.  
  11. function OpenCD(Handle: HWnd): Boolean;
  12. procedure PlayCDOneTrack(TrackNum: Integer);
  13. function CloseCDMCI: Boolean;
  14. implementation
  15.  
  16. function OpenCD; external 'CDINFO' index 3;
  17. procedure PlayCDOneTrack; external 'CDINFO' index 8;
  18. function CloseCDMCI; external 'CDINFO' index 4;
  19.  
  20. end.
  21. {
  22.     Name: errormsg(unsigned long,char*)         Entry: 0002
  23.     Name: opencd(const hwnd__*)         Entry: 0003
  24.     Name: closecdmci()                 Entry: 0004
  25.     Name: stopcdmci()                  Entry: 0005
  26.     Name: pausecdmci()                 Entry: 0006
  27.     Name: settmsfasformat()            Entry: 0007
  28.     Name: playcdonetrack(unsigned char)         Entry: 0008
  29.     Name: playmcicd(unsigned char,unsigned char)         Entry: 0009
  30.     Name: getcdnumtracks()             Entry: 000A
  31.     Name: getcdtracklength(unsigned long,unsigned char*,unsigned char*,unsigned char*)         Entry: 000B
  32.     Name: getlengthofeachtrack(unsigned long,unsigned char*,unsigned char*,unsigned char*)         Entry: 000C
  33.     Name: getcurrentcdtrack()          Entry: 000D
  34.     Name: hasdiskinserted()            Entry: 000E
  35.     Name: ejectcd()                    Entry: 000F
  36.     Name: getcdlocation()              Entry: 0010
  37.  }
  38.  
  39.  
  40.