Не привязанный прогресс при запуске приложения

[altcore]

Нужна заставка (splash), которая будет висеть на экране до запуска основного окна приложения. Меня не устраивает вариант, когда splash просто висит заданное кол-во времени. Должно быть что-то вроде:

begin
  Application.Initialize;
  fmProgress := TfmProgress.Create(Application);
  fmProgress.Show;
  fmProgress.Update;

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

Хочу, чтобы там бегал прогресс бар. Он не должен отображать реальный прогресс. Чтобы сделать его таким, как например при старте Windows, нужно:

const
PBS_MARQUEE = $08;
PBM_SETMARQUEE = WM_USER + 10;
....
SetWindowLong(ProgressBar1.Handle, GWL_STYLE,
GetWindowLong(ProgressBar1.Handle, GWL_STYLE) Or PBS_MARQUEE);
{ Включить }
SendMessage(ProgressBar1.Handle, PBM_SETMARQUEE, 1, FSpeed);
...
{ Выключить }
SendMessage(ProgressBar1.Handle, PBM_SETMARQUEE, 0, 0);

Я так понимаю, что для этого нужно работать с TThread. Но опыта работы с потоками нету, собственные попытки не привели к желаемому результату. Прошу помочь. Спасибо.

[Korben5E]

а реальный прогресс чего должен отображаться - загрузки библиотек VCL?
которые как раз и занимают большинство времени?

так-же при загрузке VCL - ProcessMessages не везде (точнее нигде) прописано,
будет притормаживать.

ЗЫ: пробовали уже - ничего путнего не получилось.....
если только симулировать процесс загрузки.

[altcore]

Должна просто бегать полоска прогресса... В моей программе неудобно делать реальный прогресс чего-либо, а приложение запускается 3-5 секунд. Я хочу, чтобы пользователь знал, что приложение работает и до появления главной формы видел окно с бегающей полоской.

[Korben5E]

предлагаю сделать анимированый гиф, который будет бесконечно крутится

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

ну и сам TThread и сложен и прост....

http://www.delphimaster.ru/articles/thread/index.html

[altcore]

Дело в том, что код в моей процедуре, схожей с DoWork по вашей ссылке, почему-то начинает выполнятся только после запуска приложения.

и спасибо за интерес к моей проблеме..

[Korben5E]

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

Дело в том, что код в моей процедуре, схожей с DoWork по вашей ссылке, почему-то начинает выполнятся только после запуска приложения.

и спасибо за интерес к моей проблеме..

продемонстрируйте код

[altcore]

Ну вот набросок:

procedure TfmProgress.KillProgress;
begin
  NewThread.DoTerminate;
end;

procedure TNewThread.Execute;
var
  i: integer;
begin
  while not Terminated do
    Synchronize(DoWork);
end;

procedure TNewThread.DoWork;
begin
 // здесь любой код
end;

procedure TfmProgress.FormShow(Sender: TObject);
begin
  NewThread := TNewThread.Create(true);
  NewThread.FreeOnTerminate := true;
  NewThread.Priority := tpLower;
  NewThread.Resume;
end;

вызов формы как в посте №1

[BOBAH13]

Спешу вас огорчит уважаемый, боюсь что Synchronize(DoWork); код указанной функции DoWork будет выполнен в одном и том же потоке, а именно в главном потоке где собственно и исполняется GUI приложения. Мои вам советы
1. читаем туториалы по работе и создании многопоточных приложений в Delphi да и вообще в Windows (WinAPI).
2. чтобы удостоверится, открываем интернет и читаем внимательно назначение функции TThread.Synchronize()

[altcore]

А если я вам скажу, что прогресс начинает прокручивается, когда основное приложение запустилось?

[Korben5E]

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

А если я вам скажу, что прогресс начинает прокручивается, когда основное приложение запустилось?

да... именно это и сказали

...код указанной функции DoWork будет выполнен в одном и том же потоке, а именно в главном потоке где собственно и исполняется GUI приложения....

я очень давно не занимался и код у себя не нашел... сейчас не помню...(с памятью проблемы )

может BOBAH13 подробно объяснит в чем дело?