Delphi sendmessage 外部程序传值
摘要:Procedure TForm1.Button1Click(Sender: TObject);VarFormHwd, OKHandle, EDHwd1, EDHwd2: THandle;BeginFormHwd := FindWindow(nil, '用户登录');//窗口名称If FormHwd > 0 ThenBeginOKHandle := FindWindowEx(FormHwd, 0, PChar('TBitBtn'), Pchar('确定'));//按钮EDHwd1 := FindWindowEx(FormHwd, 0, PCh
阅读全文
posted @ 2011-12-27 15:00