Delphi之旅:
我觉得在应用程序的工程文件中添加几行代码就可以了,如以下工程文件:
Program CreateCodes;
uses
Forms,
Main in 'Main.Pas' {MainForm};
Login in 'Login.pas' {LoginForm}
{$R *.res};
Begin
Application.Initilize;
LoginForm:=TLoginForm.Create(Application);
LoginForm.ShowModal;
LoginForm.UpData;
If LoginForm.ModeResult=1
then
begin
Application.CreateForm(TMainForm,MainForm);
Application.Run;
end
Else Application.Terminate;
End.
然后在登录窗口中对返回值进行处理(密码验证),如:
var i:integer;//i为一个外部的全局变量,在系统初始化时置1。
Procedure TLoginForm.BtnLoginClick(Send:TObject);
begin
while i<=3 do
begin
if 密码正确
then
begin
ModalResult:=1;
Break;
end
else
begin
inc(i);
end;
end;
if i>3 then ModalResult:=0;
end;
//说明:这段程序是我在看到该问题后写的,没有测试,里头可能存在很多问题,
在此我只提供一个解决该问题的一种思路,仅供参考。