check_virtual_cd_drive.dpr

来自「win2000下实现的虚拟光驱」· DPR 代码 · 共 51 行

// 2001.6.25	Yan.j.f
program Check_Virtual_CD_Drive;

uses
	windows;
var
   strMsg: string;
   hVdisk: HFILE;
{$R *.RES}

begin
     if ((GetVersion() and $80000000) = 0)  then
     begin
          MessageBox (0, 'Error OS version, only Win9x', 'check', MB_OK);
          exit;
     end;

     strMsg := '安装的虚拟光驱为：'+ chr(13)+chr(10);

     hVdisk := CreateFile ('\\.\VIRLDISK', 0 , 0 , nil, OPEN_EXISTING,
                       FILE_FLAG_DELETE_ON_CLOSE, 0 );
     if ( hVdisk <> INVALID_HANDLE_VALUE ) then
     begin
          CloseHandle ( hVdisk );
          MessageBox ( 0, 'Thanks for use Virldisk, enjoy in this',
                          'check', MB_OK+MB_ICONINFORMATION );
     end;

     hVdisk := CreateFile ('\\.\cda', 0 , 0 , nil, OPEN_EXISTING,
                       FILE_FLAG_DELETE_ON_CLOSE, 0 );
     if ( hVdisk <> INVALID_HANDLE_VALUE ) then
     begin
          CloseHandle ( hVdisk );
          strMsg := strMsg + 'Farstone的虚拟光驱' + chr(13) + chr(10);
     end;

     hVdisk := CreateFile ('\\.\vcdrom', 0 , 0 , nil, OPEN_EXISTING,
                       FILE_FLAG_DELETE_ON_CLOSE, 0 );
     if ( hVdisk <> INVALID_HANDLE_VALUE ) then
     begin
          CloseHandle ( hVdisk );
          strMsg := strMsg + 'CD copier Gamer''s Edition 虚拟光驱' + chr(13) + chr(10);
     end;


     if ( Length(strMsg) < 24 ) then
        strMsg := strMsg + '  不知道。';
     
     MessageBox ( 0, PChar(strMsg), 'check', MB_OK+MB_ICONINFORMATION );
end.