progress bar during the start of an application

[Otto]

Is there a possibility to show a progress bar during the start of an application.
If not do you think it could be done with a starter.exe with a timer which is in the foreground and kills itself after a certain time.
Thanks in advance,
Otto

[mmercado]

Hello Otto:

Is there a possibility to show a progress bar during the start of an application.

Try TestProg.prg in \FWPPC\Samples.

Best regards.

Manuel Mercado

[Otto]

Hello Manuel,
thank you for your answer. You are right.
But I don’t find a way to integrate the DIALOG.
If I use the NOWAIT clause the Dialog is not correctly painted.

Do you suggest to integrate a button into the dialog “Start program” or enter password and then jump into a function
which loads all the necessary values?

Code: Select all  Expand view  RUN

function Main()
   local oDlgSome
   *----------------------------------------------------------

   if IsExeRunning( cFileName( HB_ArgV( 0 ) ) )
      MsgInfo1( "The application is already running" )
      return nil
   endif

  DEFINE DIALOG oDlgSome TITLE "Programmstart: WHBiene" ;
      SIZE 200, 200  
   ACTIVATE DIALOG oDlgSome CENTERED //NOWAIT
….
 

Best regards,
Otto