[SCrat.ORS]

Просто хочу поделиться.
Использован WinAPI, Ddraw, bass
Самая обычная заставка "сквозь вселенную", но с отличительной особенностью - Анаглиф (очки с голубым и красным фильтром).
Если в корень закинуть релакс-трек с именем music.mp3 - он будет воспроизведён вместе с заставкой. Разрешение экрана установлено 800х600.

Компилированная версия - Тут
Исходники - Тут

Если есть желание, - изменяйте по своему вкусу, добовляйте, и т.д. за авторство не беспокоюсь. или просто релаксируйте и наслаждайтесь чем есть.

[NumLock]

fone.bmp не хватает и не плохо бы:

Код:

function WindowProc (hwnd, msg: longWORD; wParam, lParam: Integer): longint; stdcall;
begin
result:=0;
case Msg of
  WM_KEYDOWN: SendMessage(hwnd, WM_CLOSE, 0, 0);

эффект есть

[ined]

Я тоже оценил. Но вот только ГДЕ ВЗЯТЬ ОЧКИ!! )))))))

[NumLock]

Сообщение от ined

ГДЕ ВЗЯТЬ ОЧКИ!!

http://dx.com/c/hobbies-toys-899/3d-glasses-832
либо картонные в стереожурналах в книжных магазинах

[ined]

Сообщение от NumLock

http://dx.com/c/hobbies-toys-899/3d-glasses-832
либо картонные в стереожурналах в книжных магазинах

Ну ты прям пошутил)))))

[angvelem]

Очень порадовал сайт ТС , но орфографические ошибки лучше исправить.

[SCrat.ORS]

Сообщение от NumLock

fone.bmp не хватает и не плохо бы:

Код:

function WindowProc (hwnd, msg: longWORD; wParam, lParam: Integer): longint; stdcall;
begin
result:=0;
case Msg of
  WM_KEYDOWN: SendMessage(hwnd, WM_CLOSE, 0, 0);

эффект есть

Фон был,.. но глаза мозолит ужас, - по этому и убрал, хотя в коде
В коде закоменчен вывод фона,.. убери коментарий и нарисуй фон который нравится вот тот который был - Картнко