老问题了,返回鼠标指针处控件的类名(30分)

ouyongke · 2006-07-27

我想把"取密码过程"合在一起用,可是没有改好,郁闷: procedure TForm1.GetWindowText(HWnd:HWnd;GetPassWord:Boolean=False); //取得文本且可以取得密码 var iPwdChar  : Integer; iPwdLast  : Integer; psText    : array[0..255] of char; //psClass: String; i         : Integer; begin iPwdChar:=SendMessage(HWnd,EM_GETPASSWORDCHAR,0,0); if (iPwdChar<>0) and GetPassWord then begin   iPwdLast  :=  0;   i         :=  0;   while iPwdLast=0 do   begin     PostMessage(HWnd,EM_SETPASSWORDCHAR,0,0);     Application.ProcessMessages;     Inc(i);     iPwdLast:=SendMessage(HWnd,EM_GETPASSWORDCHAR,0,0);     if i>100 then break;   end ;   SendMessage(HWnd,WM_GETTEXT,255,Longint(@psText));   //Result:=psText;   Memo1.Text:= psText;   SendMessage(HWnd,EM_SETPASSWORDCHAR,iPwdChar,0); end else begin   SendMessage(HWnd,WM_GETTEXT,255,Longint(@psText));   //Result:=psText;   Memo1.Text:= psText; end; //sendMessage(HWnd, WM_GETCLASSNAME,255,Longin(@psClass));  GetClassName(hWND,PChar(psClass),256);      //HWIND2 mText  SetLength(psClass,StrLen(PChar(psClass)));    //mText mText  Edit1.Text:= psClass; end; 老东西就不给多少分了

bihai · 2006-08-06

Function GetMousePosClassName:ShortString; var    hWnd: THandle;    aName: array [0..255] of char;    rPos: TPoint; begin    if boolean(GetCursorPos(rPos)) then    begin        hWnd := WindowFromPoint(rPos);  //句柄        if boolean(GetClassName(hWnd, aName, 256)) then            Result:= string(aName)     //类名        else Result:='';    end    else Result:=''; end; 获得文字，用下句    SendMessage(hWndMouseOver, WM_GETTEXT, 255, LongInt(Text));  //设置内容

ouyongke · 2006-09-05

呵呵，就这个啦。 谢谢罗，其实我已经自己搞明白了，在这里多放几天，大家都来看看吧

老问题了,返回鼠标指针处控件的类名(30分)

ouyongke

Unregistered / Unconfirmed

bihai

Unregistered / Unconfirmed

ouyongke

Unregistered / Unconfirmed

Similar threads