Статьи по программированию системы

Работа с системой → Пространство имён оболочки Windows

Автор: Акжан Абдулин, обзор от июня-ноября 1999 года, версия 1.4c.
Опубликовал admin
12 Дек, Пятница 2003г.

Работа с системой → Спpавочник по типам Windows

Windows опpеделяет pяд типов и стpуктуp записей. Каждый из этих типов задокументиpован в этой статье.
Тип Bool

Описание: Bool = System.WordBool;

Bool точно соответствует стандаpтному типу WordBool Туpбо Паскаля. Он введен для совместимости с кодами Windows, написанными на дpугих языках. Тип HBitMap

Описание: HBitMap = THandle;

Опубликовал admin
12 Дек, Пятница 2003г.

Работа с системой → Получение списка DLL загруженных приложением

Автор: Simon Carter

Иногда бывает полезно знать какими DLL-ками пользуется Ваше приложение. Давайте посмотрим как это можно сделать в Win NT/2000.

Опубликовал admin
12 Дек, Пятница 2003г.

Работа с системой → Получение и установка текущей раскладки клавиатуры

Ниже представлены 5 функций для получения/установки раскладки клавиатуры в своем или активном в текущий момент времени приложении:

  • function NameKeyboardLayout(layout : LongWord) : string; - Получает название раскладки из списка (для удобства сделал :)))
  • function GetActiveKbdLayout : LongWord; - Получает раскладку в своей программе
  • function GetActiveKbdLayoutWnd : LongWord; - Получает раскладку в активном окне
  • procedure SetKbdLayout(kbLayout : LongWord); - Устанавливает раскладку в своей программе

Опубликовал admin
12 Дек, Пятница 2003г.

Работа с системой → Изменение громкости звуков в Windows

uses MMSystem;

function GetWaveVolume: DWord;
var Woc : TWaveOutCaps;
    Volume : DWord;
begin
  result:=0;
  if WaveOutGetDevCaps(WAVE_MAPPER, @Woc, sizeof(Woc)) =
       MMSYSERR_NOERROR then begin
    if Woc.dwSupport and WAVECAPS_VOLUME = WAVECAPS_VOLUME then begin
      WaveOutGetVolume(WAVE_MAPPER, @Volume);
      Result := Volume;
    end;
  end; 
end;

procedure SetWaveVolume(const AVolume: DWord);
var Woc : TWaveOutCaps;
begin
  if WaveOutGetDevCaps(WAVE_MAPPER, @Woc, sizeof(Woc)) =
       MMSYSERR_NOERROR then begin
    if Woc.dwSupport and WAVECAPS_VOLU
Опубликовал admin
12 Дек, Пятница 2003г.


RSS-материал

Программирование для чайников.