господа, проверьте на работоспособность, плиз...

← →
Ketmar © (2006-08-17 11:43) [0]

http://avalon-group.ho.com.ua/view.php?id=k8mix

а то я не уверен в правильности кода, работающего с микшером. на моей машине оно нормально, а на других? если есть машина, где несколько wave-дивайсов (например, саундкарта и войс-модем) -- проверьте тоже, plz. если проглючит, буду думать... %-)

tnx.

зыж качать всего 10 кил, если что -- исходники внутри, убедитесь, что не вирус. %-)

← →
tesseract © (2006-08-17 11:50) [1]

у меня несколько wave девайсов - realtek + Usb гарнитрура.

Слева внизу какая-то фигня появляеться зелёного цвета.

при попытке правого клика по иконке в трее всё благополучно падает.

← →
easy © (2006-08-17 11:52) [2]

не работает.
Компьютер: Операционная система Microsoft Windows XP Professional Пакет обновления ОС Service Pack 2 Системная плата: Тип ЦП AMD Athlon-PECM, 1008 MHz (5 x 201) Системная плата Asus A7V133-C (5 PCI, 1 AGP Pro, 1 AMR, 3 DIMM) Чипсет системной платы VIA VT8363A Apollo KT133A Системная память 512 Мб (SDRAM) Тип BIOS Award Medallion (10/03/01) Дисплей: Видеоадаптер NVIDIA GeForce2 MX/MX 400 (Microsoft Corporation) (64 Мб) Мультимедиа: Звуковой адаптер Creative Labs SB Live! Player 1024 Sound Card

← →
Ketmar © (2006-08-17 11:52) [3]

> [1] tesseract © (17.08.06 11:50)
history.txt читал? %-)

фигня -- это индикатор громеости+"заглушенности".
правый клик по иконке тупо закрывает программу.

для регулирования надо жать (все с ctrl+win):
PgUp: громче.
PgDown: тише.
Home: mute/unmute.
F12: show/hide indicator.

← →
Ketmar © (2006-08-17 11:53) [4]

> [2] easy © (17.08.06 11:52)
просто не появляется индикатор, или при регулировке ничего не происходит?

← →
easy © (2006-08-17 11:55) [5]

индикатор появляется хорошо.
хоткеи не работают и громкость не регулируется

← →
Ketmar © (2006-08-17 11:58) [6]

> [5] easy © (17.08.06 11:55)
штранно. у тебя хоткеи никем не заняты другим (я это не проверяю)? по правому клику в трэе софтинка закрывается?

← →
tesseract © (2006-08-17 12:01) [7]

> Ketmar © (17.08.06 11:58) [6]

хоты не работают, перехватчик стоит - Aston :-)

← →
Ketmar © (2006-08-17 12:03) [8]

> [7] tesseract © (17.08.06 12:01)
у меня BlackBox. %-) всё работает. странно.
?
а, да. не ctrl+win, а alt+win. долбаный склероз! %-)

← →
Ketmar © (2006-08-17 12:03) [9]

> [8] Ketmar © (17.08.06 12:03)
щаз поправлю history. %-) ну я и тормоз. %-)

← →
tesseract © (2006-08-17 12:05) [10]

> Ketmar © (17.08.06 12:03) [8]

работает. Но только на основное ус-во.

← →
Ketmar © (2006-08-17 12:07) [11]

> [10] tesseract © (17.08.06 12:05)
так и задумано. %-) потом сделаю выбор устройства, если не обломлюсь.

tnx.

зыж упомяну вас в бэта-тестерах. %-)

← →
Ketmar © (2006-08-17 12:07) [12]

"вас" -- это tesseract и easy. %-)

← →
Ketmar © (2006-08-17 12:32) [13]

up? ну, ещё кто-нибудь, кому делать нечего? %-)

← →
Rouse_ © (2006-08-17 12:44) [14]

Работает, но у меня своя такая есть управлялка для винампа :)
Ctrl+вперед (след песня)
Ctrl+назад (предыдущая песня)
Ctrl+вверх/вниз (громкость)

← →
Ketmar © (2006-08-17 12:46) [15]

> [14] Rouse_ © (17.08.06 12:44)
понятно, что у каждого есть. у меня тоже есть, см. на сайте. %-)

суть не в том. суть в том, работает или нет. если нет -- то нет смысла её выкладывать в сеть -- нафига там заведомо нерабочий код?

← →
Rouse_ © (2006-08-17 12:51) [16]

Ну работает, чеж ей не работать то?

← →
atruhin © (2006-08-17 12:56) [17]

Работает, Win2003, Atlon, mb Gigabyte звук встроенный

← →
Ketmar © (2006-08-17 12:57) [18]

> [16] Rouse_ © (17.08.06 12:51)
а потому, что код для работы с микшером весь чужой. я только перевёл с цэ на асм. и я слабо понимаю, как оно там и что.
да, справку я читал. %-) просто никогда раньше не приходилось микшер дёргать, не знаю подводных камешков и прочего. а примеры в сети обычно перегружены всяким ненужным хламом. %-)

← →
Ketmar © (2006-08-17 12:58) [19]

tnx. ещё вопрос: каждого в бэта-тестеры прописывать лениво. кому критично поимённо -- скажите. %-)

← →
Rouse_ © (2006-08-17 13:08) [20]

Пиво за это дадут? Если нет - меня вычеркивайте :)

← →
Ketmar © (2006-08-17 13:09) [21]

> [20] Rouse_ © (17.08.06 13:08)
только мылом. %-)

← →
Rouse_ © (2006-08-17 13:11) [22]

Вы все еще пьете мыло? :)

← →
Ketmar © (2006-08-17 13:19) [23]

> [22] Rouse_ © (17.08.06 13:11)
дык ведь ничего другого не завезли... %-)

← →
Rentgen © (2006-08-17 14:38) [24]

Работает.
звук: Realtek
ОС: WinXP Prof SP2

← →
Ketmar © (2006-08-17 14:45) [25]

> [24] Rentgen © (17.08.06 14:38)
tnx.

2all: работает. странно. удивляюсь. %-)

меня! меня в тестеры!!

> [26] easy © (17.08.06 15:29)
уже давно вписан. вместе с tesseract. поимённо, как два "первона..." ой. забыл, тут нельзя первона делать %-)

Без Switchit21 работает, с ним не работает, если горячая раскладка подключена на клавишу <Win>

> [28] Есипенко © (17.08.06 17:05)
tnx. понял, править не буду. %-) некультурный SwitchIt! некультурно работает. это была одна из причин, по которой я написал свой переключатель (не менее некультурный %-).

> Ketmar

убери зеленое окно-ползунок, и сделай фишку чтобы при наведении на значё в трее покрутить колёсиком мыши вверх - громкость увеличилась, вниз - уменьшилась

> [30] VirEx © (17.08.06 19:50)
читай хистори. там написаны магические клавиши -- alt+win+f12. окно исчезнет. %-)

делать взаимодействие с мышой не хочу: события от колеса значок не получает. а городить черезпопие -- увольте. %-)
если допишу модуль, то сделаю выпадающую менюху в стиле BlackBox -- это максимум.

> [31] Ketmar © (17.08.06 20:03)
> делать взаимодействие с мышой не хочу: события от колеса
> значок не получает.

получает
wm_mousewheel
вроде

program Project1;

uses
windows,
messages,
ShellAPI;

{$R *.RES}
const
MYWM_NOTIFYICON = WM_USER + 111;

var
Instance: hWnd;
WindowClass: TWndClass;
Handle,HandlePopUp: hWnd;
itm:MENUITEMINFO;
msg: TMsg;
ExtFlag:Boolean; //
i:NOTIFYICONDATA;

procedure DoExit;
begin
ExtFlag:=true;
end;

function TrayIcon(operation:Byte):Boolean; //NIM_ADD
begin
i.cbSize:=SizeOf(i);
i.Wnd:=Handle;
i.uID:=0;
i.uFlags:= NIF_MESSAGE or NIF_ICON or NIF_TIP;
i.uCallbackMessage:= MYWM_NOTIFYICON;
i.hIcon:=LoadIcon(hInstance,"MAINICON");
i.szTip:=chr(13)+"S"+chr(13)+"m"+chr(13)+"a"+chr(13)+"l"+chr(13)+"l";
result := Shell_NotifyIcon(operation, @i);
end;

function PopUpMenu_(Create_:Boolean):Boolean;
begin
if Create_ then
begin
HandlePopUp:=CreatePopupMenu;
itm.cbSize:=SizeOf(itm);
itm.fMask:=MIIM_DATA or MIIM_TYPE or MIIM_ID ;
itm.fType:=MFT_STRING ;
itm.fState:=MFS_ENABLED ;
itm.wID:=1;
itm.dwTypeData:="Exit";
itm.cch:=SizeOf(itm.dwTypeData);
InsertMenuItem(HandlePopUp,0,false,itm);
end
else DestroyMenu(HandlePopUp);
end;

function WindowProc (Hwn,msg,wpr,lpr: longint): longint; stdcall;
var
p:TPoint;
begin
result:=defwindowproc(hwn,msg,wpr,lpr);
if msg=wm_close then
DoExit;

if msg=WM_DESTROY then
DoExit;

if msg=WM_QUERYENDSESSION then
DoExit;

if msg=WM_QUIT then
DoExit;

if msg=WM_INITMENUPOPUP then
DoExit;

if msg=wm_KeyDown then
if wpr=VK_ESCAPE then
DoExit;

if msg=MYWM_NOTIFYICON then
case lpr of
WM_LBUTTONDBLCLK : ; //"Двойной щелчок левой кнопкой";
WM_LBUTTONDOWN : ; //"Нажатие левой кнопки мыши";
WM_LBUTTONUP : ; //"Отжатие левой кнопки мыши";
WM_MBUTTONDBLCLK : ; //"Двойной щелчок мышью";
WM_MBUTTONDOWN : ; //"Нажатие кнопки мыши";
WM_MBUTTONUP : ; //"Отжатие кнопки мыши";
WM_MOUSEMOVE : ; //"перемещение мыши";
WM_MOUSEWHEEL : ; //"Вращение колесика мыши";
WM_RBUTTONDBLCLK : ; //"Двойной щелчок правой кнопкой";
WM_RBUTTONDOWN : ; //"Нажатие правой кнопки мыши";
WM_RBUTTONUP : //"Отжатие правой кнопки мыши";
begin
GetCursorPos(p);
TrackPopupMenu(HandlePopUp,TPM_LEFTALIGN,p.X,p.Y,0,Handle,nil);
end;
end;
end;

procedure Main;
label Ext; //
begin
instance :=GetModuleHandle(nil);

WindowClass.style:=CS_HRedraw or CS_VRedraw;
WindowClass.Lpfnwndproc:=@windowproc;
WindowClass.Hinstance:=Instance;
WindowClass.HbrBackground:= color_btnface;
WindowClass.LpszClassName:="DX";
WindowClass.Hcursor:=LoadCursor(0,IDC_ARROW);
WindowClass.hIcon:=LoadIcon(Instance,"MAINICON");
RegisterClass(WindowClass);

Handle:=CreateWindowEx (0,"DX","",WS_OVERLAPPEDWINDOW, 5,5, GetSystemMetrics (SM_CXSCREEN), GetSystemMetrics (SM_CYSCREEN),0,0,instance, nil);
//UpdateWindow (Handle);
ShowWindow(Handle,SW_SHOW);
TrayIcon(NIM_ADD);
PopUpMenu_(True);
while (GetMessage(msg, 0, 0, 0)) do
begin
if ExtFlag then Goto Ext;
translatemessage(msg);
dispatchmessage (msg);
end;
Ext:
PopUpMenu_(False);
TrayIcon(NIM_DELETE);
end;

begin
ExtFlag:=false;
Main;
end.

> [32] VirEx © (17.08.06 20:20)
в моём BlackBox не получает. проверено по исходникам. %-)
вернуться на explorer не предлагать. %-)

> [33] VirEx © (17.08.06 20:25)
это ты к чему? %-) если учишь меня попап-меню создавать, то не надо. я умею. только меня стандартное не устраивает, оно мне весь блэкбоксовый стиль портит. поэтому я потихоньку пишу полностью свои процедуры для вывода менюшек. потихоньку -- потому что на ассемблере. %-)

← →
Жесть какая-то. (2006-08-17 21:58) [35]

> [35] Жесть какая-то. (17.08.06 21:58)
размер. %-) плюс -- прикалывает меня. щаз вот пишеццо либа для показа менюх/окошек с полной ручной отрисовкой. тоже pure asm. люблю. напоминает родной Z80. %-)

господа, проверьте на работоспособность, плиз... Найти похожие ветки