NonVCL: SplashScreen

[wicht]

Mein Code dazu sah so aus:

Delphi-Quellcode:

if not UpdateLayeredWindow(SplashWndHandle, 0, nil, @BitmapSize, SplashBitmap.Canvas.Handle, @SplashBitmapPos, 0, @BlendFunction, ULW_ALPHA) then
  OutputDebugString(PChar(IntToStr(GetLastError)));