Надпись поверх всех окон!

[TrueTrue]

Подскажите, как в PB, вывести надпись на экран, в цвете, с прозрачным фоном, поверх всех окон, игр, и видео... Видел такое в комп клубах, когда завершается оплаченное время, отсчитывает 10 секунд, в любом приложении, а так же поверх видео.

[Димитрий]

Поверх всех окон

Код: Выделить всё

#COMPILE EXE
#DIM ALL
#INCLUDE ONCE "WIN32API.INC"

FUNCTION PBMAIN () AS LONG
  LOCAL i AS LONG
  LOCAL R AS RECT
  LOCAL hdc AS LONG

    SetRect R, 0, 0, 200, 20
    OffsetRect R, 100, 100
    hdc = GetDC(0)

    FOR i = 0 TO 200
        DrawText hdc, "Hello World" + STR$(i), LEN("Hello World" + STR$(i)), R, %DT_CENTER
        SLEEP 100
    NEXT i
END FUNCTION

Размер, цвет, фон надо покопать А нужна ли тут красивость?