[kachkarvv]

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

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

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

[NumLock]

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

Код:

1	Halt(Msg.wParam);

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

?

[kachkarvv]

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

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

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

[angvelem]

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

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

Код:

?

Для 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.

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

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.
Дальнейшие препирательства действительно являются оффтопом, так как никоем образом не относятся к обсуждения предложенной программы.

[M.A.D.M.A.N.]

Пусть разработчик пишет как хочет.
Простите, не удержался от оффтопа. Можете удалить сообщение.

[einstein]

парни,вы сами запутали себя.естествено по теме (апи) ни о каком халт не может быть и речи. и о выходпроцесс также. ибо компилятор предполагает нормальный выход если не произошел ланг-дефайнед эксепшн. а сравнивать методы паскаля для дос и для 32-разрядных апп это коншюнствено. если очень хочется то используйте екзитпроцесс как это рекомендует майкрософт.

[Bargest]

Может формально ExitProcess и более верный метод, но если сдизасить Halt, можно увидеть, что там идет освобождение всего и вся (ДЛЛ, объектов) и после чего вызов того самого ExitProcess. Вот конец процедуры Halt:

Код:

1 2 3

mov     eax, uExitCode push    eax             ; uExitCode call    ExitProcess

Так что разницы особо большой нету. Пусть человек юзает то, что привычнее.

[einstein]

www.delphisources.ru
Halt

Описание
Процедура Halt вынуждает резкое завершение текущего приложения. Предупреждение: не гарантируется, что ресурсы будут освобождены при вызове halt. Переменная ExitCode может быть произвольно установлена, передавая значение ExitValue. Этот код передается прерывателю приложения как код возврата от приложения. Если значение ErrorAddr уже было присвоено, перед тем как был вызван Halt, то диалог отображается, показывая значение ErrorAddr и ExitCode. После выполнения Halt, перед фактическим завершением программы, выполняется секция модуля finalization.
Примечания
Предупреждение: используйте только в исключительных случаях.

http://www.delphibasics.ru/Halt.php

Синтаксис
procedure Halt(ExitCode: Integer);
Описание
Процедура Halt сразу прерывает работу приложения, не давая ему возможности "убрать за собой". Windows NT автоматически освобождает все ресурсы, которые использовались приложением, но Windows 95 и Windows 98 не столь снисходительны. Применяйте эту процедуру Halt только в особых ситуациях, например, для обработки критических ошибок.
Halt не является настоящей процедурой.
Ошибки
Советы и приемы
Halt сохраняет свой аргумент в глобальной переменной ExitCode.
Если ErrorAddr не равна nil, Halt выдает сообщение об ошибке перед завершением программы.
Перед завершением программы исполняются процедура ExitProc и разделы завершения модулей.
Поцедура Halt, закрывая программу, не освобождает все объекты и формы. Для завершения графического приложение следует закрыть главную форму, а не вызывать процедуру Halt.

http://valera.asf.ru/delphi/help/name.php?name=Halt

и т.д.

Использование Halt считается ОЧЕНЬ плохим тоном.
Halt полезен только в Borland Pascal, но не в Delphi.

[AND_REY]

Извините за флуд, не сдержался:

Код:

1 2 3 4 5 6 7

Program Project1; {$APPTYPE CONSOLE} begin  asm   db $C3  end; end.