Как сделать калькулятор в Delphi?
Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.
Как Delphi реализует многоплатформенную разработку?
Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...
Определение базовой системной информации
Часто при создании систем привязки программ к компьютеру или окон типа System Info или About Box необходимо определить данные о пользователе и о системе. Это можно сделать следующим образом (из примеров по Delphi - программа COA):
... Buffer : Array[0..30] of
Char; // Буфер под ASCIIZ строку begin
// Открыли библиотеку User hInstUser := LoadLibrary('USER'); LoadString(hInstUser, 514, Buffer, 30); // Имя пользователя LabelUserName.Caption := StrPas(Buffer); LoadString(hInstUser, 515, Buffer, 30); FreeLibrary(hInstUser); // Компания LabelCompName.Caption := StrPas(Buffer); WinVer := GetVersion; // Версия Windows LabelWinVer.Caption := Format('Windows %u.%.2u', [LoByte(LoWord(WinVer)), HiByte(LoWord(WinVer))]); // Версия DOS LabelDosVer.Caption := Format('DOS %u.%.2u', [HiByte(HiWord(WinVer)), LoByte(HiWord(WinVer))]); WinFlags := GetWinFlags; // Режим IF
WinFlags AND
WF_ENHANCED > 0 THEN
LabelWinMode.Caption := '386 Enhanced Mode' ELSE
IF
WinFlags AND
WF_PMODE > 0 THEN
LabelWinMode.Caption := 'Standard Mode' ELSE
LabelWinMode.Caption := 'Real Mode';
// Сопроцессор IFWinFlags 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 DIV1024) + ' KB Free'; end
;