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 cn三少<script></script> 阅读(401) 评论(0) 推荐(0) 编辑
