program  _scrset;
 //============================================================================== 
 {$APPTYPE CONSOLE} 
 //============================================================================== 
 uses 
  SysUtils,Windows;
 //============================================================================== 
 function  ChangeMyResolution(my_width, my_height: word):PAnsiChar;
 var 
  my_devmode: TDEVMODE;
  my_result : integer;
 begin 
  Result := 'UNKNOWN_RESULT';
   try 
    ZeroMemory(@my_devmode, sizeof(TDEVMODE));
    my_devmode.dmSize := sizeof(TDEVMODE);
    my_devmode.dmPelsWidth := my_width;
    my_devmode.dmPelsHeight := my_height;
    my_devmode.dmFields := DM_PELSWIDTH  or  DM_PELSHEIGHT;
    my_result := ChangeDisplaySettings(my_devmode,  0 );
     if  my_result = DISP_CHANGE_SUCCESSFUL  then  Result := 'DISP_CHANGE_SUCCESSFUL';
     if  my_result = DISP_CHANGE_RESTART	 then  Result := 'DISP_CHANGE_RESTART';
     if  my_result = DISP_CHANGE_BADFLAGS  then  Result := 'DISP_CHANGE_BADFLAGS';
     if  my_result = DISP_CHANGE_FAILED  then  Result := 'DISP_CHANGE_FAILED	';
     if  my_result = DISP_CHANGE_BADMODE	 then  Result := 'DISP_CHANGE_BADMODE	';
     if  my_result = DISP_CHANGE_NOTUPDATED  then  Result := 'DISP_CHANGE_NOTUPDATED';
   except 
    Result := 'Unknown Exception';
   end ;
 end ;
 //============================================================================== 
 procedure  DisplayMyUsage;
   begin 
    writeln('');
    writeln('USAGE: _scrset <Width> <Height>');
    writeln('Example: _scrset 640 480');
    writeln('');
   end ;
 //============================================================================== 
 begin 
 if  (ParamStr( 1 )='?')  or  (ParamStr( 1 )='/?')  or  (ParamStr( 1 )='-?')  or 
   (ParamStr( 1 )='h')  or  (ParamStr( 1 )='/h')  or  (ParamStr( 1 )='-h')  or 
   (ParamStr( 1 )='help')  or  (ParamStr( 1 )='/help')  or  (ParamStr( 1 )='-help')  or 
   (ParamCount <>  2 )  then 
    begin 
    DisplayMyUsage;
    Exit;
    end ;
   try 
    writeln(ChangeMyResolution(StrToInt(ParamStr( 1 )),StrToInt(ParamStr( 2 ))));
   except 
    writeln('Unknown exception');
   end ;
 end .
//==============================================================================