請問各位!

我有 A,B兩支程式都分別RUN起來, 在工作管理員中可以看的到,
我想在A程式, 想把 B程式調到前景來(即FOUCS),
現在我是用 FINDWINOW(nil, 'B程式的標題CAPTION') 來取得 B的Handle 值
然後在 A程式中把 B程式再叫出來, 但因為使用 CAPTION標題來搜尋, 我覺得
很不理想, 萬一CAPTION改變, 或換成其他語系時, A程式又要重改, 再者例如
NOTEPAD 在 WIN7上開啟, 會變成 "未命名 - 記事本", 除非 FINDWINDOW()
要下完整的CAPTION, 否則就取不到該HANDLE 值,
所以是不是還有其他方法取得指定程式的HANDLE的方式, 我在想, 可不可以
由工作管理員中的 PROCESS 來取得, 但我嘗試的結果, 取到的HANDLE 並不
正確, 謝謝!

感謝, 但如果我不知道PID 值的話, 有其他的方法嗎?
假設這兩支程式, 其中一支不是我寫的, 只是別人的檔案
我利用以下的程式, 可以取得所有被啟動的程式及PID, 但我如何將列表(TStringList 中)找到我想要的程式
讓A可以呼叫B並調到前景

[code delphi]
function TForm1.ListAllActiveWnd(var SL: TStringList): TStringList;
type
PStringList = ^TStringList;
function EnumWndProc(hWin: HWND; Param: LPARAM): BOOL; stdcall;
var szBuf: array[0..100] of Char;
begin
// 取得所有可見的視窗
if (IsWindow(hWin) and IsWindowVisible(hWin)) then begin
// 只取最上層可見視窗
if (Windows.GetParent(hWin) = 0) then begin
FillChar(szBuf, SizeOf(szBuf), 0);
GetWindowText(hWin, szBuf, SizeOf(szBuf));
if (szBuf <> '') then PStringList(Param)^.AddObject(szBuf, TObject(hWin));
end;
end;
result := true;
end;
var i: Integer;
slWnd: TStringList;
dwProcess1, dwProcess2: DWORD;
begin
SL.Sorted:= True;
slWnd:= TStringList.Create;
// 用 EnumWindows 列舉出所有可能的視窗, 並記在TStringList中
EnumWindows(@EnumWndProc, LPARAM(@slWnd));
// 比對所有可能的視窗, 去掉屬於同一個Process的視窗
// 最後一個一定是Program Manager, 所以loop只到slWnd.Count - 2, 直接去掉
// Program Manager
for i := 0 to slWnd.Count - 2 do begin
GetWindowThreadProcessId(HWND(slWnd.Objects[i]), @dwProcess1);
GetWindowThreadProcessId(HWND(slWnd.Objects[i 1]), @dwProcess2);
if ((CheckBox1.Checked=True) and (dwProcess1 <> dwProcess2)) or
(CheckBox1.Checked=False) then SL.Add(slWnd.Strings[i]
' PID1:' InttoStr(dwProcess1)
' PID2:' InttoStr(dwProcess2));
end;
slWnd.Free;
result:= SL;
end;
[/code]

===================引 用 rick060 文 章===================

 那我假設可以知道 程式檔名

 我用 d7 需要做以下 external

[code delphi]
procedure TMainForm.Button14Click(Sender: TObject);
function EnumWindowsProc(hw:Cardinal;lparam:Longint):Boolean;stdcall;
var
dwPID : DWORD;
begin
Result := True;

GetWindowThreadProcessId(hw,@dwPID);

if dwPID = PInteger(lparam)^ then
begin
if IsIconic(hw) then
ShowWindow(hw, SW_RESTORE)
else
BringWindowToTop(hw);
// SetForegroundWindow(hw);
Windows.SetFocus(hw);
end;
end;
var
pProcess : array[0..1023] of DWORD;
szModule : array[0..1023] of Char;
cbNeeded : DWORD;
nIndex : Integer;
pHandle : Cardinal;

begin
//列出所有 Process
EnumProcesses(@pProcess,sizeof(pProcess),@cbNeeded);

for nIndex := 0 to (cbNeeded div sizeof(DWORD) - 1) do
begin
//取得該 Handle
pHandle := OpenProcess( PROCESS_ALL_ACCESS , False , pProcess[nIndex] );
if pHandle = 0 then
Continue;

//取得 ProcessName / 也可以用 GetProcessImageFileName
GetModuleBaseName(pHandle,0,szModule,sizeof(szModule));
if CompareText( String(szModule) , 'chrome.exe' ) = 0 then
begin
EnumWindows(@EnumWindowsProc,Integer(@pProcess[nIndex]));
break;
end;
end;
end;
[/code]
這種方式我測出來的效果較好

編輯記錄

我實作了rick兄的demo, 確實可行, 讓執行程式調到前景, 但又遭遇到一個新問題, 
就是這支程式(要調前景的cust.exe) 是呼叫另一支 cust1.dll , 但我實際要調出的 cust1.dll的 form畫面
以現在的做法, 只能顯示出 cust.exe 的畫面, 我還必須到工作列去切換, 看來是沒有取得 cust1.dll正確的pid


[code delphi]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
function GetModuleBaseName(hProcess : Cardinal ; hMod : HMODULE ; lpBaseName : PAnsiChar ; nSize : DWORD):DWORD;stdcall;
function GetProcessImageFileName( hProcess : Cardinal ; lpBaseName : PAnsiChar ; nSize : DWORD):DWORD;stdcall;
function EnumProcesses(pProcessIds:PDWORD ; cb : DWORD ;pBytesReturned:PDWORD):Boolean;stdcall;
function GetModuleFileNameEx(hProcess : Cardinal ; hMod : HMODULE ; lpFileName : PAnsiChar ; nSize : DWORD):DWORD;stdcall;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
{$IFDEF UNICODE}
function GetModuleBaseName;external 'psapi.dll' name 'GetModuleBaseNameW';
function GetProcessImageFileName ;external 'psapi.dll' name 'GetProcessImageFileNameW';
function EnumProcesses;external 'psapi.dll' name 'EnumProcesses';
function GetModuleFileNameEx;external 'psapi.dll' name 'GetModuleFileNameExW';
{$ELSE}
function GetModuleBaseName;external 'psapi.dll' name 'GetModuleBaseNameA';
function GetProcessImageFileName ;external 'psapi.dll' name 'GetProcessImageFileNameA';
function EnumProcesses;external 'psapi.dll' name 'EnumProcesses';
function GetModuleFileNameEx;external 'psapi.dll' name 'GetModuleFileNameExA';
{$ENDIF}
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
function EnumWindowsProc(hw:Cardinal;lparam:Longint):Boolean;stdcall;
var dwPID: DWORD;
begin
Result:= True;
GetWindowThreadProcessId(hw,@dwPID);
if dwPID = PInteger(lparam)^ then begin
if IsIconic(hw)
then ShowWindow(hw, SW_RESTORE)
else BringWindowToTop(hw);
Windows.SetFocus(hw);
end;
end;
var
pProcess : array[0..1023] of DWORD;
szModule : array[0..1023] of Char;
cbNeeded : DWORD;
nIndex : Integer;
pHandle : Cardinal;
begin
//列出所有 Process
EnumProcesses(@pProcess,sizeof(pProcess),@cbNeeded);
for nIndex:= 0 to (cbNeeded div sizeof(DWORD) - 1) do begin
//取得該 Handle
pHandle := OpenProcess( PROCESS_ALL_ACCESS , False , pProcess[nIndex] );
if pHandle = 0 then Continue;
//取得 ProcessName / 也可以用 GetProcessImageFileName
GetModuleBaseName(pHandle,0,szModule,sizeof(szModule));
if CompareText( String(szModule) , 'cust.exe') = 0 then begin
EnumWindows(@EnumWindowsProc,Integer(@pProcess[nIndex]));
break;
end;
end;
end;
[/code]

編輯記錄

這樣看來, 似乎還是只有回到原本我使用的 FindWindow 方式來解決, 至少這個做法是可以的, 
只是要正確的判斷 caption 的內容, 是難度很高的!
不過還是謝謝 rick兄這麼多的提點, 我對 API 的部份其實非常弱, 由這邊又加深了對這些 API的了解!

===================引 用 rick060 文 章===================

P.D.

有疑問在告訴我，也許我有解決方法也說不定。
cool.evon@msa.hinet.net

===================引 用 P.D. 文 章===================
這樣看來, 似乎還是只有回到原本我使用的 FindWindow 方式來解決, 至少這個做法是可以的,
只是要正確的判斷 caption 的內容, 是難度很高的!
不過還是謝謝 rick兄這麼多的提點, 我對 API 的部份其實非常弱, 由這邊又加深了對這些 API的瞭解!

===================引 用 rick060 文 章===================

已發MAIL到您指定的位址, 謝謝!
=============引 用 wameng 文 章===================
P.D.

有疑問在告訴我，也許我有解決方法也說不定。
cool.evon@msa.hinet.net

編輯記錄