Рубрика: Delphi FAQ

Есть ли в компьютере звуковая плата?
Иногда бывает необходимым выяснить, есть ли на компьютере, на котором запускается наша программа, установленная звуковая карта. В первую очередь это полезно программам, которую работают со звуком — например аудио\видео проигрыватели…

Как проверить существование диска в системе?
Чтобы проверить, есть ли в системе диск с указанным номером, можно проверить его наличие в…

Проверка опции «Автоматически скрывать панель задач»
В операционной системе Windows есть возможность автоматически скрывать панель задач, когда курсор мыши не над…

Как получить текущую иконку курсора мыши?
В некоторых случаях для получения идентификатора иконки курсора достаточно вызвать функцию WinApi GetCursor. Но в случае когда курсор находится не над окном нашей программы, сначала нужно подключиться к процессу-родителю окна,…

Как открыть указанный каталог в проводнике Windows?
Эта процедура на Delphi запускает проводник Windows и открывает в нем указанный в параметре dir каталог: uses ShellApi; … //открывает указанный каталог в проводнике Windows procedure OpenDirInExplorer(dir: pchar); begin ShellExecute(0, nil, dir,…

Как запустить программу и дождаться ее закрытия?
Иногда может потребоваться запустить стороннею программу, дать ей отработать (или дать пользователю в ней поработать) и затем продолжить выполнение своей программы. Такую схему можно наблюдать в апплете Windows «Установка и…

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

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

Как возвести число 2 в степень (от 0 до 62)?
function sqr2(n: Byte): Int64; var b, c: Int64; begin if (n <= 62) then begin…

Строковое представление цветов в VCL
В Delphi в VCL для основных цветов используются константы, построенные по принципу cl + наименование цвета по английски. Например — clRed, clBlue, clGreen и т.п. Иногда может возникнуть необходимость сопоставлять эти константы…

Как разбить цвет на RGB-составляющие?
Когда нужно работать с цветами, то часто требуется знать составляющие Красного цвета (Red), Зеленого (Green) и Синего (Blue). Эти величины, конечно, можно вычислить математически. Но в WinApi уже реализованы такие…

Установлен ли бит в числе?
Функция на Delphi, которая проверяет, установлен ли бит (двоичная система счисления) в числе: function IsBit(N: Longint; nBit: Byte): Boolean; {N — число nBit — номер бита} begin result := ((1…

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

Как программно раскрыть ComboBox
При использовании в программе раскрывающегося списка (ComboBox) иногда бывает полезным раскрыть этот список программно. Такая…