如何自动登录？

Question

Form1在创建的时候调用了LoginFrm，输入帐号，密码后，按回车就登录了，程序返回Form1。
现在我想要做的是，给定一个帐号密码让系统自动登录，过程和上面一样，就是不用等待用户按回车。请问要怎么样做？

Answer 1

在onShow 中写：
自动输入帐号、密码，
自动按回车即可！

Answer 2

procedure TForm1.FormShow(Sender: TObject);
begin
  Edit1.Text := 'admin';  //帐号
  Edit2.Text := 'pass';   //密码
  Button1Click(nil) ;     //按回车后执行按钮事件！
end;

Answer 3

呵呵，有意思。即便写成这样
procedure TForm1.FormShow(Sender: TObject);
begin
  Edit1.Text := 'admin';  //帐号
  Edit2.Text := 'pass';   //密码
  Button1Click(nil) ;     //按回车后执行按钮事件！
end;实际你也看不到这个效果，非要看到这个登陆窗体就加个sleep，然后在button1click（nil）；这步完全没有必要吧，直接show主窗体多简单啊。

Answer 4

对LoginFrm的口令输入框监听onkeydown事件,并加入登录的校验功能即可.

Answer 5

在启动LoginFrm时自动输入用户名和密码
然后LoginButton.click

Answer 6

１：在被控程序的Project->View Source中加点参数接收代码，将他设置为公用变量。
２：调用他时，可以：Winexec(pChar('MyProj.exe /LogName=MyUser /Pass=MyPass'),......之类的了。

Answer 7

记得在DOS下用程序吗？
Format C: /s/u/v/q