Application.Initialize;
try
//登陸與註冊放在壹塊
if ShowLogin then
begin
Application.CreateForm(TfrmMain, frmMain);
Application.Run;
end;
finally
Application.Terminate;
end;
ShowLogin 在妳的登陸窗體定義
var
frmLogin: TfrmLogin;
function ShowLogin:Boolean;
function ShowLogin:Boolean;
begin
Result := False;
try
try
frmLogin := TfrmLogin.Create(Application);
frmLogin.lblsysCaption.Caption := UserInfo.sysProduct;
frmLogin.lblVersion.Caption := '版本號:'+UserInfo.VerCode;
frmLogin.lblsysCaption.Height := 30;
frmLogin.Update;
if frmLogin.ShowModal = mrOk then
begin
//檢測註冊情況
if not RegSucceed then
begin
Application.Terminate;
Exit;
end;
Result := true;
end;
except
end;
finally
frmLogin.Free;
end;
end;