已经编译的应用不可能知道的。

解决方案 »

  1.   

    这边有段程序,看看吧
    function EnumChildProc(hwnd: HWND; lParam: LPARAM): BOOL; stdcall; var
      classname:array [0..254] of char;
    begin
      getclassname(hwnd,classname,sizeof(classname));
      TMemo(lParam).Lines.Add(classname);
      Result := True;
    end;
    procedure TForm1.Timer1Timer(Sender: TObject);
    var
      p:tpoint;
      handle:thandle;begin
      getcursorpos(p);
      handle:=WindowFromPoint(p);
      if iswindow(handle) then
      EnumChildWindows(handle ,
                       @EnumChildProc,
                       Integer(Memo1));end;
      

  2.   

    用反編譯的工具應該可以,我試過