Рисование по экрану...

← →
CRACKISH (2004-07-24 09:27) [0]

Люди подскажите код который бы рисовал надпись на экране, и все время стоял поверх всех окон! Прога без форм. Спасибо!

← →
Fredy314 © (2004-07-24 09:47) [1]

МОжно конечно нарисовать напрямую на екране
типа
dc:=GetDC(0);
TextOutxy(100,100,"Hello Word!",11);
ReleaseDC(0,dc);
но тогда надпись будет затиратся.
а можна зоздать окошко CreateWindowEx(...)
с параметрами WS_EX_TOPMOST+WS_EX_TRANSPARENT
и Style=(без рамки и заголовка)
и тогда что нарисуешь будет на самом верху а самого окошка видно не будет(размеры окна желательно подогнать под размеры текста)

← →
CRACKISH (2004-07-24 09:52) [2]

Спасибо! А вот если без окна, то как выйти из ситуации?

← →
CRACKISH (2004-07-24 10:40) [3]

Fredy314
У меня delphi не распазнает dc и TextOutxy !

← →
Rem (2004-07-24 10:46) [4]

Без окна не получится.
И вообще у тебя ничего не получится.
Потому что тебе руки повыдергивают за написание вредоносных программ!

← →
CRACKISH (2004-07-24 10:56) [5]

Вот почему сразу решили что программа вредоносная?

← →
Rem (2004-07-24 11:08) [6]

Потому что программа, не имеющая окна, не может обрабатывать Windows-сообщения. Поэтому ни на клавиатуру, ни на мышь реагировать не будет. Поэтому пользователь не сможет ею управлять. Поэтому она - вредоносная.

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

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

← →
CRACKISH (2004-07-24 11:37) [7]

Вобщето я пишу прогу, для своей подруги, которая бы пятого числа (день нашей встречи) поздравляля бы ее!

← →
Rem (2004-07-24 12:02) [8]

Тогда нет необходимости в программе без окна.

См. TForm.TransparentColor и TForm.TransparentColorValue

← →
CRACKISH (2004-07-24 12:27) [9]

Спасибо! но я бы хотел чтоб надпись была бы на весь экран! И с анимацией! И как бы рисунок ввиде сердца засунуть туда? Спасибо!

← →
Rem (2004-07-24 12:39) [10]

Да хоть с фейерверком...

Для формы

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:41) [11]

Спасибо!

← →
Rem (2004-07-24 12:43) [12]

Можешь добавить для формы

FormStyle := fsStayOnTop;

Рисование по экрану... Найти похожие ветки