[kachkarvv]

Delphi WinAPI Мини (10кб) цифровые прозрачные часы на рабочий стол.
Не отображаются на панели задач.
Отключаются двойным щелчком по любой цифре.
Расположены в правом верхнем углу экрана.

Екзешник (transparent_clock.zip) здесь
Исходник здесь

Усовершенствованный вариант с возможностью изменения цвета (включить меню - правой кнопкой мыши ),
взамен двойного щелчка - перетаскивание, при выключении цвет и координаты запоминаются в файле
clock.prm (в папке прграммы)
Екзешник ( KWClock_digit.zip ) здесь

[NumLock]

Delphi 7 откомпилировала на 17920байт (17,5Кб)
Зачем не нормально завершать программу:

Код:

Halt(Msg.wParam);

?
И что с границами на светлых тонах:

?

[kachkarvv]

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

Delphi 7 откомпилировала на 17920байт (17,5Кб)

Спасибо. Это так. Забыл указать: все свои программы я сжимаю почти в 2 раза
с помощью upx.exe . Остальное подправлю.

[angvelem]

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

Зачем не нормально завершать программу:

Код:

Halt(Msg.wParam);

?

Для API, вполне нормальный (и правильный) код завершения.

[NumLock]

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

Для API, вполне нормальный (и правильный) код завершения.

в API нет Halt!!!
зато есть:
ExitProcess

Halt procedure
Initiates abnormal termination of a program.
Unit
System
Category
flow control routines
Delphi syntax:
procedure Halt [ ( Exitcode: Integer) ];
Description
Halt performs an abnormal termination of a program and returns to the operating system.

ну и на закуску:

Код:

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

procedure TForm1.FormCreate(Sender: TObject);
begin
// ExitProcess(0);
// Halt;
end;

угадай, что не понравиться VCL?

разговор дальше на эту тему считаю оффтопом...

[angvelem]

Ну конечно, когда не прав любое продолжение темы можно считать оффтопом. Не путайте программы написанные с использованием VCL и без оного. В API, естественно, нет Halt, но на "чистом" API, программу не написать. Программу пишут на каком-либо языке с использованием API. Для любителей С, ExitProcess подходит в самый раз для тех же кто пишет на Паскале вполне логично использовать Halt, не забудьте эта команда пришла в Дельфи из Паскаля и всегда предназначалась для окончательного завершение программы. В действительности она означает:

Halt (procedure)
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
Stops program execution and returns to the operating system.

Declaration:
procedure Halt [ ( Exitcode: Word ) ];
where:
Exitcode is an optional expression that specifies the exit code of your program.

И на будущее, прежде чем проявлять эмоции в виде кучи восклицательных знаков, не плохо почитать соответствующую литературу, а не только справку, чтобы не приводить неправомерные примеры не относящиеся к данной теме. Хотя..., если вы так сильно желаете, я отвечу: VCL абсолютно всё равно какая команда будет применена.

[ChinYan]

Для API, вполне нормальный (и правильный) код завершения.

Для API нет, для Паскаля - да.
API подразумевает использования функций, предоставляемых ОС (в данном случае). С точки зрения системы, верным решением является именно ExitProcess, а Halt есть решения от Паскаля. К слову, ExitProcess используется не только "Любителями С", но и многими другими, пишущими с использованием API.
Дальнейшие препирательства действительно являются оффтопом, так как никоем образом не относятся к обсуждения предложенной программы.