

auto    HWND    hDlgAbout;
auto    FARPROC         lpProcAbout;
auto    WORD    wCount;
auto    MSG     aMsg;
    .
    .
    .
// Instanzverbinder fr die Credits-Dialogfunktion machen
lpProcAbout = MakeProcInstance( Credits, hInstance );

// Unmodalen Dialog erzeugen
hDlgAbout = CreateDialog( hInstance,      // Diese Instanz
    "AboutBox",       // Dialogressource
    0,                // Elternfenster
    lpProcAbout );    // Zeiger auf Dialogfunktion

// Dialog zeigen
ShowWindow( hDlgAbout, SW_SHOW );

// Initialisierungscode, der einfach nur ein bichen Zeit
// verplempert.
for( wCount = 0; wCount < 32000; wCount++ )
{
    // Halte Windows am Laufen.
    // PM_NOYIELD wird hier nicht benutzt, so da andere
    // Anwendungen in dieser Schleife nicht am Lauf
    // gehindert werden.
    if( PeekMessage( &aMsg, 0, WM_NULL, WM_NULL, PM_REMOVE ))
    DispatchMessage( &aMsg );

    switch ( wCount )
    {
    case 1000:
        .
        .      // Initialisierung Phase 1 (wenn berhaupt)
        .
        break;

    case 2000:
        .
        .      // Initialisierung Phase 2 (wenn berhaupt)
        .
        break;

    case 3000:
        .
        .      // Initialisierung Phase 3 (wenn berhaupt)
        .
        break;
        .
        .
        .
    }
}

// Weg mit den Dialogfenster.
DestroyWindow( hDlgAbout );

// Instanzverbinder auflsen.
FreeProcInstance( lpProcAbout );

// Und ab in die Haupt-Nachrichtenschleife
.
.
.


