Форум » Предложения » Голосование: Звуковой сигнал в чате » Ответить
Голосование: Звуковой сигнал в чате
Yar_Blood: Гм.... Тут просят сделать звуковой сигнал, т.к. когда тебе приходит сообщение в чате, звук был.... Я помню мы сделали на приват звук.... Потом чат чуть не закрыли
Ответов - 80, стр:
1 2 3 4 All
GreenInsect: Ма ие? :)
Юля: ась?
faby: кого-кого?
GreenInsect: У меня тут другая идея появилась... Кто-нибудь тут разбирается в ява-скрипте? :)
Тонкий: Это така фигня с помощью которой можно карсивые финты откалывать))))))анимэшныя))))
Надюндель: Тонкий это фсе знают.../ну или почти фсе/ вот только вопрос: ты разбираешься в их создании??
GreenInsect: Я тоже знаю что это.. :) Но разбираетесь ли вы в этом? :)
Надюндель: хм... я - нет=)
Тонкий: Аданзначно конечно исстественно разумееться НЕТ
Мандаринка: А седьмой голос "за" мой))
Юля: вот :)
fatal: Макс: что нужно сделать? ты, главное, задачу поставь, а там - легко )
GreenInsect: fatal cделать так, чтобы окно браузера всегда было поверх остальных.. :)
fatal: Если есть возможность вызова API функций из javascript, то можно сделать так: ShowWindow(HWnd, SW_HIDE); SetWindowPos(HWnd, HWND_TOPMOST, x, y, cx, cy, WS_EX_TOPMOST); ShowWindow(HWnd,SW_SHOW); где HWnd - дескриптор окна браузера, который каким-то образом нужно заполучить ) что же касается объекта window... поковырял, но не нашел способа изменения стиля окна таким образом, чтобы оно находилось поверх остальных даже тогда, когда оно неактивно
GreenInsect: fatal и куда это пихать? :) Я в инете искал и нашел такую инфу, что нельзя вообще так сделать...
fatal: в том то и беда, что из javascript до Win32 API хрен достучишься, поскольку кроссплатформенный, зараза... но... ) над подумать...
GreenInsect: Аха, подумай.. :))
fatal: и ты подумай ))) вот инфа к размышлению о завязывании извилин бантиком
fatal: на Delphi... для любого окна unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) ListBox1: TListBox; Button1: TButton; Button2: TButton; Label1: TLabel; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; f: function(HWND: hwnd; LPARAM: lparam): boolean; implementation {$R *.dfm} function WndProc2(h:hwnd; LPARAM:lParam): boolean; far; stdcall; var sclassname,stitlebar: array [0..60] of char; s: string; begin GetClassName(h,sclassname,60); GetWindowText(h,stitlebar,60); s:='hwnd: '+IntToStr(h)+' class_name: '+sclassname+' title_bar: '+stitlebar; Form1.ListBox1.Items.Add(format('hwnd: %8d classname: %40s titlebar: %40s',[h,sclassname,stitlebar])); WndProc2:=True; end; procedure TForm1.Button1Click(Sender: TObject); begin ListBox1.Items.Clear; EnumWindows(TFarProc(@WndProc2),0); end; procedure TForm1.Button2Click(Sender: TObject); var h,l1,l2: integer; s: string; TR: TRect; begin s:=ListBox1.Items[ListBox1.ItemIndex]; l2:=pos(' class',s); l1:=pos('d: ',s); h:=StrToInt(Trim(Copy(s,l1+3,l2-l1-3))); GetWindowRect(h,TR); ShowWindow(h,SW_HIDE); SetWindowPos(h, HWND_TOPMOST, TR.Left, TR.Top, TR.Right-TR.Left, TR.Bottom-TR.Top, WS_EX_TOPMOST); ShowWindow(h,SW_SHOW); end; end.
GreenInsect: Как и многие идеи, эта осталась не осуществленной.. :)
полная версия страницы