Проверить, открыт ли CD-ROM

Советы » CD-ROM » Проверить, открыт ли CD-ROM

uses

mmsystem; procedure

TForm1.Button1Click(Sender: TObject); var

s: array

[0..64] of

Char; error: Cardinal; Text: array

[0..255] of

Char; begin

error := mciSendstring('open cdaudio alias geraet', nil

, 0, Handle); if

error <> 0 then

begin

mciGetErrorstring(error, @Text, 255); ShowMessage(Text); mciSendstring('close geraet', nil

, 0, Handle); Exit; end

; error := mciSendstring('status geraet mode', @s, SizeOf(s), Handle); if

error <> 0 then

begin

mciGetErrorstring(error, @Text, 255); ShowMessage(Text); mciSendstring('close geraet', nil

, 0, Handle); Exit; end

; mciSendstring('close geraet', nil

, 0, Handle); ShowMessage('Message: ' + s); end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com