Win32::MCI::Basic - Basic Perl interface to Windows MCI API

  use Win32::MCI::Basic;
  my $lpszCommand = "status cdaudio number of tracks"; # example MCI command
  my ($APICallReturnValue, $lpszReturnString) = mciSendString($lpszCommand);
  print "Number of tracks: $lpszReturnString\n";

  my $lpszErrorText = mciGetErrorString($ReturnValue);
  print "Error: $lpszErrorText\n";

Win32::MCI::Basic provides a simple, basic, Perl interface to the Windows MCI (Media Control Interface) API.

Calls mciSendString with the specified $lpszCommand. Returns an array containing the API call return value and the string contained into the $lpszReturnString buffer. (see Microsoft Platform SDK for details)

Calls mciGetErrorString with the specified MCI API error code (which is mciSendString()'s first return value). Returns a descriptive string about the error code.

Nilson S. F. Junior (nilsonsfj@cpan.org)

Win32::API, Microsoft Platform SDK