Как сделать калькулятор в Delphi?

Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.

Как Delphi реализует многоплатформенную разработку?

Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...

Серийный номер тома HDD

Советы » Диски » Серийный номер тома HDD

procedure

TForm1.Button1Click(Sender: TObject); var

SerialNum : dword; a, b : dword; Buffer : array

[0..255] of

char; begin

if

GetVolumeInformation('c:', Buffer, SizeOf(Buffer), @SerialNum, a, b, nil

, 0) then

Label1.Caption := IntToStr(SerialNum); end

;

Алексей Коган
FIDOnet 2:5064/7.69
Russia, Stavropol

Должен заметить, что GetVolumeInformation возвращает серийный номер ТОМА, а не винчестера, то есть, если заменить C: на D:, то номерок-то и поменяется...

Другое по теме:

Категории

Статьи

Советы

Copyright © 2024 - All Rights Reserved - www.delphirus.com