如何以"进程名"取窗口句柄!

uses TLHelp32;



procedure TForm1.Button1Click(Sender: TObject); 

var

ProcessName : string; //进程名

FSnapshotHandle:THandle; //进程快照句柄

FProcessEntry32:TProcessEntry32; //进程入口的结构体信息

ContinueLoop:BOOL;

MyHwnd:THandle;

begin

FSnapshotHandle:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0); //创建一个进程快照

FProcessEntry32.dwSize:=Sizeof(FProcessEntry32);

ContinueLoop:=Process32First(FSnapshotHandle,FProcessEntry32); //得到系统中第一个进程

//循环例举    

while ContinueLoop do   

begin

    ProcessName := FProcessEntry32.szExeFile;



    if(ProcessName = '要找的应用程序名.exe') then begin

      MyHwnd := GetHWndByPID(FProcessEntry32.th32ProcessID);

      ...



      ...

    end;

    ContinueLoop:=Process32Next(FSnapshotHandle,FProcessEntry32);

end;

CloseHandle(FSnapshotHandle);   //   释放快照句柄

end;





//跟据ProcessId获取进程的窗口句柄



function TForm1.GetHWndByPID(const hPID: THandle): THandle;

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;

begin

    if hPID<>0 then

    Result:=FindMainWindow(hPID)

    else

    Result:=0;

end;