[lmikle]

Сообщение от bakalim

может у кого есть исходник где такое реализовано... как не крутил не получилось...выдает ошибку...

Основной вопрос - откуда берется логин и пароль для проверки того, что ввел пользователь. В принципе, ничто не мешает "сесть" на OnCreate главной формы и, если что, вызвать Halt для закрытия приложения.

Код:

procedure TForm1.Create(Sender : TObject);
var
  I : Integer;
  ASplashForm : TSplashForm;
begin
  With TLoginForm.Create(Application) Do
    Begin
      If (Execute <> mrOK) And (Login <> 'username') And (Password <> 'pwd') Then Halt(0);
      Free;
    End;

  ASplashForm := TSplashForm.Create(Application);  
  ASplashForm.Show;
  ASplashForm.Update;
  For I := 1 to 100 Do
    Begin
      ASplashForm.ProgressBar1.Position := I;
      ASplashForm.Update;
    End;
  ASplashForm.Close;
  ASplashForm.Free;
end;

Execute, Login и Password соответсвенно метод и свойства TLoginForm.
На TSplashForm лежит TProgressBar.