请问用什么方法可以运行一个外部的EXE并返回它的Handle？(200分)(200分)

bundur · 2003-08-01

请问用什么方法可以运行一个外部的EXE并返回它的Handle？ WinExec 和 ShellExecute 返回不是该EXE的Handle ShellExecuteEx 也不是和 CreateProcess 一样返回的是 Process Handle 到底要如何才可以返回和 FindWindow 所返回的一样的 Handle? 或者如何通过 Process Handle 得到 Application Handle 或 MainForm Handle

cash2000 · 2003-08-01

用函数WindowFromPoint   (api)

bundur · 2003-08-01

WindowFromPoint 这个不大现实，因为执行的程序可能是最小化的，也可以是后台(隐藏)运行的。 还在，即使是有窗口出现，什么时候出现，有没有别的窗口在它之上等都不可控。

dbyoung · 2003-08-01

没搞懂你说的意思?

tseug · 2003-08-01

参考 http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com:80/support/kb/articles/Q242/3/08.asp&NoWebContent=1 HOWTO: Find a Window Handle from an Instance Handle

龙丹 · 2003-08-02

type   PProcessWindowInfo=^TProcessWindowInfo;   TProcessWindowInfo=record     ProcessID

WORD;     Handle:THandle;   end; function CheckProcessWindow(Handle: HWND; Info: Pointer): BOOL; stdcall; var   ProcessID

WORD; begin   GetWindowThreadProcessId(Handle,ProcessID);   Result := ProcessID<>PProcessWindowInfo(Info)^.ProcessID;   if not Result then     PProcessWindowInfo(Info)^.Handle:=Handle; end; function FindProcessWindow(ProcessID

WORD):THandle;   //查找进程当前窗口，若成功，返回窗口Handle，否则返回0 var   Info:TProcessWindowInfo; begin   Info.ProcessID:=ProcessID;   Info.Handle:=0;   EnumWindows(@CheckProcessWindow, Longint(@Info));   Result:=Info.Handle; end; function FindExeWindow(const FileName:string):THandle;   //查找EXE文件当前窗口，若成功，表明该文件已运行，返回窗口Handle，否则返回0 var   ReleFileName:string;   CPReleFileName:boolean;   TempList:Classes.TStringList;   index:integer; begin   ReleFileName:=FileName; //GetRealPath(FileName);   CPReleFileName:=not SameText(ReleFileName,FileName);   TempList:=TStringList.Create;   try     GetProcesses(TempList,True);     Result:=0;     for Index:=0 to TempList.Count-1 do     begin       if SameText(TempList[Index],FileName) or          (CPReleFileName and SameText(TempList[Index],ReleFileName)) then       begin         Result:=FindProcessWindow(DWORD(TempList.Objects[Index]));         Break;       end;     end;   finally     TempList.Free;   end; end;

lgxyy · 2003-08-01

同意龙丹

唐僧肉 · 2003-08-01

The FindExecutable function retrieves the name and handle to the executable (.EXE) file associated with the specified filename. HINSTANCE FindExecutable(    LPCTSTR lpFile,  // pointer to string for filename    LPCTSTR lpDirectory,  // pointer to string for default directory    LPTSTR lpResult  // pointer to buffer for string for executable file on return

bundur · 2003-08-01

To: 龙丹 您的方法通过枚举当前进程和当前窗口进行匹配,不失为一种好办法. 但是 GetRealPath 和 GetProcesses 两个函数上哪儿找? To: tseug 我试了一下, 用 CreateProcess 和 ShellExecuteEx 得到的 hProcess 和用 GetWindowThreadProcessId 得到的 hProcess 是不一样的! ( WinExec 和 ShellExecute 更不用说了 ) 也就是说不能通过 CreateProcess 和 ShellExecuteEx 得到的 hProcess 再由 GetWindowThreadProcessId 来得到 Window Handle 的. 我想知道的正是能由  CreateProcess 和 ShellExecuteEx 得到的 hProcess 推出Window Handle 的. To: 唐僧肉 能解释一下该函数的三个参数如何使用吗?

dedema · 2003-08-01

龙龙龙...............龙小姐. 你你你...............你的代码. 通通通...............不过....

tseug · 2003-08-01

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; end.

龙丹 · 2003-08-02

呵呵，不好意思，不好意思，在别的单元里，忘拷贝了 GetRealPath {取真实路径} 可以不管,直接用FileName好了 procedure GetProcesses(List:TStrings; IDOnly:boolean=False);   //取进程清单,若IDOnly=True,则List是进程主模块文件路径，List.Objects是进程ID   //若IDOnly=False,则List是进程主模块文件名，List.Objects是指向TProcessEntry32的指针，   //  调用者应在释放List之前调用Dispose释放这些指针 var   snap:THandle;   lppe:TProcessEntry32;   PPROCESSENTRY32; begin   snap:=CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);   try     List.Clear;     FillChar(lppe,Sizeof(TProcessEntry32),0);     lppe.dwSize:=Sizeof(TProcessEntry32);     if Process32First(snap,lppe) then       repeat         if IDOnly then           List.AddObject(GetProcessExePath(lppe.th32ProcessID),Pointer(lppe.th32ProcessID))         else           begin             New(P);             P^:=lppe;             List.AddObject(lppe.szExeFile,Pointer(P));           end;       until not Process32Next(snap,lppe);   finally     CloseHandle(snap);   end; end;

bundur · 2003-08-02

多人接受答案了。

请问用什么方法可以运行一个外部的EXE并返回它的Handle？(200分)(200分)

bundur

Unregistered / Unconfirmed

cash2000

Unregistered / Unconfirmed

bundur

Unregistered / Unconfirmed

dbyoung

Unregistered / Unconfirmed

tseug

Unregistered / Unconfirmed

龙丹

Unregistered / Unconfirmed

lgxyy

Unregistered / Unconfirmed

唐僧肉

Unregistered / Unconfirmed

bundur

Unregistered / Unconfirmed

dedema

Unregistered / Unconfirmed

tseug

Unregistered / Unconfirmed

龙丹

Unregistered / Unconfirmed

bundur

Unregistered / Unconfirmed

Similar threads