Всё! Завершено гениальное творение не менее гениального программиста. Программное детище проверено, отлажено и перепроверено. Все найденные друзьями-тестерами «баги» благополучно устранены. А значит, пришло время распространить программу среди пользователей, которые раньше как-то умудрялись без неё обходиться… И вдруг понимаешь, что, несмотря на интуитивно-понятный интерфейс, в мире обязательно найдутся не интуитивно-понятливые «юзеры», которые не смогут насладиться всеми …
Read More «Программирование на Delphi и не только Сделай сам | Программирование на Delphi и не только»
Delphi FAQ >> Система Сейчас большинство компьютерных мышек имеют колесико для прокрутки. Но несмотря на это в программах, активно использующих колесико стоит предусмотреть случай, когда мышка простая. Следующая функция на Delphi проверяет наличие колеса прокрутки у мыши: function MouseWheelPresent : boolean; begin Result := (GetSystemMetrics(SM_MOUSEWHEELPRESENT) 0); end; Хотите сделать тату на плече?
Delphi FAQ >> Система //если ноль, то мышка не установлена Function CntMouseBut : Byte; begin Result := GetSystemMetrics(SM_CMOUSEBUTTONS); end; Все вебмастера хотят знать, как заработать на своем сайте.
Delphi FAQ >> Система При помощи данной функции, написанной на языке программирования Delphi, можно получить имя принтера, который используется в системе по умолчанию: function GetDefaultPrinterName: String; var buf : array[0..255] of char; begin GetProfileString(‘Windows’, ‘device’, », buf, 255); Result := StrPas(buf); end; При активном использовании компьютера очень важно правильно выбрать систему охлаждения для ПК, чтобы …
Read More «Программирование на Delphi и не только Как получить имя принтера, установленного по умолчанию? | Программирование на Delphi и не только»
Delphi FAQ >> Операционная система При помощи данной функции на Delphi можно узнать путь к папке для временных файлов в операционной системе Windows. function GetTempDir: String; var Buf: array[0..1023] of Char; begin SetString(Result, Buf, GetTempPath(Sizeof(Buf)-1, Buf)); end; Хотите узнать, как вступить в сро строителей?
Delphi FAQ >> Операционная система Данная функция, написанная на Delphi, позволяет получить иконку, ассоциированную с определенным типом файлов (такие иконки отображаются, например, в Проводнике). Uses ShellApi; … function GetAssociatedIcon (const AExtension:String; ASmall: Boolean): HIcon; var Info: TSHFileInfo; Flags: Cardinal; begin if ASmall then Flags := SHGFI_ICON or SHGFI_SMALLICON or SHGFI_USEFILEATTRIBUTES …
Read More «Программирование на Delphi и не только Как получить иконку, ассоциированную с определённым типом файлов? | Программирование на Delphi и не только»
В данной статье рассматривается функция mciSendString, которая находится в библиотеке winmm.dll. Эта функция может подавать команды любому MCI (Media Control Interface) устройству (поддерживаемое системой мультимедиа устройство: WAV, MIDI, CDAudio, Video и т.п.). Вот её синтаксис: MCIERROR mciSendString( LPCTSTR lpszCommand, LPTSTR lpszReturnString, UINT cchReturn, HANDLE hwndCallback ); lpszCommand – команда; lpszReturnString – строка результата; cchReturn – …
Read More «Программирование на Delphi и не только » Архив блога Мультимедиа под контролем или Функция mciSendString | Программирование на Delphi и не только»
Delphi FAQ >> Интернет При помощи данной процедуры, Написанной на языке Delphi, можно установить Proxy, через которую будет осуществляться работа в Internet, Proxy адрес указывается в формате адрес : порт, например 195.43.67.33:8080. uses WinInet, UrlMon; … procedure ChangeProxy(aProxy: String); var PIInfo: PInternetProxyInfo; begin New(PIInfo); PIInfo^.dwAccessType := INTERNET_OPEN_TYPE_PROXY; PIInfo^.lpszProxy := PChar(aProxy); // Список адресов, …
Read More «Программирование на Delphi и не только Как работать через прокси? | Программирование на Delphi и не только»