登陆服务器

Question

我想在程序运行之前登陆服务器（可以显示登陆窗口），
服务器设有登陆密码。
请问怎样实现？

Answer 1

shap窗体一样,设一个登陆窗体就行了呀!!!!!!!!!

Answer 2

在 .dpr 文件中begin
  Application.Initialize;
  LoginForm:=TLoginForm.Create(Application);
  if LoginForm.ShowModal=mrOK then
    ..
  else
    ..
  Application.Run;
end.

Answer 3

在 .dpr 文件中begin
  Application.Initialize;
  LoginForm:=TLoginForm.Create(Application);
  if LoginForm.ShowModal=mrOK then
    ..
  else
    ..
  Application.Run;
end.

Answer 4

program Project1;uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};{$R *.RES}begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Form2:=TForm2.create(Application);
  try
    if Form2.ShowModal = 1 then      // form2为登陆窗口
    begin
      Application.Run;
    end
    else
     Application.Terminate;
  finally
    Form2.free;
  end;
end.