![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
![]() Delphi WinAPI Мини (10кб) цифровые прозрачные часы на рабочий стол.
Не отображаются на панели задач. Отключаются двойным щелчком по любой цифре. Расположены в правом верхнем углу экрана. ![]() Екзешник (transparent_clock.zip) здесь Исходник здесь Усовершенствованный вариант с возможностью изменения цвета (включить меню - правой кнопкой мыши ), взамен двойного щелчка - перетаскивание, при выключении цвет и координаты запоминаются в файле clock.prm (в папке прграммы) Екзешник ( KWClock_digit.zip ) здесь Справочники Delphi HTML CSS мелодии MP3 Топ100 Бесплатные объявления Последний раз редактировалось kachkarvv, 08.08.2012 в 14:40. |
#2
|
||||
|
||||
![]() Delphi 7 откомпилировала на 17920байт (17,5Кб)
Зачем не нормально завершать программу: Код:
Halt(Msg.wParam); И что с границами на светлых тонах: ![]() ? Пишу программы за еду. __________________ |
Этот пользователь сказал Спасибо NumLock за это полезное сообщение: | ||
kachkarvv (08.08.2012)
|
#3
|
||||
|
||||
![]() Цитата:
с помощью upx.exe . Остальное подправлю. Справочники Delphi HTML CSS мелодии MP3 Топ100 Бесплатные объявления |
#4
|
||||
|
||||
![]() Цитата:
|
#5
|
||||
|
||||
![]() Цитата:
зато есть: 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; разговор дальше на эту тему считаю оффтопом... Пишу программы за еду. __________________ Последний раз редактировалось NumLock, 20.05.2011 в 09:16. |
#6
|
||||
|
||||
![]() Ну конечно, когда не прав любое продолжение темы можно считать оффтопом. Не путайте программы написанные с использованием VCL и без оного. В API, естественно, нет Halt, но на "чистом" API, программу не написать. Программу пишут на каком-либо языке с использованием API. Для любителей С, ExitProcess подходит в самый раз для тех же кто пишет на Паскале вполне логично использовать Halt, не забудьте эта команда пришла в Дельфи из Паскаля и всегда предназначалась для окончательного завершение программы. В действительности она означает:
Цитата:
И на будущее, прежде чем проявлять эмоции в виде кучи восклицательных знаков, не плохо почитать соответствующую литературу, а не только справку, чтобы не приводить неправомерные примеры не относящиеся к данной теме. Хотя..., если вы так сильно желаете, я отвечу: VCL абсолютно всё равно какая команда будет применена. |
#7
|
|||
|
|||
![]() Цитата:
API подразумевает использования функций, предоставляемых ОС (в данном случае). С точки зрения системы, верным решением является именно ExitProcess, а Halt есть решения от Паскаля. К слову, ExitProcess используется не только "Любителями С", но и многими другими, пишущими с использованием API. Дальнейшие препирательства действительно являются оффтопом, так как никоем образом не относятся к обсуждения предложенной программы. |
#8
|
||||
|
||||
![]() Пусть разработчик пишет как хочет.
Простите, не удержался от оффтопа. Можете удалить сообщение. — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#9
|
|||
|
|||
![]() парни,вы сами запутали себя.естествено по теме (апи) ни о каком халт не может быть и речи. и о выходпроцесс также. ибо компилятор предполагает нормальный выход если не произошел ланг-дефайнед эксепшн. а сравнивать методы паскаля для дос и для 32-разрядных апп это коншюнствено. если очень хочется то используйте екзитпроцесс как это рекомендует майкрософт.
|
#10
|
||||
|
||||
![]() Может формально ExitProcess и более верный метод, но если сдизасить Halt, можно увидеть, что там идет освобождение всего и вся (ДЛЛ, объектов) и после чего вызов того самого ExitProcess. Вот конец процедуры Halt:
Код:
mov eax, uExitCode push eax ; uExitCode call ExitProcess jmp $ ; Happy End! The Cake Is A Lie. |
#11
|
|||
|
|||
![]() www.delphisources.ru
Halt Цитата:
Цитата:
и т.д. Использование Halt считается ОЧЕНЬ плохим тоном. Halt полезен только в Borland Pascal, но не в Delphi. Последний раз редактировалось einstein, 22.05.2011 в 09:12. |
#12
|
||||
|
||||
![]() Извините за флуд, не сдержался:
Код:
Program Project1; {$APPTYPE CONSOLE} begin asm db $C3 end; end. ![]() If end Then begin; |