当windows应用程序运行时，如何得到它的名称？(100分)

<br>function GetText(Wnd : HWND) : string;<br>var<br>&nbsp; &nbsp; textlength : integer;<br>&nbsp; &nbsp; text : String;<br>begin<br>&nbsp; &nbsp; textlength:=SendMessage(Wnd,WM_GETTEXTLENGTH,0,0);<br>&nbsp; &nbsp; if textlength=0 then<br>&nbsp; &nbsp; &nbsp; Result := ''<br>&nbsp; &nbsp; else begin<br>&nbsp; &nbsp; &nbsp; SetLength(text, textlength+1) ;<br>&nbsp; &nbsp; &nbsp; SendMessage(Wnd,WM_GETTEXT,textlength+1,PChar(text));<br>&nbsp; &nbsp; &nbsp; Result:=text;<br>&nbsp; &nbsp; end;<br>end;<br><br>function EnumWindowsProc (Wnd: HWND; LParam: LPARAM): BOOL; stdcall;<br>var<br>&nbsp; &nbsp; s : String ;<br>begin<br>&nbsp; &nbsp; Result := True;<br>&nbsp; &nbsp; if (IsWindowVisible(Wnd)) and (GetWindowLong(Wnd, GWL_HWNDPARENT) = 0) and (GetWindowLong(Wnd, GWL_EXSTYLE) and WS_EX_TOOLWINDOW = 0) then begin<br>&nbsp; &nbsp; &nbsp; &nbsp; s := ''+Inttostr(Wnd)+', '+ GetText(Wnd) ;<br>&nbsp; &nbsp; &nbsp; &nbsp; Form1.Listbox1.items.add(s);<br>&nbsp; &nbsp; end;<br>end; &nbsp; <br><br>procedure TForm1.BtnRefreshClick(Sender: TObject);<br>var<br>&nbsp; &nbsp; Param : Longint;<br>begin<br>&nbsp; &nbsp; Param := 0 ;<br>&nbsp; &nbsp; EnumWindows(@EnumWindowsProc , Param);<br>end;<br>