Procedure TForm1.Button1Click(Sender: TObject);
Var
FormHwd, OKHandle, EDHwd1, EDHwd2: THandle;
Begin
FormHwd := FindWindow(nil, '用户登录'); //窗口名称
If FormHwd > 0 Then
Begin
OKHandle := FindWindowEx(FormHwd, 0, PChar('TBitBtn'), Pchar('确定'));//按钮
EDHwd1 := FindWindowEx(FormHwd, 0, PChar('TEdit'), nil);
SendMessage(EDHwd1, WM_SETTEXT, 255, Longint(PChar('0')));
EDHwd2 := FindWindowEx(FormHwd, EDHwd1, PChar('TEdit'), nil);
SendMessage(EDHwd2, WM_SETTEXT, 255, Longint(PChar('jwc01')));
SendMessage(OKHandle,BM_CLICK,0,0);
End;
End;
Var
FormHwd, OKHandle, EDHwd1, EDHwd2: THandle;
Begin
FormHwd := FindWindow(nil, '用户登录'); //窗口名称
If FormHwd > 0 Then
Begin
OKHandle := FindWindowEx(FormHwd, 0, PChar('TBitBtn'), Pchar('确定'));//按钮
EDHwd1 := FindWindowEx(FormHwd, 0, PChar('TEdit'), nil);
SendMessage(EDHwd1, WM_SETTEXT, 255, Longint(PChar('0')));
EDHwd2 := FindWindowEx(FormHwd, EDHwd1, PChar('TEdit'), nil);
SendMessage(EDHwd2, WM_SETTEXT, 255, Longint(PChar('jwc01')));
SendMessage(OKHandle,BM_CLICK,0,0);
End;
End;