Аналоговые часы с различными формами и цветами. Новая версия компоненты Компонента из раздела: Date and Time: Clocks
Источник: www.torry.net
Автор: Robert Cerny -= · VCL · Samples · =-
Очередная комаонента для помещения иконки в трей. Много настроек и событий. Новая версия компоненты С исходными текстами Компонента из раздела: System: Tray Icons
Источник: www.torry.net
Автор: Troels Jakobsenhttp://www3.ewebcity.com/troels/ -= · VCL · Samples · =-
Для Delphi 2-5, прямой интерфейс к PGP (требуется полная инсталляция PGP версии 6.5. X). Новая версия компоненты С исходными текстами Компонента из раздела: Security: Crypting Other
Источник: www.torry.net
Автор: Michael in der Wieschehttp://home.t-online.de/home/idw.doc/PGPcomp.htm -= · VCL · Samples · =-
Определение системной информации.
Часто при создании систем привязки программ к компьютеру или окон типа System Info или About Box необходимо определить данные о пользователе и о системе. Это можно сделать следующим образом (из примеров по Delphi - программа COA):
Procedure GetInfo; Var WinVer, WinFlags : LongInt; { Версия Windows и флаги } hInstUser, Fmt : Word; { Дескриптор } Buffer : ARRAY[0..30] OF Char; { Буфер под ASCIIZ строку } begin hInstUser := LoadLibrary('USER'); { Открыли библиотеку User } LoadString(hInstUser, 514, Buffer, 30); LabelUserName.Caption := StrPas(Buffer); { Имя пользователя } LoadString(hInstUser, 515, Buffer, 30); FreeLibrary(hInstUser); LabelCompName.Caption := StrPas(Buffer); { Компания } WinVer := GetVersion; LabelWinVer.Caption := Format('Windows %u.%.2u', { Версия Windows } [LoByte(LoWord(WinVer)), HiByte(LoWord(WinVer))]); LabelDosVer.Caption := Format('DOS %u.%.2u', { Версия DOS } [HiByte(HiWord(WinVer)), LoByte(HiWord(WinVer))]); WinFlags := GetWinFlags; IF WinFlags AND WF_ENHANCED > 0 THEN LabelWinMode.Caption := '386 Enhanced Mode' { Режим } ELSEIF WinFlags AND WF_PMODE > 0 THEN LabelWinMode.Caption := 'Standard Mode' ELSE LabelWinMode.Caption := 'Real Mode'; IF WinFlags AND WF_80x87 > 0 THEN { Сопроцессор } ValueMathCo.Caption := 'Present' ELSE ValueMathCo.Caption := 'Absent';
Fmt := GetFreeSystemResources(GFSR_SYSTEMRESOURCES); ValueFSRs.Caption := Format('%d%% Free', [Fmt1]); { Свободно ресурсов } { Свободно памяти} ValueMemory.Caption := FormatFloat(',#######', MemAvail DIV 1024) + ' KB Free'; end;
Проблема печати картинок из ImageList
Моя програ выводит на печать данные из ListView (в режиме vsReport), печатаю с помощью printer (из printers), все ...
Проблема печати картинок из ImageList
Моя програ выводит на печать данные из ListView (в режиме vsReport), печатаю с помощью printer (из printers), все ...
два языка в программе
Кто-то занимался организацией двух языковых интерфейсов. Интересует как это делается, что бы отделаться малой кровью.
Реализация ping с помощью ICMP API
При работе в сети Интернет в некоторых случаях необходимо знать текущее состояние как локального, так и удаленных хостов (имеет ли локальный хост в данный момент возможность выхода в сеть Интеренет, доступен ли некий удаленный хост и т.д.) Общеизвестно, что для указанных целей используется утилита ping. В данной статье описана реализация на Delphi возможностей этой программы с помощью ICMP API.
Хокку дня
Бабочки полёт Будит тихую поляну В солнечном свету.
Афоризмы
Нельзя расчитывать на то, что злобные идиоты встречаются редко. Они встречаются часто....
Фраза дня
Я повтоpяю свой вопpос: «Reboot?!»
И на закуску коротенький анекдот
Совpеменная философская постановка пpоблемы кypицы и яйца сводится к вопpосy: pазмножаются ли кypицы пyтем откладывания яиц, либо же яйца pазмножаются пyтем вылyпа кypиц.