Question

delphi 命令行

我的程序有两个界面：
点击 Test 上的 Setup 按钮后，打开另一个界面，Test界面保留。
我现在想做的是 在程序运行的时候 ，避开Test这个界面，直接进入第二个界面，类似于登录，Test 上面的 这些参数 如何通过命令行的方式执行？

Answer 1

说明：TForm1为登录窗口，TForm2为登录通过后显示的主窗口。
cbb_type : TComboBox
ed_IP : TEdit
ed_Port : TEdit
ed_User : TEdit
ed_Pass : TEdit

在TForm1的最上面的uses后定义一个用于记录登录信息的Record：

type //登录信息
tLoginInfo=record
TypeStr : String; //Type
IP : String; //IP
Port : String; //Port
User : String; //User
Pass : String; //PW
end;

var
C_LoginInfo : tLoginInfo;
procedure Load_LoginInfo; //Load控件录入的信息

//这个放到implementation下
procedure Load_LoginInfo; //Load控件录入的信息
begin
C_LoginInfo.TypeStr := Form2.cbb_type.Text;
C_LoginInfo.IP := Form2.ed_IP.Text;
C_LoginInfo.Port := Form2.ed_Port.Text;
C_LoginInfo.User := Form2.ed_User.Text;
C_LoginInfo.Pass := Form2.ed_Pass.Text;
end;

Setup按钮下的OnClick事件中写：
Load_LoginInfo; //Load控件录入的信息
//IF 登录时要做的判断通过 THEN
//BEGIN
ModalResult := mrok;
//END
//ELSE 登录时要做的判断不通过
//BEGIN
//不通过时执行的操作;
//END;

dpr工程文件中的Begin...End.之间写(注意要在uses下引用Controls, SysUtils两个单元)：
Application.Initialize;
Application.CreateForm(TForm2, Form2);

if Form2.ShowModal=mrok then
begin
Form2.Free;
sleep(500);
end
else
begin;
Application.Terminate;
end;

Application.CreateForm(TForm1, Form1);
Application.Run;

以上，如有疑问可加QQ：34168919 欢迎讨论Delphi相关问题，加时请注明“Delphi讨论”。