後臺調用外部程序的完美實現

 後臺調用外部程序的完美實現
轉載:http://www.delphibbs.com/keylife/iblog_show.asp?xid=29480
最近在做的一個軟件，其中有一部分功能需要調用其它的軟件來完成，而那個軟件只有可執行文件，根本沒有源代碼，幸好，我要做的事不難，只需要在我的程序啓動後，將那個軟件打開，在需要的時候，對其中的一個文本礦設置一些文字，再點擊一個按鈕就可以了。

說到這裏，相信你也有了對該功能的一些初步設想了，沒錯，其基本思路就是：
1）調用CreateProcess（）打開目標程序。
2）用FindWindow（）找到目標程序的窗口Handle。
3）找到文本框的Handle，以及按鈕的MessageID，用SendMessage（）方法設置文字，並觸發事件。

好了，這樣確實很簡單吧，但是當我實現它後，卻發現這樣做的結果則是：當我的程序啓動並打開目標程序時，它的Splash窗口，以及主窗口都將顯示出來，即使當我用FindWindow（）找到主窗口Handle後，調用SendMessage（WindowHandle， SW_HIDE）來隱藏該窗口，還是會有一瞬主窗口被顯示出來的，這樣的效果實在是最求完美的我不忍心看到的。

那麼怎麼解決這個問題呢，首先我當然在CreateProcess（）上面尋找方法，可惜，它只有一個參數可以設置窗口的默認顯示方式，但是一旦這個窗口自己重設了顯示方式，它就沒有任何作用了。。。。繼續查找文檔，這時我看到CreateProcess（）的一個參數TStartupInfo中有 lpDesktop這麼一個屬性，按照MSDN的說法，如果該指針爲NULL，那麼新建的Process將在當前Desktop上啓動，而如果對其賦了一個Desktop的名稱後，Process將在指定的Desktop上啓動，恩，看來不錯，就從它入手了：

1）首先，建立一個虛擬的Desktop，
const
  DesktopName = 'MYDESK';

FDesktop:=CreateDesktop(DesktopName,nil,nil,0,GENERIC_ALL,nil);
Windows中可以建立多個Desktop，可以使用SwitchDesktop（）來切換哪個Desktop被顯示出來，以前有過將Windows模擬成Linux的形式，可以在多個虛擬Desktop中切換的程序，其實那種程序也是用的Windows本身的虛擬Desktop功能來實現的，另外 Windows的啓動畫面，以及屏保畫面也都是用虛擬Desktop實現的，好了，關於這方面不多介紹了，感興趣的話，可以到MSDN中查看更詳細資料：
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dllproc/base/enumdesktops.asp

2）在CreateProcess的時候，指定程序在我新生成的Desktop上運行：
var
  StartInfo:TStartupInfo;

  FillChar(StartInfo, sizeof(StartInfo), 0);
  StartInfo.cb:=sizeof(StartInfo);
  StartInfo.lpDesktop:=PChar(DesktopName);      //指定Desktop的名稱即可
  StartInfo.wShowWindow:=SW_HIDE;
  StartInfo.dwFlags:=STARTF_USESHOWWINDOW;
  StartInfo.hStdError:=0;
  StartInfo.hStdInput:=0;
  StartInfo.hStdOutput:=0;
  if not CreateProcess(PChar(FileName),nil,nil,nil,true,CREATE_NEW_CONSOLE+HIGH_PRIORITY_CLASS,nil,PChar(ExtractFilePath(FilePath)),StartInfo,FProceInfo) then begin
    MessageBox(Application.Handle,'Error when init voice (5).',PChar(Application.Title),MB_ICONWARNING);
    exit;
  end;

3）用FindWindow去找程序的主窗口
開始我直接寫下了這樣的代碼：
  for I:=0 to 60 do begin //wait 30 seconds for open the main window
    WindowHandle:=FindWindow(nil,'WindowCaption');
    if WindowHandle<>0 then begin
      break;
    end;
    Sleep(500);
  end;
但是，實踐證明，這樣是找不到不在當前Desktop中的Window的，那怎麼辦呢：
答案是，可以用SetThreadDesktop（）函數，這個函數可以設置當前Thread工作所在的Desktop，於是我在以上代碼前又加了一句：
  if not SetThreadDesktop(FDesktop) then begin
    exit;
  end;
但是，程序運行後，該函數卻返回了false，說明方法調用失敗了，再仔細看MSDN，發現有這麼一句話：

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).


哦，原來需要切換Desktop的線程中不能有任何UI方面的東西，而我是在程序的主線程中調用該方法的，當然會失敗拉，知道了這點就好辦了，我只需要用一個“乾淨”的線程，讓它綁定到新的Desktop上，再讓它用FindWindow（）方法找到我要找的WindowHandle，不就可以了嗎，於是，這一步就需要藉助一個線程了，線程的代碼如下：

  TFindWindowThread = class(TThread)
  private
    FDesktop:THandle;
    FWindowHandle:THandle;
  protected
    procedure Execute();override;
  public
    constructor Create(ACreateSuspended:Boolean;const ADesktop:THandle);reintroduce;
    property WindowHandle:THandle read FWindowHandle;
  end;


{ TFindWindowThread }

procedure TFindWindowThread.Execute();
var
  I:Integer;
begin
  //make the current thread find window on the new desktop!
  if not SetThreadDesktop(FDesktop) then begin
    exit;
  end;
  for I:=0 to 60 do begin //wait 30 seconds for open the main window
    FWindowHandle:=FindWindow(nil,PChar('WindowCaption'));
    if FWindowHandle<>0 then begin
      break;
    end;
    Sleep(500);
  end;
end;

constructor TFindWindowThread.Create(ACreateSuspended:Boolean;const ADesktop:THandle);
begin
  inherited Create(ACreateSuspended);
  FDesktop:=ADesktop;
end;


而主程序中的代碼變成這樣：
  FindWindowThread:=TFindWindowThread.Create(false,FDesktop);
  try
    FindWindowThread.WaitFor;
    FMainWindowHandle:=FindWindowThread.WindowHandle;
  finally
    FindWindowThread.Free;
  end;
  if FMainWindowHandle=0 then begin
    MessageBox(Application.Handle,'Error when init voice (6).',PChar(Application.Title),MB_ICONWARNING);
    exit;
  end;


呵呵，成功，這樣果然可以順利的找到窗口Handle了。

4）最後，再用這個主窗口Handle，找出裏面的EditBox的Handle，如這樣：
  FEditWindow:=FindWindowEx(FMainWindowHandle,0,PChar('Edit'),nil);
我在這裏指定了這個文本框的ClassName，這個名稱可以用Spy＋＋得到。


初始化的工作就到此結束了，如果順利，程序就真正在後臺被運行了起來。那麼功能調用呢，還是和一般的做法一樣：

  if (FMainWindowHandle=0) or (FEditWindow=0) then begin
    exit;
  end;
  SendMessage(FEditWindow,WM_SETTEXT,0,LongInt(@AText[1]));
  SendMessage(FMainWindowHandle,WM_COMMAND,$8012,$0);
其中$8012這個數字，也是用Spy＋＋來得到的資源ID。

最後，別忘了關閉程序，以及釋放虛擬Desktop：
  if FProceInfo.hProcess<>0 then begin
    TerminateProcess(FProceInfo.hProcess,0);
  end;
  if FDesktop<>0 then begin
    CloseDesktop(FDesktop);
  end;


好了，這樣就幾乎完美的實現了一個後臺調用程序的功能，它對最終客戶來說將是完全透明的，客戶根本感覺不到後臺還有另一個程序在工作。是不是很爽啊，這樣別人的很多程序我們都可以直接拿來用了（當然了，得在遵守版權的基礎上才行拉）。