VMode -     

:

GetVideoMode - : 
                          )    SVGA ;
                          )  ;
                          )  ;
                          )    (bpp,  );
                          )   ;
              
                lnWhat (numeric):
              
                          0    -   (string);
                          1 - SVGA +   (string);
                          2 -   (numeric);
                          3 -   (numeric);
                          4 -    (numeric);
                          5 -    (numeric).

SetVideoMode -   .T.  .F.     ;
                 : , ,    (all numeric).
               
: RegSvr32 VMode.dll

: vfp9r.dll  vfp9t.dll

: oVM = CreateObject("VMode.VMode")

:

?oVm.GetVideoMode()                && : "G400D;1024;768;32;85"
?oVm.GetVideoMode(0)               && : "G400D;1024;768;32;85"
?oVm.GetVideoMode(1)               && : "G400D" (Matrox Millenium G450, maj.ver. 4.00, min.ver. D) 
?oVm.GetVideoMode(2)               && : 1024
?oVm.GetVideoMode(3)               && : 768
?oVm.GetVideoMode(4)               && : 32
?oVm.GetVideoMode(5)               && : 85
?oVm.SetVideoMode(800,600)         &&  .T.
?oVm.SetVideoMode(800,600,0,0)     &&  .T.
?oVm.SetVideoMode(800,600,32,85)   &&  .T.
?oVm.SetVideoMode(800,100,0,0)     &&  .F.
?oVm.SetVideoMode(1024,768,2,22)   &&  .F.

:

    = 0   ,    = 0   ,     
 .

         SVGA-,    
       = .F.

P.S.

  VFP   ,  9-,     .  
         Multi-Threaded Com Server.  dll  
  Windows (System  Win4; System32  WinNT)      :

RegSvr32 VMode.dll

,     ,   com-,      
  :

oVm = NewObject("VMode","VMode")
oVm.GetVideoMode(lnWhat)
oVm.SetVideoMode(lnWidth,lnHeight,lnBpp,lnFreq)