如何獲取自己在程序中運行的外部EXE的Handle

　　這是我在一個論壇的討論稿，我想這些情況在實踐程序設計過程中會常碰到，所以就將這些討論資料寫了下來：

　　作者：e夢緣

　　？

　　請問用什麼方法可以運行一個外部的EXE並返回它的Handle？
　　WinExec 返回不是該EXE的Handle
　　ShellExecute, ShellExecuteEx 也不是
　　CreateProcess 返回的是 Process Handle
　　到底要如何才可以返回和 GetWindow 所返回的一樣的 Handle?

　　Re:

　　可以用FindWindow（）函數，它能夠解決這個問題，它有兩個參數：lpClassName：程序的類名；lpWindowName：程序窗體的標題。

　　例如：

　　procedure TForm1.Button1Click(Sender: TObject);
　　begin
　　ShellExecute(handle,'open','notepad.exe',nil,nil,SW_ShowNormal);
　　end;

　　procedure TForm1.Button2Click(Sender: TObject);
　　var
　　ExeHandle:Thandle;
　　Begin
　　//獲得句柄
　　ExeHandle:=FindWindow('notepad',nil);//''）;//返回句柄
　　//關閉程序
　　if ExeHandle<>0 then
　　SendMessage(ExeHandle,WM_Close,0,0)
　　Else
　　Application.MessageBox('沒有打開"記事本"程序!','提示',
　　MB_IconInformation+MB_OK);
　　end;

　　?
　　FindWindow() 方法不是我想要的，因為這裡的lpWindowName 具有不確定性，沒有辦法准確地找到。
　　我希望能在執行這支外部程序裡就可以得到它的 Handle.
　　比如有沒有辦法，通過Process Handle得到它有
　　Application Handle 以及 MainForm Handle

　　Re:

　　您可以通過lpClassName：程序的類名來准確地找到。

　　ExeHandle:=FindWindow('notepad',nil);//返回句柄

　　function ExecuteFile(const FileName, Params, DefaultDir: String;

　　ShowCmd: Integer): THandle;

　　var

　　zFileName, zParams, zDir: array[0..79] of Char;

　　begin

　　Result := ShellExecute(Application.MainForm.Handle, nil,

　　StrPCopy(zFileName, FileName), StrPCopy(zParams, Params),

　　StrPCopy(zDir, DefaultDir), ShowCmd);

　　end;

　　procedure TForm1.Button3Click(Sender: TObject);
　　var
　　hwd:thandle;
　　begin

　　hwd:=ExecuteFile('notepad.exe','','',SW_ShowNormal);
　　if hwd<>0 then showmessage('哈哈~~'+#13+'我取到handle了,是>>>'+inttostr(hwd));

　　end;

　　?

　　謝謝您的熱心幫助,
　　但ShellExecute得到的並不是Handle
　　用FindWindow得到的才是真正的Handle
　　你可以試一下.
　　最簡單的方法就是向你得到的Handle發一個WM_QUIT消息,看它是否會被關閉.
　　如:
　　SendMessage(AHandle, WM_QUIT, 0, 0);

　　Re:

　　我看了很多Delphi的資料，好像只有FindWindow（）函數是 可以實現的，至於是否還有其它的方法，我 不太清楚！

　　最後結果：

　　我已從大富翁論壇上得到了滿意的結論了,在這和大家分享一下:
　　(大富翁論壇: http://www.Delphibbs.com/)

　　type
　　PEnumInfo = ^TEnumInfo;
　　TEnumInfo = record
　　ProcessID : DWord;
　　HWND : THandle;
　　end;

　　function EnumWindowsProc(Wnd: DWord; var EI: TEnumInfo): Bool; stdcall;
　　var
　　PID : DWord;
　　begin
　　GetWindowThreadProcessID(Wnd, @PID);
　　Result := (PID <> EI.ProcessID) or
　　(not IsWindowVisible(WND)) or
　　(not IsWindowEnabled(WND));

　　if not result then EI.HWND := WND;
　　end;

　　function FindMainWindow(PID: DWORD): DWord;
　　var
　　EI : TEnumInfo;
　　begin
　　EI.ProcessID := PID;
　　EI.HWND := 0;
　　EnumWindows(@EnumWindowsProc, Integer(@EI));
　　Result := EI.HWND;
　　end;

　　
　　procedure TForm1.Button1Click(Sender: TObject);
　　var
　　SI : TStartupInfo;
　　PI : TProcessInformation;
　　H : THandle;
　　S : String;
　　begin
　　ZeroMemory(@SI, SizeOf(SI));
　　ZeroMemory(@PI, SizeOf(PI));
　　SI.cb := SizeOf(SI);
　　if CreateProcess(nil,'CALC.EXE', nil, nil, FALSE, 0 ,nil,nil, SI, PI) then
　　begin
　　//注意!
　　WaitForInputIdle(PI.hProcess, INFINITE);

　　H := FindMainWindow(PI.dwProcessID);
　　if H > 0 then
　　begin
　　SetLength(S, 255);
　　GetWindowText(H, PChar(S), 255);
　　SetLength(S, StrLen(PChar(S)));
　　ShowMessage(S);
　　end;

　　CloseHandle(PI.hProcess);
　　CloseHandle(PI.hThread);
　　end;
　　end;