Тема: Заставка
Показать сообщение отдельно
Старый 09.07.2008, 00:17   #2
vitalik1
Оператор ЭВМ
 
Регистрация: 11.11.2007
Сообщений: 26
Написано 6 полезных сообщений
(для 10 пользователей)
Радость Ответ: Заставка

Вот так:

program test;
var
   
imgimage;
begin
   img
:=LoadImage('/logo.png');//загрузка изображения
   
DrawImage(img,(getwidth-getimagewidth(img))/2,
         (
getheight-getimageheight(img))/2);//отрисовка в центре экрана
   
repaint;
   
delay(1000); //задержка
   //продолжение работы программы


end
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
Seregakz (09.07.2008)