DLL hält Programm auf

[Luckie]

Ich habe eine DLL, die mir eine SplashScreen beim Programm start anzeigt. Diese DLL erzeugt einfach nur ein Fenster mit dem Bitmap:

Delphi-Quellcode:

library SplashScreen;

{$R 'Resource.res' 'Resource.rc'}

// [..]

function WndProc(hWnd, uMsg, wParam, lParam: DWORD): LRESULT; stdcall;
var
  ps           : TPaintStruct;
  dc           : HDC;
  // [..]
  DlgRect      : TRect;
  DesktopRect  : TRect;
begin
  Result := 0;
  case uMsg of
    WM_DESTROY:
      begin
        if hBitMap <> 0 then
          DeleteObject(hBitMap);
        PostQuitMessage(0);
      end;
    WM_CREATE:
      begin
        GetWindowRect(hWnd, DlgRect);
        GetWindowRect(GetDesktopWindow, DesktopRect);
        DlgWidth := DlgRect.right - DlgRect.left;
        DlgHeight := DlgRect.bottom - DlgRect.top;
        MoveWindow(hWnd, (DesktopRect.right - DlgWidth) div 2,
          (DesktopRect.bottom - DlgHeight) div 2, DlgWidth, DlgHeight, False);
        hBitMap := LoadBitmap(HInstance, BitmapName);
      end;
    WM_PAINT:
      begin
        dc := BeginPaint(hWnd, ps);
        hMemoryDC := CreateCompatibleDC(dc);
        hOldBmp := SelectObject(hMemoryDC, hBitMap);
        GetObject(hBitMap, SizeOf(TBitmap), @bitmap);
        StretchBlt(dc, 0, 0, WndWidth, WndHeight, hMemoryDC, 0, 0, bitmap.bmWidth,
          bitmap.bmHeight, SRCCOPY);
        SelectObject(hMemoryDC, hOldBmp);
        DeleteDC(hMemoryDC);
        EndPaint(hWnd, ps);
      end;
    WM_CLOSE:
      DestroyWindow(hWnd);
    WM_LBUTTONDOWN:
      DestroyWindow(hWnd);
  else
    Result := DefWindowProc(hWnd, uMsg, wParam, lParam);
  end;
end;

procedure ShowBitMap;
var
  wc           : TWndClassEx;
  msg          : TMsg;
begin
  wc.cbSize := SizeOf(TWndClassEx);
  wc.style := CS_HREDRAW or CS_VREDRAW;
  // [..]
  wc.hIconSm := 0;
  RegisterClassEx(wc);
  wnd := CreateWindowEx(0, ClassName, nil, WS_POPUP, Integer(CW_USEDEFAULT),
    Integer(CW_USEDEFAULT), WndWidth, WndHeight, 0, 0, HInstance, nil);
  ShowWindow(wnd, SW_SHOWNORMAL);
  while True do
  begin
    if not GetMessage(msg, 0, 0, 0) then
      Break;
    TranslateMessage(msg);
    DispatchMessage(msg);
  end;
  ExitCode := msg.wParam;
end;

procedure CloseSplashScreen;
begin
  DestroyWindow(wnd);
end;

procedure DllEntry(reason: DWORD);
begin
  if reason = DLL_PROCESS_ATTACH then // When the dll is loaded
    ShowBitMap;
end;

exports
  CloseSplashScreen;

begin
  DllProc := @DllEntry;
  DllEntry(DLL_PROCESS_ATTACH);
end.

Dann habe ich im Programm:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
const
  Libname = 'SplashScreen.dll';
var
  MyIcon       : TIcon;
  hImgSm       : HIMAGELIST;
  hImgBig      : HIMAGELIST;
  fi           : TSHFileInfo;
  i            : Integer;
  LibHandle: THandle;
  CloseSplashScreen: TCloseSplashScreen;
begin
  LibHandle := LoadLibrary(Libname);

  // ganz viel Code
    
  if LibHandle <> 0 then
  begin
    @CloseSplashScreen := GetProcAddress(LibHandle, 'CloseSplashScreen');
    if Assigned(CloseSplashScreen) then
      CloseSplashScreen;
    FreeLibrary(LibHandle);
  end;
end;

Wie man sieht kann man die SplashScreen auch schließen, wenn man draufklickt. Jetzt verhält es sich so: Die DLL wird geladen und das Fenster aus der DLL auch angezeigt. Jetzt dachte ich, mein Programm macht im Code weiter. Tut es aber nicht. Wenn ich einen Haltepunkt auf die Zeile
if LibHandle <> 0 then setzte, dann macht er erst da weiter, wenn ich auf die SplashScreen geklickt habe. Was mache ich falsch oder wo ist mein Denkfehler.? Eigentlich sollte es so laufen, dass wenn er fertig ist, die Proztedur aus der DLL aufruft, was auch klappt, und dann die DLL wieder entläd.