| Типы программирования, программирование, языки программирования, книги программирование | На сайте представлена информация про программирование в Интернете и работу |
|
Handle, пишет- нет такой переменной DLL и потоки!, Остановить DLL!!! Delphi, API, Message, Где найти соответствующие константы как пол. коорд. курсора мыши над TScroll Реестр, Работа с реестром Доступ к локальным дискам (XP), открытие\закрытие доступа... Использование mlang.dll Трей, Глюки в WinXP, Win2k Как очистить экран в консольном приложении? Лдюди объясните по русски как установить Rxlib, для Delphi 7.0 ошибка MItec, Помогите разобраться Перенаправление ввода и вывода, Bind Shell Текст вместо иконки Браузер на Delphi Помогите не могу понять!, Про окна Как упрятать программу Помогите с иконкой в трее!, иконка втрее Как Вы относитесь к курящим девушкам? IP адрес, связь Кнопки, Интерес Рисунок с рабочго стола по LAN, Рисунок с рабочго стола Как распознать запуск другой проги? Блокировка CD-ROMа полосы прокрутки у TMemo & TListBox, как сделать их плоскими и другого цвета Hook на процессы!, Отловить запуск и завершение процесса! Ресурсы: окошки Температура процессора, Как контролировать Как загружать прогу в безопасном режиме Идентификаторы в Delphi Новый форум, Новый форум Данные из клавы направить не туда. как получить температуру?, как программно получить температуру? ПРограммирование HASP-ключей, ЗАдали лабораторную .. ничего не понятно Есть ли в Делфи реализация интерфейса, а-ля интерфейс как в Java ?? Как минимизировать приложение при старте ?, Мне казалось что это так просто... Что такое хинты, и как их показывать Запрет запуска хранителя экрана, при работе программы Восстановление удалённых файлов Поиск ехе, Поиск ехе в директориях Работа с ОЗУ, как? Как загрузить данные из Reources ? А-у! Помогите, не работает детская процедура, Процедура сбора статистики работы СД Как программно запретить вход в виндовс убить заголовок окна, чужого Работа в потоке, Ну, типа, работа в потоке Как сделать окно поверх панели задач Как вычислить подключение винта к USB Как избежать LOg off/on при изменении реестра, Столкнулся с такой проблемой. метод Synchonize объекта TThread Функция типа TStringList Где храняться пути для переменных окружения ? Как сейчас на счет бесплатного Delphi 6 personal Дефрагментация Скрытие окна..., ...как это делает LiteAlloy Как сделать, чтобы фокус ввода окна нельзя, отменить пока его не закроешь Програмка для тестирования памяти, алгоритмы есть Серийный номер процессора, Как получить? Внедрение DLL Как получить информацию запущен процесс или нет ?? Hook на печать, это возможно? Текстурирование, как сделать скины для окон Прочитать значение из оперативки, ID процесса известен, адрес тоже. Надо прочитать куда нить значения из памяти, сабж Как Вы относитесь к курящим девушкам? объем физического диска под Win9x Кто пробывал написать свой компилятор ??, Нужен ваш хелп. WM_DEVICECHANGE, отслеживаем изменения одного устройства Порты и Дельфи, HELP!!!!!! CreateRemoteThread, как использовать? Как это работает?, есть такая прога... LClock |
Платные хостинги Раскрутка сайта Книги по программированию Текст вместо иконки
- Как сделать чтобы вместо иконки в трее показывалася строка? И все это надо с помощью Shell_NotifyIcon - строка -- никак. можно пару букв всунуть... - Нужно чтоб вместо иконки показывался текст а не на иконке! - Читай статью про трей.Принцип действия - создаешь свою иконку из битмапа.То есть создаешь битмап, рисуешь на нем текст, конвертишь в иконку.А уже эту иконку назначаешь в трей. - PavelPro, что тебе нужно я понял. только сделать этого нельзя...можно бегущую строку сделать ( по одной букве показывать )Snowy, максимальная иконка для трея 64х64 ( кажись ) какого размера будут буквы у такого текта? ;) - Наверняка сказать не могу, но насколько мне известно, в качестве "иконки" можно назначать глифы и большего размера.Я этим не интересовался, но можно просто найти статью "как запихать текст в трей". - Гы........странные вы все.В трей можно засунуть все что угодно...........Вот исходник, правда он на VB, но думаю, это не проблема.тут - Вот эта статья: DELPHI-DLP-000643PS. Нужно иногда в FAQ заглядывать! - - _hunterНе понял.... - этот пример не вставляет текст в трей. он создает тучу иконок на каждой из которых рисует по букве... - Вот тебе пример... увеличения области под иконку(в данном примере... для всех иконок из трея):Код ...var Form1: TForm1; TrayWnd:Cardinal; //Shell_TrayWnd - Панель задач TrayNW:Cardinal; //TrayNotifyWnd - Весь трей TrayButton:Cardinal; //Button - Кномка для показа/скрытия иконок в трее для WinXP TraySysPager:Cardinal; //SysPager - Иконки прог в трее TrayTB32:Cardinal; //ToolbarWindow32 - Область уведомлений в трее Tray_pId:Cardinal; //Идентификатор процесса-владельца треяimplementation{$R *.dfm}uses CommCtrl;function InTray():boolean;//Инициализация переменных для доступа к треюvar s:string;begin Result:=false; s:=''; TrayWnd:=findwindow('Shell_TrayWnd', nil); if TrayWnd<>0 then begin TrayNW:=findwindowex(TrayWnd,0,'TrayNotifyWnd', nil); if TrayNW<>0 then begin TrayButton:=findwindowex(TrayNW,0,'Button',nil); TraySysPager:=findwindowex(TrayNW,0,'SysPager', nil); if TraySysPager<>0 then begin TrayTB32:=findwindowex(TraySysPager,0,'ToolbarWindow32', nil); if TrayTB32<>0 then begin Tray_pID:=0; GetWindowThreadProcessId(TrayWnd,@Tray_pID); if Tray_pID<>0 then Result:=true else s:='Не могу определить идентификатор'+#13+#10+'процесса - владельца трея!'; end else s:='Область уведомлений в трее - не найдено!' end else s:='SysPager в трее - не найден!'; end else s:='Трей - не найден!'; end else s:='Панель задач - не найденна!'; if Result=false then ShowMessage(s);end;procedure TForm1.Button1Click(Sender: TObject);var i:TTBBUTTONINFO; opTBW32:Cardinal; s,j,t:DWord; rMem:Pointer;begin InTray; opTBW32:=OpenProcess(PROCESS_VM_OPERATION or PROCESS_VM_READ or PROCESS_VM_WRITE,false,Tray_pId); if opTBW32<>0 then begin s:=SizeOf(i); rMem:=VirtualAllocEx(opTBW32,nil,s,MEM_RESERVE or MEM_COMMIT,PAGE_READWRITE); if rMem<>nil then begin i.cbSize:=SizeOf(i); i.dwMask:=TBIF_SIZE; j:=SendMessage(TrayTB32,TB_BUTTONCOUNT,0,0); while (j>0) do begin dec(j); i.cx:=30; //Нужная нам ширина для j-кнопки WriteProcessMemory(opTBW32,rMem,@i,s,t); SendMessage(TrayTB32,TB_SETBUTTONINFO,j,integer(rMem)); //j - номер кнопки end; VirtualFreeEx(opTBW32,rMem,0,MEM_RELEASE); end; CloseHandle(opTBW32); end;end;...highlightSyntax('delphiTY2ZmU','delphi');PS: Картинку, с текстом... сам замениш... - Что-то я не понял! Это о чем? Об этом: Цитата (Poseidon @ 6.4.2005, 12:15)PS. Нужно иногда в FAQ заглядывать! или об этом: Цитата (Poseidon @ 6.4.2005, 12:15)Вот эта статья: Если о первом, то не понятно, в чем я не прав. Я всегда смотрю FAQ перед тем как задать вопрос! А вот если о втором, то я ничего и не советовал. Я просто указал гда можно найти статью, о каторой говорил Snowy. Вот и все! Не понимаю, в чем я не прав? - о статье. она делает немного не то, что просили. и смысла в том, чтобы ее давать я не вижу ( даже если ее кто-то упомянул )Girder, прикольный код. только непонятно каким макаром rMem попадает туда, куда нужно  |