Рубрика: Система
Иногда бывает необходимым выяснить, есть ли на компьютере, на котором запускается наша программа, установленная звуковая карта. В первую очередь это полезно программам, которую работают со звуком – например аудио\видео проигрыватели…
Чтобы проверить, есть ли в системе диск с указанным номером, можно проверить его наличие в списке дисков, возвращаемом функцией 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…