www.jobo2000.de - delphi

  Home - Delphi - Video - Art - Render - Texte - Spiele - Download - Links - Mail
Tipps:

Texte:

Designing Computer Games

2D vs. 3D: Fight of the Century

Puzzledesign

Grundlagen der KI

Erweiterte KI

 
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

1