CreateProcess时不显示或者不创建窗口 （或用虚拟桌面实现后台调用外部程序）

【方法一：】 将 CreateProcess(）的参数dwCreationFlags指定为CREATE_NO_WINDOW，即以不创建窗口方式创建DOS进程。 【参考代码：】 if (!CreateProcess(NULL, szCommand, NULL, NULL, FALSE, CREATE_NO_WINDOW, NULL, NULL, &si, &pi)) 【方法二：】 指定STARTUPINFO结构中WORD wShowWindow为SW_HIDE（但是一定要有这一句： si.dwFlags = STARTF_USESHOWWINDOW|STARTF_USESHOWWINDOW; ），即以不显示窗口方式创建DOS进程。 【参考代码：】 STARTUPINFO si; PROCESS_INFORMATION pi; ::ZeroMemory(&si, sizeof(si)); si.cb = sizeof(si); si.dwFlags = STARTF_USESHOWWINDOW|STARTF_USESHOWWINDOW; si.wShowWindow = SW_HIDE; ::ZeroMemory(&pi, sizeof(pi)); if (!CreateProcess(NULL, szCommand, NULL, NULL, FALSE, 0, NULL, NULL, &si, &pi)) 【方法三：】 将这个DOS窗口放到另外一个桌面上，实现隐藏。 【参考代码：】 si.lpDesktop="NewDesktop"; if (!CreateProcess(NULL, szCommand, NULL, NULL, FALSE, CREATE_NEW_CONSOLE, NULL, NULL, &si, &pi)) 方法三的详细原理： 参考http://blog.163.com/madengyao_super/blog/static/2859822020093249493150/ 。 =============================================================================== 【用虚拟桌面实现后台调用外部程序】 最近需要实现一个无线通信的功能，X他XX的，该死的硬件厂商竟然不提供接口函数，只提供一个EXE可执行文件-_-! 这样就需要我在程序里调用他的这个EXE可执行文件。 调用EXE文件，可以用WINEXEC（）、SHELLEXECUTE（）和CreateProcess（）等函数来实现，我这里就用CreateProcess（）来调用。 但是一个软件，两个EXE文件，这叫什么？？实在没办法，我想在打开的时候不让用户看到这个执行文件：首先调用FINDWINDOW来查找窗口的句柄，之后再用SendMessage（）来隐藏窗口，但是还是会有一瞬主窗口被显示出来的，或许你会说我BT吧，但是我实在是不忍心看到…… 那么怎么解决这个问题呢，首先我当然在CreateProcess（）上面寻找方法，可惜，它只有一个参数可以设置窗口的默认显示方式，但是一旦这个窗口自己重设了显示方式，它就没有任何作用了。 继续查找文档，这时我看到CreateProcess（）的一个参数TStartupInfo中有 lpDesktop这么一个属性，按照MSDN的说法，如果该指针为NULL，那么新建的Process将在当前Desktop上启动，而如果对其赋了一个Desktop的名称后，Process将在指定的Desktop上启动，恩，看来不错，就从它入手了； 首先，建立一个虚拟的Desktop。 const DesktopName: PChar = 'NewDesktop'; FDesktop:= CreateDesktop(DesktopName, nil, nil, 0, GENERIC_ALL, nil); 然后，在CreateProcess的时候，指定程序在我新生成的Desktop上运行： var SI: TStartupInfo; begin FillChar(SI, SizeOf(SI), 0); SI.cb:= SizeOf(SI); SI.lpDesktop:= DesktopName; SI.wShowWindow:= SW_HIDE; SI.dwFlags:= STARTF_USESHOWWINDOW; SI.hStdError:= 0; SI.hStdInput:= 0; SI.hStdOutput:= 0; if not CreateProcess(PChar('……'), nil, nil, nil, True, CREATE_NEW_CONSOLE HIGH_PRIORITY_CLASS, nil, PChar('……'), SI, FProceInfo) then begin Application.MessageBox('Error', 'Error', $10); Exit; end; end; 再用FindWindow去找程序的主窗口. 开始我直接写下了这样的代码： WindowHandle:= FindWindow(nil, '……'); 但是，这样是找不到不在当前Desktop中的Window的，那怎么办呢？ 这个时候，我突然看到一位同事在上班时间偷偷打游戏，我问他：“你不怕被抓到？？” 他说：“给你看一个工具！” 原来是一个叫“玩游戏一键隐藏”的小工具，仔细想想，他应该是利用各桌面之间的切换来达到这种效果的，于是又开始查看MSDN，终于看到可以用SetThreadDesktop（）函数，这个函数可以设置当前Thread工作所在的Desktop，于是我在以上代码前又加了一句： if not SetThreadDesktop(FDesktop) then begin Exit; end; 但是，程序运行后，该函数却返回了false，说明方法调用失败了，再仔细看MSDN，发现有这么一句话： [color=red]The SetThreadDesktop function will fail if the calling thread has any windows or hooks on its current desktop (unless the hDesktop parameter is a handle to the current desktop).[/color] 对不起，我的E文水平实在有够呛-_-!! 具体是什么意思我就不太清楚了，PASSION帮我翻译的时候，我也没怎么记得，只记得是要切换Desktop的线程要“干净”。 不好意思，我对这个“干净”的理解就是一个新的线城，于是抱着试一试的心情，我写下了： TFindWindowThread = class(TThread) private FDesktop, FWindowHandle: THandle; protected procedure Execute(); override; public constructor Create(Suspended: Boolean; const ADesktop: THandle); reintroduce; property WindowHandle: THandle read FWindowHandle; end; 而主程序中的代码变成这样： FindWindowThread:= TFindWindowThread.Create(False, FDesktop); try FindWindowThread.WaitFor; WindowHandle:= FindWindowThread.WindowHandle; finally FindWindowThread.Free; end; if WindowHandle = 0 then begin Application.MessageBox('Error', 'Error', $10); Exit; end; 呵呵，成功，这样果然可以顺利的找到窗口Handle了。 好了，这样就几乎完美的实现了一个后台调用程序的功能，它对最终客户来说将是完全透明的，客户根本感觉不到后台还有另一个程序在工作。