program  _setwndpos;
 //============================================================================== 
 {$APPTYPE CONSOLE} 
 //============================================================================== 
 uses 
  SysUtils,Windows;
 //============================================================================== 
 var 
  my_handle : Cardinal;
   //EStyle : Integer; 
 //============================================================================== 
 begin 
  my_handle := FindWindow( nil ,PAnsiChar(ParamStr( 1 )));
   if  ParamCount =  6   then 
     begin 
       if  my_handle <>  0   then 
         begin 
          SetWindowPos(my_handle, 0 ,StrToInt(ParamStr( 2 )),StrToInt(ParamStr( 3 )),StrToInt(ParamStr( 4 )),StrToInt(ParamStr( 5 )),SW_SHOW);
           //EStyle := GetWindowLong(my_handle,GWL_EXSTYLE); 
           //SetWindowLong(my_handle, GWL_EXSTYLE, EStyle or WS_EX_TOOLWINDOW); 
           if  StrToInt(ParamStr( 6 )) =  1   then  EnableWindow(my_handle,false);
           if  StrToInt(ParamStr( 6 )) =  0   then  EnableWindow(my_handle,true);
         end ;
     end 
   else 
     begin 
      writeln('USAGE: _setwinpos.exe <Window Caption> <horizontal position> <vertical position> <width> <height> <1 to diasble window, 0 to enable>');
     end ;
 end .