盒子论坛 v2.1

找到一些资料不知道行不行？
uses
  commctrl;

function  GetText(HWND1: hWnd):String;
var
tmp:String;
  Text1:string;
  buf:string;
  Len:Longint;
begin
    if(hWnd1>0) then
    begin
        Len:=longint(SendMessage(hWnd1,WM_GETTEXTLENGTH ,0,0));
        if(Len>0) then
        begin
            setlength(buf,len+2);
            SendMessage(hWnd1,WM_GETTEXT,Len+1,LPARAM(buf));
            Text1:=buf;
            setlength(buf,0);
        end;
    end;
    result:= Text1;
end;

var
  h: HWND;
begin
  h := FindWindow(nil,'桌面');
  if (h <> 0) then
  begin
    h := FindWindowEx(h,0,'BaseBar',nil);
    if (h <> 0) then
    begin
      h := FindWindowEx(h,0,'ReBarWindow32',nil);
      if h<> 0 then
      begin
         h:=FindWindowEx(h,0,'ToolbarWindow32',nil);
         if h<> 0 then
          begin
           h:=FindWindowEx(h,0,'ComboBox',nil);
             if h<>0 then
              begin
               h:=FindWindowEx(h,0,'Edit',nil);
               if h<>0 then
                  begin
                    Edit1.Text:=GetText(h);
                  end;
              end;
          end;
      end;
    end;
   end;
end;

----------------------------------------------

信息

登陆以后才能回复