你关得是否不对呢,以下是我关DVD卡的函数。
procedure TFormDVDPlayAPI.InitDVDDriver;
begin
if g_nPlaySongNum > PLAYSONGNUM_TO_CLOSEDRIVER then
begin
g_nPlaySongNum := 0;
//关闭驱动
FMPCloseDriver();
//初始化驱动
if FMPOpenDriver()=0 then
//失败
begin
g_MessageBox('初始化DVD解压卡驱动失败。','',MB_OK);
PostMessage(FormDVDPlayAPI.Handle,WM_CLOSE,0,0);
//退出模块
Exit;
end;
end;
end;
//关闭驱动
procedure FMPCloseDriver();
begin
CloseDriver(g_hReelDrv,0,0);
end;