在service中为什么使用findwindows得不到想要的窗口句柄 ( 积分: 100 )

<br>unit Unit1;<br><br>interface<br><br>uses<br> &nbsp;Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br> &nbsp;Dialogs,tlhelp32, StdCtrls;<br><br>type<br> &nbsp;TForm1 = class(TForm)<br> &nbsp; &nbsp;Edit1: TEdit;<br> &nbsp; &nbsp;ListBox1: TListBox;<br> &nbsp; &nbsp;Button1: TButton;<br> &nbsp; &nbsp;procedure Button1Click(Sender: TObject);<br> &nbsp;private<br> &nbsp; &nbsp;{ Private declarations }<br> &nbsp;public<br> &nbsp; &nbsp;{ Public declarations }<br> &nbsp;end;<br><br>var<br> &nbsp;Form1: TForm1;<br><br>implementation<br><br>{$R *.dfm}<br><br>type<br> &nbsp;TWindowInfo = record<br> &nbsp; &nbsp;Handle:LongWord; &nbsp;//窗口句柄<br> &nbsp; &nbsp;ClassStr:String; &nbsp;//窗口类<br> &nbsp; &nbsp;Caption:String; &nbsp; //窗口标题<br> &nbsp;end;<br><br>var<br> &nbsp;List: Array of TWindowInfo;<br><br>//-------------------------------------------<br>function StrCmp(String1, String2: string): boolean; &nbsp;//比较两个字符串--不区分大小写<br>begin<br> &nbsp;Result := False;<br> &nbsp;if lstrcmpi(pchar(String1), pchar(String2)) = 0 then Result := True;<br>end;<br><br>function GetCaption(const hWnd: LongWord): string;<br>var<br> &nbsp;szWindowText: array[0..MAX_PATH] of Char;<br> &nbsp;szTextLength: Integer;<br>begin<br> &nbsp;szTextLength := SendMessage(hWnd, WM_GETTEXT, MAX_PATH, Integer(@szWindowText[0]));<br> &nbsp;szWindowText[szTextLength] := #0;<br> &nbsp;Result := szWindowText;<br>end;<br><br>function GetClassStr(const hWnd: LongWord): String;<br>var<br> &nbsp;szWindowClass: array[0..MAX_PATH] of Char;<br>begin<br> &nbsp;GetClassName(hWnd,szWindowClass,Sizeof(szWindowClass));<br> &nbsp;Result := szWindowClass;<br>end;<br>//-----------------------------------------------------------------------<br><br>function EnumPIDWindows(WinHwnd: LongWord; Param: LongWord): Boolean; stdcall;<br>var<br> &nbsp;PID:dword;<br>begin<br> &nbsp;if WinHwnd=0 then<br> &nbsp;begin<br> &nbsp; &nbsp;Result:=False;<br> &nbsp; &nbsp;Exit;<br> &nbsp;end;<br> &nbsp;GetWindowThreadProcessId(WinHwnd,@PID);<br> &nbsp;if Param=PID then<br> &nbsp;begin<br> &nbsp; &nbsp;SetLength(List, Length(List) + 1);<br> &nbsp; &nbsp;List[High(List)].Handle:=WinHwnd;<br> &nbsp; &nbsp;List[High(List)].ClassStr:=GetClassStr(WinHwnd);<br> &nbsp; &nbsp;List[High(List)].Caption:=GetCaption(WinHwnd);<br> &nbsp;end;<br> &nbsp;Result:=True;<br>end;<br><br>function GetProessID(PressName:String):dword;<br>var<br> &nbsp;Process32: TProcessEntry32;<br> &nbsp;ProcessSnapshot: THandle;<br>begin<br> &nbsp;Result:=0;<br> &nbsp;ProcessSnapshot := CreateToolHelp32SnapShot(TH32CS_SNAPALL, 0);<br> &nbsp;Process32.dwSize := SizeOf(TProcessEntry32);<br> &nbsp;Process32First(ProcessSnapshot, Process32);<br> &nbsp;repeat<br> &nbsp; &nbsp;if StrCmp(PressName,Process32.szExeFile)then &nbsp;//Result:=Process32.th32ProcessID; //判断进程名-不区分大小写～<br> &nbsp; &nbsp;begin<br> &nbsp; &nbsp; &nbsp;Result:=Process32.th32ProcessID;<br> &nbsp; &nbsp; &nbsp;SetLength(List, 0);<br> &nbsp; &nbsp; &nbsp;EnumWindows(@EnumPIDWindows,Process32.th32ProcessID);<br> &nbsp; &nbsp;end;<br> &nbsp;until not (Process32Next(ProcessSnapshot, Process32));<br> &nbsp;CloseHandle(ProcessSnapshot);<br>end;<br><br><br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br> &nbsp;I:Integer;<br>begin<br> &nbsp;Form1.Caption:='进程句柄:'+IntToStr(GetProessID(Edit1.Text));<br> &nbsp;if GetProessID(Edit1.Text)&gt;0 then<br> &nbsp;begin<br> &nbsp; &nbsp;Form1.Caption:=Form1.Caption+',窗口数量:'+IntToStr(Length(List));<br> &nbsp; &nbsp;if Length(List)=0 then Exit;<br> &nbsp; &nbsp;ListBox1.Items.Clear;<br> &nbsp; &nbsp;for I:=Low(List) to High(List) do<br> &nbsp; &nbsp;begin<br> &nbsp; &nbsp; &nbsp;ListBox1.Items.Add('窗口句柄:'+IntToStr(List[I].Handle)+',窗口类名:'+List[I].ClassStr+',窗口标题:'+List[I].Caption);<br> &nbsp; &nbsp;end;<br> &nbsp;end;<br>end;<br><br>end.<br>