困惑：如何调用另一个程序，并控制它

Question

我现在想调用B（也是delphi）程序，我用的是
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(0,'open',projectB.exe'),nil,nil,SW_ShowNormal);
end;
启动后出现B程序的登陆界面，界面上有登陆框
 
问题是：如何向里面传进用户名和密码
并能实现自动点击登陆按钮的操作？

Answer 1

有好多方法实现。我给你一个我的实例（看门狗WatchDog)
var
  Dir: string;
begin
  ...
  Dir := ExtractFileDir(Application.ExeName);
  Winexec(Pchar(Dir+'\SMSEVALUATE.EXE 00001 11111),1);
  //SMSEVALUATE.EXE是我的程序名称与WatchDog在同一目录下
   用户代码:00001 用户密码:11111(你不一定这样设置，只要区分有没有参数就可以了)
  ...
在SMSEVALUATE的Project中这样写：  Application.Initialize;
  Application.Title := '我的系统;
  with  TFormLogin.Create(Application) do
  begin
    if ParamCount = 0 then //重要点，
                            //如果没有参数就正常显示登陆窗口，
                            //如果有参数就不显示，
                            //在FormLogin中要加入带参数运行时的处理代码
      ShowModal;
    if ModalResult = 1 then
    ...

Answer 2

先启动B这个进程，然后用FindWindow/FindWindowEx/GetWindow等API查找目标程序主窗口上的文本框和按钮(这个过程可能要试好几次才能准确找到)，成功得到文本框句柄后，用SetWindowText或WM_SETTEXT给文本框赋值，再向按钮发送BM_CLICK消息，例如：
SendMessage(hButton, BM_CLICK, 0, 0);

Answer 3

对对，这种实现方法很适合我的情况
就是能不能给点 代码demo之类的，如上面的sanmaotuo(老冯)兄弟那样
感激ing...

Answer 4

那都是些API应用，还需要详细代码？这样吧，你去www.ccrun.com/spy4win下载spy4win，可以自动产生一些简单的查找窗口的代码)for C++,Delphi,VB)，看看你就明白了。

Answer 5

经指点后，我写了以下一段代码
但是还有一个问题：如下，procedure TForm1.Button3Click(Sender: TObject);
var
  FHwnd : THandle;
  t1Hwnd:THandle;
  t2Hwnd: THandle;
  BHwnd: THandle;begin
  WinExec(PChar('project1.exe'),SW_HIDE) ;
  FHwnd:=FindWindow(nil,'form1');
  if fHwnd>0 then
  begin
    t1Hwnd:=FindWindowEx(fHwnd,0,nil,'edit1');
    t2Hwnd:=FindWindowEx(fHwnd,0,nil,'edit2');
//这样成功取到edit1句柄的前提是edit1的text必须有值
  但是当edit1的text属性为空的时候就取不到句柄,这可咋整？？    BHwnd:=FindWindowEx(fHwnd,0,nil,'button1');    if t1Hwnd>0 then PostMessage(t1Hwnd,WM_IME_CHAR,ord('a'),0) ;
    if t2Hwnd>0 then PostMessage(t2Hwnd,WM_IME_CHAR,ord('b'),0) ;
    if BHwnd>0 then PostMessage(BHwnd,WM_KEYDOWN,VK_RETURN ,0) ;
  end;
  //PostMessage(FHwnd,WM_KEYDOWN,VK_RETURN ,0)
  //SendMessage(FHwnd, BM_CLICK, 0, 0);
end;
  还望指点！

Answer 6

查找Edit时，先用FindWindowEx找到第一个文本框，第四个参数可为空，直接查找类名就可以。成功后用GetWnidow再查找下一个兄弟窗口。
可以参考一下这个：自动填写序列号演示
AutoFillSnDemo，安装Office2003时自动填写序列号工具源码，ccrun(老妖)编写。读者可自己扩展一下，成为一个通用的序列号填写工具。
http://www.ccrun.com/view.asp?id=349

Answer 7

在主模块调用子模块时（主模块与子模块是独立的程序），用DLL或DDE即可！

Answer 8

ccrun(老妖)已经说得很清楚了， 我来把老妖的精神Coding一下。很认真做的哦，不是说笑哈。
type
  TSAppForm = class(TForm)
    Button: TButton;
    procedure ButtonClick(Sender: TObject);
  private
    function FindControlByNumber(hApp: HWND; ControlClassName: string; ControlNumber: Integer): HWND;
    procedure SetEditText(hApp: HWND; EditClassName, AText: string; EditNumber: Integer);
    procedure SetButtonActive(hApp: HWND; ButtonClassName: string; ButtonNumber: Integer);
  public
    { Public declarations }
  end;var
  SAppForm: TSAppForm;implementation{$R *.dfm}{ TSAppForm }function TSAppForm.FindControlByNumber(hApp: HWND;
  ControlClassName: string; ControlNumber: Integer): HWND;
var
  i: Word;
  hControl: HWND;
begin
  Result := 0;
  hControl := 0;
  if IsWindow(hApp) then
  begin
    hControl := 0;
    for i := 0 to Pred(ControlNumber) do
    begin
      hControl := FindWindowEx(hApp, hControl, PChar(ControlClassName), nil);
      if hControl = 0 then
        Exit;
    end;
  end;
  Result := hControl;
end;procedure TSAppForm.SetEditText(hApp: HWND; EditClassName, AText: string;
  EditNumber: Integer);
var
  hEdit: HWND;
begin
  hEdit := FindControlByNumber(hApp, EditClassName, EditNumber);
  if hEdit <> 0 then
    SendMessage(hEdit, WM_SETTEXT, 0, Integer(PChar(AText)));
end;procedure TSAppForm.ButtonClick(Sender: TObject);
var
  hApp: HWND;
begin
  hApp := FindWindow(nil, 'RAppForm');
  if hApp > 0 then
  begin
    SetEditText(hApp, 'TEdit', 'Cock', 1);
    SetEditText(hApp, 'TEdit', 'Pussy', 2);
    SetButtonActive(hApp, 'TButton', 1);
  end;
end;procedure TSAppForm.SetButtonActive(hApp: HWND; ButtonClassName: string;
  ButtonNumber: Integer);
var
  hButton: HWND;
begin
  hButton := FindControlByNumber(hApp, ButtonClassName, ButtonNumber);
  if hButton > 0 then
    SendMessage(hButton, WM_KEYDOWN, VK_RETURN, 0);
end;end.
-------------------------------
type
  TRAppForm = class(TForm)
    Button: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure ButtonKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  RAppForm: TRAppForm;implementation{$R *.dfm}procedure TRAppForm.ButtonKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_Return then
    ShowMessage(Edit1.Text+'\'+Edit2.Text);
end;

Answer 9

献上我的拙码给其他需要的人：
（B程序上为 两个edit和一个button）
procedure TForm1.Button1Click(Sender: TObject);
var
  FHwnd : THandle;
  t1Hwnd:THandle;
  t2Hwnd: THandle;
  BHwnd: THandle;begin
  WinExec(PChar('projectB.exe'),SW_HIDE) ;
  FHwnd:=FindWindow(nil,'form1');
  if fHwnd>0 then
  begin
    t1Hwnd:=FindWindowEx(FHwnd,0,'TEdit',nil);
    if t1Hwnd<>0 then
      t2Hwnd:=GetWindow(t1Hwnd, GW_HWNDNEXT);
    BHwnd:=FindWindowEx(FHwnd,0,'TButton',nil);    if t1Hwnd>0 then 
       SendMessage(t1Hwnd, WM_SETTEXT, 0, Integer(PChar('user')));
    if t2Hwnd>0 then 
       SendMessage(t2Hwnd, WM_SETTEXT, 0, Integer(PChar('pwd')));
    if BHwnd>0 then
      PostMessage(BHwnd,WM_KEYDOWN,VK_RETURN ,0) ;
  end;
end;