$H windows.ph
$H structs.ph


Proc Splash
Declare Static&,Image&,BMP#,Width&,Height&
Parameters Bitmap$,msDelay&
Image& = ~LoadImage(0,ADDR(Bitmap$),0,0,0,~LR_LOADFROMFILE)
Dim BMP#,24
~GetObject(Image&,24,BMP#)
Width& = Long(BMP#,4)
Height& = Long(BMP#,8)
Dispose BMP#
Static& = Control("Static","",$5040000E,(%maxx-Width&)/2,(%maxy+Height&)/2-Height&,0,0,%Desktop,1000,%Hinstance,$200)
Sendmessage(Static&,$0172,0,Image&)
~SetWindowPos(Static&,~HWND_TOPMOST ,0,0,0,0,~SWP_NOMOVE | ~SWP_NOSIZE)
~RedrawWindow(Static&,0,0,$0581)
Sleep msDelay&
~RedrawWindow(0,0,0,$0581)
~DeleteObject(Image&)
~DestroyWindow(Static&)
EndProc

'PFAD ZUM BITMAP ANPASSEN
Splash "C:\\Windows\\setup.bmp",6000 'Splash-Screen 6 Sekunden zeigen
cls
Print "Hier geht's dann mit dem eigentlichen Programm weiter"
waitinput
end