JOBOs Homepage

Special:

Multimedia:
Eine Midi-Datei abspielen
Eigene Cursor verwenden
CD-Rom öffnen/schließen
Die Bildschirmauflösung ändern
Prüfen, ob eine Soundkarte vorhanden ist
Prüfen, ob eine Audio-CD eingelegt ist

CD-Rom öffnen/schließen:

Füge 'MMSystem' in die uses ein und erstelle folgende Procedur

procedure OpenCd(AOpen:Boolean);
const
   DoPlay : array[Boolean] of String =
               ('Set cdaudio door closed wait',
      'Set cdaudio door open wait');
var
MyError       : LongInt;
MyErrorString : array[0..MAXERRORLENGTH - 1] of char;
begin
MyError := mciSendString(pChar(DoPlay[AOpen]), nil, 0, 0);
if MyError <> 0 then
begin
    MciGetErrorString(MyError,MyErrorString,MAXERRORLENGTH - 1);
    Showmessage(MyErrorString);
    Exit;
end;
end;

zum öffnen: zum schließen:

OpenCd(TRUE); OpenCd(TRUE);

oder so:

mciSendString('Set cdaudio door open wait'  , nil, 0, handle); // öffnen
mciSendString('Set cdaudio door closed wait', nil, 0, handle); // schließen

Die Bildschirmauflösung ändern (800*600):

 procedure TForm1.Button1Click(Sender: TObject);

   function NuevaRes(XRes, YRes: DWord):integer;
   var
     lpDevMode : TDeviceMode;
   begin
       EnumDisplaySettings(nil, 0, lpDevMode);
       lpDevMode.dmFields:=DM_PELSWIDTH or DM_PELSHEIGHT;
       lpDevMode.dmPelsWidth:=XRes;
       lpDevMode.dmPelsHeight:=YRes;
       NuevaRes:=ChangeDisplaySettings(lpDevMode, 0);
   end;

 begin
   NuevaRes(800,600);
 end;

Einen eigenen Cursor verwenden

Screen.Cursors[1] := LoadCursorFromFile('aim.Ani');
Cursor := 1;

Eine MIDI-Datei abspielen
zuerst braucht man einen TMediaPlayer und einen TOpenDialog

Main.openDialog1.Filename:='movie1.mid';
with Main.openDialog1 do begin
               extractFilename(Filename);
               Main.mediaPlayer1.Filename:=Filename;
                          with Main.MediaPlayer1 do begin
                                                                     Open;
                                                                     Play;   end;
               end;

Überprüfen, ob eine Soundkarte vorhanden ist

function IsSoundKarte:Longint;stdcall;external 'winmm.dll'
name 'waveOutGetNumDevs';

If IsSoundKarte=0 then
Showmessage('Peinlich!! Du hast keine Soundkarte!.');

Feststellen, ob eine AudioCD im Laufwerk liegt

function IsAudioCD(Drive : char) : boolean;
var SR : TSearchRec;
begin
  Result := SysUtils.FindFirst(Drive+':\*.cda',faAnyFile,SR)=0;
  SysUtils.FindClose(SR);
end;

Hosted by www.Geocities.ws