Delphi FAQ >> Система Функция на Delphi для определения текущего количества цветов у экрана: //в битах function NumOfColors: Byte; var tHDC: hdc; begin tHDC := GetDC(0); result := GetDeviceCaps(tHDC, 12) * GetDeviceCaps(tHDC, 14); ReleaseDC(0, tHDC); end; Чтобы смотреть фильмы онлайн в браузере должна быть установлена поддержка технологии flash.
Delphi FAQ >> Окна Для того, чтобы завершить процесс по имени его исполняемого файла, можно воспользоваться следующей функцией на Delphi: uses TLHelp32; … function CloseByExeName(ExeFilename: String): Integer; var continueloop: Boolean; fsnapshothandle: THandle; fprocessentry32: TProcessEntry32; const //константа для команды завершения процесса process_terminate=$0001; begin Result := 0; //переводим имя файла в верхний регистр для сравнения ExeFilename = …
Delphi FAQ >> Операционная система Чтобы отобразить Свойства Экрана в Windows нужно запустить апплет desc.cpl. Сделать это можно при помощи функции модуля ShellApi — ShellExecute, передав ей в качестве одного из параметров имя файла запускаемого апплета. Вот готовая процедура на языке Delphi: uses ShellApi; … //открывает Свойства Экрана procedure OpenDisplayProp; begin ShellExecute(Application.Handle, nil, ‘desk.cpl’, nil, …
Delphi FAQ >> Система Обычные музыкальные компакт-диски уже редко используются. Но все же если делать аудио-проигрыватель, то нужно предусмотреть и такой режим проигрывания дисков. Создание простого проигрывателя аудио cd подробно описано в статье Мультимедиа под контролем или Функция mciSendString. Эта функция возвращает номер проигрываемой композиции музыкалього компакт-диска: … uses MMSystem; … // возвращает номер композиции, …
Delphi FAQ >> Окна Иногда может потребоваться запустить стороннею программу, дать ей отработать (или дать пользователю в ней поработать) и затем продолжить выполнение своей программы. Такую схему можно наблюдать в апплете Windows «Установка и удаление программ» (мы даже как-то реализовывали функционал этого апплета). Ниже приведена функция на языке программирования Delphi, которая запускает указанный процесс, ждет …
Delphi FAQ >> Алгоритмы function SumDig(N: Longint): Byte; begin result := 0; while (N >= 1) do begin result := result + (N mod 10); N := N div 10; end; end; Автомобили Daewoo набирают все большую популярность в странах СНГ. Продажа автомобилей Daewoo, равно как и других автомобилей, это …
Delphi FAQ >> Графика Данная функция на Delphi позволяет получить значение цвета в его html представлении (например #23ААА2): function ColorToHTML(C: TColor): String; begin Result := IntToHex(C, 6); Result := ‘#’ + Copy(Result, 5, 2) + Copy(Result, 3, 2) + Copy(Result, 1, 2); end; Часто подсказку в решении практических задач при помощи программирования люди …