» Серийный номер тома (логического диска) - Аппаратные средства, Диски, Delphi. Библиотека исходников форума программистов - programmersforum.ru

delphi исходники для управления windows

У нас вы качаете только рабочие исходники

форум программистов

Home

Форум программистов Delphi

Серийный номер тома (логического диска)

Серийный номер тома (логического диска)

Серийный номер тома (логического диска)

procedure TForm1.Button5Click(Sender: TObject);
var
VolumeName,
FileSystemName : array [0..MAX_PATH-1] of Char;
VolumeSerialNo : DWord;
MaxComponentLength: DWord;
FileSystemFlags : DWord;
begin
GetVolumeInformation('C:\',VolumeName,MAX_PATH,@VolumeSerialNo,
MaxComponentLength,FileSystemFlags,FileSystemName,MAX_PATH);
Edit1.Text:='SerialNo C: = '+IntToStr(VolumeSerialNo);
Edit1.SetFocus;
Application.ProcessMessages;
end;

Эта запись была добавлена в Вторник, 13 мая, 2008 - 7:15 В разделы Аппаратные средства, Диски. Вы можете подписаться на получение новых комментариев RSS 2.0 feed. Both comments and pings are currently closed.

Обсуждение закрыто.

Emtas турецкий пеллетный котёл

Пеллетные котлы интернет магазин

Архивы
- Май 2008
- Декабрь 2007
Категории
- Delphi (226)
  - BDE (3)
  - dll (10)
  - Exceptions (2)
  - IDE (10)
  - INI-файлы (3)
  - OLE (2)
  - БД (7)
  - Игры (19)
  - Медиа (11)
  - Ресурсы (12)
  - Сеть, модем (22)
  - Система (33)
  - Файлы (6)
  - Функции (6)
- Microsoft Office (12)
  - Excel (7)
  - Word (5)
- Pascal (12)
- Win API (85)
  - Hooks (4)
  - Завершение работы (13)
  - Запуск программ (16)
  - Общие вопросы (22)
  - Окна (1)
  - Переменные среды (9)
- Алгоритмы (86)
  - Графика (52)
  - Дата, время (6)
  - Кодирование (6)
  - Математика (4)
  - Преобразования (4)
- Аппаратные средства (76)
  - BIOS (3)
  - CD, DVD (7)
  - Видеосистема (3)
  - Диски (4)
  - Звуковые устройства (4)
  - Источники питания (1)
  - Клавиатура (24)
  - Мышка (5)
  - Порты (20)
  - Процессор (4)
  - Сетевая карта (1)
- Базы данных (29)
  - ADO (9)
  - BLOB поля (11)
  - DBase (1)
  - interbase (5)
  - MS Office (2)
  - sql (1)
- Классы (28)
  - Application (5)
  - TBitMap (4)
  - TCanvas (2)
  - TDateTime (1)
  - TFont (4)
  - TIcon (2)
  - TJpegImage (1)
  - TList (1)
  - TmetaFile (1)
  - TString, TStrings (4)
- Компоненты (172)
  - BitBtn (4)
  - ComboBox (2)
  - CoolBar (1)
  - DBCtrlGrid (1)
  - DBGrid (18)
  - DBImage (2)
  - DrawGrid (1)
  - Edit (3)
  - FileListBox (1)
  - form (29)
  - image (12)
  - ImageList (3)
  - Label (1)
  - ListBox (9)
  - ListView (2)
  - MediaPlayer (6)
  - Memo (8)
  - Menu (5)
  - PageControl (1)
  - ProgressBar (2)
  - Query (1)
  - RadioButton (1)
  - RadioGroup (1)
  - RichEdit (4)
  - ScrollBox (3)
  - ShellListView (2)
  - SpeedButton (1)
  - StatusBar (1)
  - StringGrid (4)
  - TabbedNoteBook (1)
  - Timer (2)
  - TrackBar (1)
  - TreeView (15)
  - WebBrowser (6)
- Операционная система (183)
  - Help (3)
  - Диалоги (25)
  - Процессы (26)
  - Реестр (5)
  - Сети, интернет (36)
  - Сообщения (7)
  - Файловая система (37)
  - Экран (13)
  - Ярлыки (5)
- Разное (79)
Кейворды

форум программистов