Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Рисование по экрану... [D7, Win95/98, WinME, NT4, Win2k, WinXP]

CRACKISH © (2004-07-24 09:27:00)
Люди подскажите код который бы рисовал надпись на экране, и все время стоял поверх всех окон! Прога без форм. Спасибо!

Rem (2004-07-24 12:43:00) [1]
Можешь добавить для формы

FormStyle := fsStayOnTop;

CRACKISH (2004-07-24 12:41:00) [2]
Спасибо!

Rem (2004-07-24 12:39:00) [3]
Да хоть с фейерверком...

Для формы

Form.WindowState := wsMaximized; Form.BorderStyle := bsNone; Form.TransparentColor := true;

В OnCreate
TransparentColorValue := GetSysColor(COLOR_BTNFACE);

На форму - Label

Label.Caption := 'Типа, поздавляю...'; Label.Font.Name := 'Times New Roman'; Label.Font.Size := 50;

В Label.OnClick
Application.Terminate;

На форму - Image

Image.Picture- загрузить в DesignTime или LoadFromFile()

В Image.OnClick
Application.Terminate;

P.S. Удачи...

CRACKISH (2004-07-24 12:27:00) [4]
Спасибо! но я бы хотел чтоб надпись была бы на весь экран! И с анимацией! И как бы рисунок ввиде сердца засунуть туда? Спасибо!

Rem (2004-07-24 12:02:00) [5]
Тогда нет необходимости в программе без окна.

См. TForm.TransparentColor и TForm.TransparentColorValue

CRACKISH (2004-07-24 11:37:00) [6]
Вобщето я пишу прогу, для своей подруги, которая бы пятого числа (день нашей встречи) поздравляля бы ее!

Rem (2004-07-24 11:08:00) [7]
Потому что программа, не имеющая окна, не может обрабатывать Windows-сообщения. Поэтому ни на клавиатуру, ни на мышь реагировать не будет. Поэтому пользователь не сможет ею управлять. Поэтому она - вредоносная.

Конечно, можно поставить Hook на нужные события, но, учитывая твои познания в программировании (нулевые (!) - чего только стоит попытка использовать типы и функции без объявления модулей, в которых они объявлены/реализованы [3]) и в русском языке ("распАзнает" [3]), ты этого никогда не сделаешь.

Поэтому быстренько бери учебник - и начинай писать "Hallo, World!". И забудь о вирусах и прочих гадостях! Навсегда забудь - мой тебе совет!

CRACKISH (2004-07-24 10:56:00) [8]
Вот почему сразу решили что программа вредоносная?

Rem (2004-07-24 10:46:00) [9]
Без окна не получится.
И вообще у тебя ничего не получится.
Потому что тебе руки повыдергивают за написание вредоносных программ!

CRACKISH (2004-07-24 10:40:00) [10]
Fredy314
У меня delphi не распазнает dc и TextOutxy !

CRACKISH (2004-07-24 09:52:00) [11]
Спасибо! А вот если без окна, то как выйти из ситуации?

Fredy314 (2004-07-24 09:47:00) [12]
МОжно конечно нарисовать напрямую на екране
типа
dc:=GetDC(0);
TextOutxy(100,100,'Hello Word!',11);
ReleaseDC(0,dc);
но тогда надпись будет затиратся.
а можна зоздать окошко CreateWindowEx(...)
с параметрами WS_EX_TOPMOST+WS_EX_TRANSPARENT
и Style=(без рамки и заголовка)
и тогда что нарисуешь будет на самом верху а самого окошка видно не будет(размеры окна желательно подогнать под размеры текста)

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »