Последние записи
- Взаимодействие через командную строку
- Перенести программу из Delphi в Lazarus
- Определить текущую ОС
- Автоматическая смена языка (раскладки клавиатуры)
- Сравнение языков на массивах. Часть 2
- wprintf как напечатать кириллицу
- Взаимодействие через командную строку
- Сравнение языков на массивах. Часть 1
- Сравнение языков по скорости
- Чтение огромных xml-файлов
Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk
Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw
13th
Дек
Рассылка. Выпуск 88.
Posted by bullvinkle under Рассылка
От ведущего.
Здравствуйте, читатели рассылки луба программистов. У нас сегодня восемдесят восьмой выпуск!! И в нем вы увидите обзор интересных тем форума, а также новую интересную статью с блога программистов(!).
.
Новые интересные статьи клуба программистов.
Статьи на сайте клуба постоянно пополняются. Поэтому это постоянная и основная рубрика рассылки. Так же здесь обзор топиков форума и блога программистов.
Подходит ли WorldPress для серьезных сайтов?
Вопрос: WP изначально создавался как CMS для ведения блогов,но ясно,что его возможности достаточно широки.
По идее освоюсь с WP – освоюсь и с Joomla,и с UMI,и с 1C-битрикс?
Понятно,что PHP надо знать – но он пока мне вроде бы понятен,когда
смотрю код,хотя бы примерно понимаю,что зачем. А если не понимаю
под рукой всегда Help по PHP.
И всё-таки WP подходит для любых проектов? Читал,что
На основе UMI.CMS создаются сайты различной тематики и размеров: сайты?визитки, каталоги товаров, интернет?магазины. |
Поделитесь опытом, пожалуйста.
P.S.
ИМХО,хотя думаю,что мастера от новичка,то и отличает,что мастер
из любых подручных средств,так сказать,может сделать что-то стоящее.
procedure TForm1.Button1Click(Sender: TObject); // закрываем пуск
var
h:Hwnd;
begin
h:=FindWindow('SHELL_TRAYWND',nil);
h:=findwindowex(h,0,'Button',nil);
SendMessage(h,WM_LBUTTONup,0,0);
end;
procedure TForm1.Button2Click(Sender: TObject); //открываем пуск
begin
SendMessage(Self.Handle, WM_SYSCOMMAND, SC_TASKLIST, 0);
end;
1. Сворачивание в трэй
public
procedure WMSysCommand(var Msg: TWMSysCommand);message WM_SYSCOMMAND;
....
implementation
....
//сворачивание в трей
procedure TMainForm.WMSysCommand(var Msg: TWMSysCommand);
begin
if msg.CmdType=SC_MINIMIZE then
MainForm.CoolTrayIcon1.HideMainForm
else inherited;
end;
2. Разворачивание формы
CoolTrayIcon1.ShowMainForm;
3. Чтобы прога сворачивалась в трей при запуске
procedure TMainForm.CoolTrayIcon1Startup(Sender: TObject;
var ShowMainForm: Boolean);
begin
ShowMainForm:=false;
end;
Реакция программы на звук в микрофон
Подскажите как научить программу реагировать на звук из микрофона. К примеру что бы при хлопке происходило какое нибудь действие в программе.
raxp:
а слова забудьте, геморно, да и speechapi sdk таскать …а вот одиночный хлопок вполне, ибо представляет собой серию нескольких десятков коротких импульсов с большой крутизной, т.е. анализируя резкий подъем амплитуды от среднего уровня шума и время действия самих импульсов со временем существования серии импульсов можно предположить, что был хлопок.
…собственно, в аппаратных реализациях включения света от хлопка (звуковых или акустических реле) это реализовывалось интегрирующей цепочкой, т.е. фильтром (иногда с добавление амплитудного детектора на диодах, кстати именно на них оказывались самыми надежными, см. схемы по ссылке), а далее на триггер включено-выключено.
…однако, в программной реализации для снижения уровня ложных срабатываний можно еще и параллельно анализировать спектр звука на характерный усредненный слепок хлопка (как получить спектр в реальном времени см. журнал нашего клуба, №1 и №8):
…обратите внимание на затухающий характер хлопка и наличие некоторой части кучи гармоник также и в ВЧ части, и, само собой, на его длительность в доли секунды (см. видеозапись):
Намедни гугл создал новый сервис публикации и продажи книг, вот описание на хабре:
http://habrahabr.ru/blogs/google/109466/
И собственно сам сервис:
http://books.google.com/ebooks
Есть идея опубликовать там наш журнал, но для этого нам нужно получить ISBN, как это сделать я пока не знаю.
Как идея?
Достаточно интересная и насыщенная тема образовалась. Перейти к форуму для участия.
Как в delphi на winapi запретить (или же отменить закрытие формы) нажатие alt+f4?
SetClassLong(Handle, GCL_STYLE, GetClassLong(Handle, GCL_STYLE) or CS_NOCLOSE);
Мне очень интересно узнать о заработке в интернете. конечно можно почитать множество статей об этом, но хочется услышать правду.
во-первых сайты:
насколько я знаю чтобы опубликовать сайт надо платить. есть сайты с которых просто просматриваешь необходимую информацию или бесплатно скачиваешь файлы. если же всё бесплатно то смысл создавать свой сайт и вкладывать в него деньги если нет никакой прибыли?
Тема на форуме. Полезно для тех кто не знает.
Здравствуйте всем. Есть Edit1 и DBEdit1 как мне сделать так чтобы пользователь мог вводить в Edit1 число не меньше 0 но и не больше числа отображаемого в DBEdit1
Ввод только чисел оформил вот так,
procedure TForm4.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case key of
'0'..'9',#8,',':;
else
key:=#0;
end;
а вот с остальным не могу справиться
========================================================
Не лучший вариант у твоей процедуры. Разделитель может быть точкой и будут проблемы при конвертации, запятую можно поставить первым символом и т.п.
Напиши, что-то вроде этого:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var vrPos, vrLength, vrSelStart: byte;
const
I: byte = 1; //2 символа после decimalseparator-а
begin
with Sender as TEdit do
begin
vrLength := Length(Text);
vrPos := Pos(decimalseparator, Text);
vrSelStart := SelStart;
end;
case Key of
'0'..'9':
begin
if (vrPos > 0) and (vrLength - vrPos > I) and (vrSelStart >= vrPos) then
Key := #0;
end;
',', '.':
begin
if (vrPos > 0) or (vrSelStart = 0) or (vrLength = 0) then
Key := #0
else
Key := decimalseparator;
end;
#8: ;
else
Key := #0;
end;
end;
А ограничивать ввод максимального числа я бы не рекомендовал. Например, макс. число = 25, я пытаюсь ввести 26. Двойку поставил, а по шестерке клацаю по клавише – а ничего не печатается… пока дойдет, что нельзя такое число вводить. Сильно на нервы действует. Лучше поставить проверку на доступность кнопки действия, например
procedure TForm1.Edit1Change(Sender: TObject);
begin
if Edit1.Text <> '' then
Button1.Enabled := StrToInt(Edit1.Text) <=
DBEdit1.DataSource.DataSet.FieldByName('Поле').AsFloat;
end;
Как программно вызвать щелчок мышью в TWebBrowser
var
BrowserH:HWND;
begin
BrowserH:=Webbrowser1.handle;
PostMessage(BrowserH,WM_LBUTTONDOWN,0,XY);
PostMessage( BrowserH,WM_SETCURSOR,BrowserH,MakeLong(HTCLIENT,WM_LBUTTONDOWN));
PostMessage(BrowserH,WM_LBUTTONUP,0,XY);
PostMessage( BrowserH,WM_SETCURSOR,BrowserH,MakeLong(HTCLIENT,WM_LBUTTONUP));
end;
PS браузер может содержать внутри себя другие объекты, например SWF файлы имеют свой хендл, его вытащить тоже несложно…
Pt.x := Round(Pt.x * (65535 / Screen.Width)); Pt.y := Round(Pt.y * (65535 / Screen.Height)); |
Если в хендл тычишь, закоменти эти строки…
Защита объектов в Windows
Здравствуйте читатели блога программистов. После долгого перерыва, который длился более чем полгода на блоге новая статья. В этой статье я расскажу про защиту объектов в операционных системах Windows. Данная статья будет полезна каждому, который начал изучать системное программирование в системах Windows, а также тем которые хотят разобраться в механизмах защиты в Windows. В статье речь, конечно, будет идти про системы Windows NT. Всё, что будет здесь сказано, будет справедливо для систем Win 2000, XP, Vista и Se7en. Итак, приступим.
………………………..
Скачать архив с программой-примером и исходниками
Стаья на болге программмистов.
На сайте клуба есть рубрики пост-обзор и топик-обзор клуба программистов.
Немного юмора.
***
Что такое «устал» для системного администратора?
Это когда он вместо «мышки» начинает водить мобильником!
***
Существует два подхода к проектированию программ. В одном архитектура
делается настолько простой, что в ней явно нет дефектов; в другом — настолько
сложной, что в ней нет явных дефектов. (С.А.Хоар)
***
Программы Hастоящего Программиста никогда не начинают работать сразу.
Впрочем, если как следует напрячь автора, программа приводится в рабочее
состояние за «каких-нибудь» 30 часов отладки.
***
Кровавые команды, что были заданы однажды, вернутся, чтобы терзать того, кто
набрал их. (Шекспир, Макбет(о сопровождении программ))
Посетите раздел юмора на форуме, который обновляется постоянно
Случайные статьи
Купить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту
пеллетные котлы
Пеллетный котел Emtas
Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)