Рубрика: Система

Как проверить существование диска в системе?
Чтобы проверить, есть ли в системе диск с указанным номером, можно проверить его наличие в списке дисков, возвращаемом функцией GetLogicalDrives. Понадобиться это может, например, для того чтобы перечислить все диски,…

Как узнать свободный объём ОЗУ?
//в байтах function GetFreeRAM: Cardinal; var MS : TMemoryStatus; begin GlobalMemoryStatus(MS); Result := MS.dwAvailPhys; end;…

Как узнать номер проигрываемой композиции компакт-диска?
Обычные музыкальные компакт-диски уже редко используются. Но все же если делать аудио-проигрыватель, то нужно предусмотреть…

Как программно изменить разрешение экрана?
С помощью этой функции на Delphi можно менять разрешение экрана. В параметрах передается ширина и высота нового разрешения. Стоит помнить, что разные мониторы поддерживают разные разрешения. Поэтому перед применением этой…

Как узнать размер ОЗУ?
Чтобы узнать полный размер ОЗУ (RAM), можете воспользоваться функцией, написанной на языке Delphi: //в байтах function GetRAMSize: Cardinal; var MS : TMemoryStatus; begin GlobalMemoryStatus(MS); Result := MS.dwTotalPhys; end;

Как узнать процент использования памяти?
Чтобы узнать процент загрузки оперативной памяти (RAM) в Delphi, можно воспользоваться следующей функцией: //в процентах function GetRamUses: Cardinal; var MS : TMemoryStatus; begin GlobalMemoryStatus(MS); Result := MS.dwMemoryLoad; end;

Как определить глобальные координаты курсора мыши?
Для определения глобальных координат (x, y) курсора мыши воспользуйтесь процедурой: GetCursorPos(var Pos : TPoint); Эта процедура поместит в переменную Pos координаты курсора — Pos.x и Pos.y

Есть ли у мышки колёсико?
Сейчас большинство компьютерных мышек имеют колесико для прокрутки. Но несмотря на это в программах, активно…

Как проверить готовность диска без появления ошибки?
Иногда требуется проверить готовность диска, перед обращением к нему. При этом если сделать это «в лоб» — возникнет сообщение об ошибке. Поэтому сначала бывает полезным изменить режим отображения ошибок, а…

Как узнать тип файловой системы диска?
Чтобы узнать, в какой файловой системе отформатирован диск, можно создать объект Scripting.FileSystemObject. Ниже приведена готовая функция на Delphi, которая по букве диска (неважно, строчной или прописной) возвращает название файловой системы этого…

Изменены ли функции кнопок мыши на противоположные?
function IsSwapButton : boolean; begin Result := GetSystemMetrics(SM_SWAPBUTTON)<>0; end;

Как получить имя принтера, установленного по умолчанию?
При помощи данной функции, написанной на языке программирования Delphi, можно получить имя принтера, который используется в системе по умолчанию: function GetDefaultPrinterName: String; var buf : array[0..255] of char; begin GetProfileString(‘Windows’,…

Как узнать количество цветов у экрана?
Функция на Delphi для определения текущего количества цветов у экрана: //в битах function NumOfColors: Byte; var…