使用StartupInfo的参数设置窗口的启动位置的大小

在后台运行DOS程序,退出后不在系统任务栏中  
   
  出现winoldap进程的实现  
   
  下面是我在大富翁上拉下来的一个例子,测试非常成功   -   真是不留一点痕迹!  
   
  1.功能函数  
   
  function   WinExecAndWait32(FileName:String;   Visibility   :   integer):   DWORD;  
  var  
  zAppName:array[0..512]   of   char;  
  zCurDir:array[0..255]   of   char;  
  WorkDir:String;  
  StartupInfo:TStartupInfo;  
  ProcessInfo:TProcessInformation;  
  begin  
  StrPCopy(zAppName,FileName);  
  GetDir(0,WorkDir);  
  StrPCopy(zCurDir,WorkDir);  
  FillChar(StartupInfo,Sizeof(StartupInfo),#0);  
  StartupInfo.cb   :=   Sizeof(StartupInfo);  
  StartupInfo.dwFlags   :=   STARTF_USESHOWWINDOW;  
  StartupInfo.wShowWindow   :=   Visibility;  
  if   not   CreateProcess(  
  nil,  
  zAppName,   {   pointer   to   command   line   string   }  
  nil,   {   pointer   to   process   security   attributes   }  
  nil,   {   pointer   to   thread   security   attributes   }  
  false,   {   handle   inheritance   flag   }  
  CREATE_NEW_CONSOLE   or   {   creation   flags   }  
  NORMAL_PRIORITY_CLASS,  
  nil,   {   pointer   to   new   environment   block   }  
  nil,   {   pointer   to   current   directory   name   }  
  StartupInfo,   {   pointer   to   STARTUPINFO   }  
  ProcessInfo   {   pointer   to   PROCESS_INF   }  
  )  
  then   Result   :=   $FFFFFFFF   else   begin  
  WaitforSingleObject(ProcessInfo.hProcess,INFINITE);  
  GetExitCodeProcess(ProcessInfo.hProcess,Result);  
  end;  
  end;  
   
  2.使用例程  
   
   
  procedure   TForm1.Button1Click(Sender:   TObject);  
  begin  
    WinExecAndWait32('COMMAND.COM   /C   COPY   C:/AUTOEXEC.BAT   D:/',SW_NORMAL);  
    showmessage('ok');  
  end;  
   
  3.下载例程  
   
  4.   补充说明   没翻译完在win32.hlp中输入StartupInfo,CreateProcess自己查看吧.  
   
  　  
   
    翻译的Win32API帮助,   E文很臭,有误人子弟的地方请参考帮助.  
   
   
  TStartupInfo一些说明:  
   
    StartupInfo结构被CreateProcess函数用来指定一个新建立的线程主  
  窗口的属性,对于GUI(Graphics   User   Interface)线程来说,这些信息  
  影响CreateWindow函数建立和ShowWindow函数显示的第一个窗口.而对  
  控制台程序,这些信息影响线程建立的新的控制台程序.当一个线程建  
  立后,能够利用GetStartupInfo函数获取一些StartupInfo的信息.   
    

如果要指定外部程序的启动位置和窗口大小，需要对 StartupInfo的参数进行设定。
StartupInfo.dwFlags :=  STARTF_USESHOWWINDOW or STARTF_USESIZE or  STARTF_USEPOSITION   ; 

Size 与Postion 才有作用。如果不起作用，请参考http://blog.csdn.net/wjw806/archive/2008/05/04/2386073.aspx的说明注意事项。

  typedef   struct   _STARTUPINFO   {   //   si    
      DWORD   cb;                     //指定该结构的大小(字节数)  
      LPTSTR   lpReserved;   //保留.在该结构通过CreateProcess之前,  
                                            //设置该成员为NULL.  
      LPTSTR   lpDesktop;     //仅仅Windows   NT支持.  
      LPTSTR   lpTitle;         //对控制台程序来说,lpTitle在新建的控制台程序  
                                      //窗口标题栏中显示.如果lpTitle=NULL,可执行文  
                                      //件的名字显示在标题栏中.如果为GUI程序或不建立  
                                      //新窗口控制台程序,lpTitlel的值一定要设置为Null    
   
      DWORD   dwX;                             //当dwFlags为STARTF_USEPOSITION才起作用.控制窗口  
                                      //左上角相对屏幕的位置.单位是像素.对GUI程序来说,  
                                      //新程序调用CreateWindow(参数x=CW_USEDEFAULT)建  
                                      //立一个OverLap窗口时,首先使用指定的位置.  
      DWORD   dwY;                             //见上.  
      DWORD   dwXSize;             //当dwFlags为STARTF_USESIZE才起作用.指定窗口的长宽  
                                      //单位是像素.对GUI程序来说,新程序调用CreateWindow  
                                      //(参数nWidth=CW_USEDEFAULT)建立一个OverLap窗口时,首先使  
                                      //用指定的长宽.                        
      DWORD   dwYSize;           //见上.  
      DWORD   dwXCountChars;    
      DWORD   dwYCountChars;    
      DWORD   dwFillAttribute;    
      DWORD   dwFlags;      
      WORD   wShowWindow;    
      WORD   cbReserved2;    
      LPBYTE   lpReserved2;    
      HANDLE   hStdInput;    
      HANDLE   hStdOutput;    
      HANDLE   hStdError;    
   
    }   STARTUPINFO,   *LPSTARTUPINFO;    
   
  /  
  TStartupInfo   这个结构中有一个   sShowWindow   栏位,   将之设为   SW_HIDE即可,  
  同时,   dwFlags   标志中至少需含有   STARTF_USESHOWWINDOW,   否则CreateProcess  
  时,   sShowWindow   栏位的设定会无效,   以下是修改过的程式:  
   
  var  
        sCommandLine:   string;  
        bCreateProcess:   boolean;  
        lpStartupInfo:   TStartupInfo;  
        lpProcessInformation:   TProcessInformation;  
  begin  
        //   sCommandLine   的内容请视您的情况修改  
        sCommandLine   :='Xcopy   d:/temp/temp1/*.*   d:/temp/temp2   /v/y';  
        lpStartupInfo.dwFlags   :=   STARTF_USESHOWWINDOW;  
        lpStartupInfo.wShowWindow   :=   SW_HIDE;  
        bCreateProcess   :=   CreateProcess(nil,   PChar(sCommandLine),nil,nil,True,