Разделы сайта:

Новости сайта
Delphi.int.ru Expert
Файловый архив
∙ Статьи
∙ Компоненты
∙ Plug-in's
∙ Документация
∙ Исходники
∙ Изображения
∙ Игры
∙ Программы
F.A.Q. (ЧаВО)
Рассылки сайта
Дружеств. сайты
Обратная связь
Каталог ссылок

Разделы рассылки:

Авторское слово
Delphi.int.ru Expert
Статья по Delphi
Файловый архив
Друзья
Юмор

Количество читателей рассылки (01.12.2006, 19:00):
5336+647=5902.

Текст вопроса:

Привет! Тут столкнулся с такой проблемой:
нужно определить какая музыка играет сейчас на компьютере. Хотя бы на Winamp'е. Хотел сделать через FindWindow, но потом вспомнил, что у Winamp'а заголовок меняеться вместе с песней.
Как быть?

Автор вопроса: Евгений Козаченко (статус: 1-ый класс)
Дата и время отправки вопроса: 22.08.2006, 19:34
Получено ответов на вопрос: 2
Сообщений в форуме вопроса: 3
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Матвеев Игорь Владимирович (статус: 10-ый класс), 22.08.2006, 23:10]:

Здравствуйте, Евгений Козаченко!
Просканируйте все окна (GetNextWindow и т.п.), если в заготовку есть " - Winamp", значит это WinAmp и он проигрывает композицию, заголовок которой можно вычленить из оригинального заголовка нйденного окна.

Оценка за ответ: 3.

2. [Отвечает: Dron (статус: 9-ый класс), 23.08.2006, 08:23]:

Здравствуйте, Евгений Козаченко!
Есть более оптимальный вариант. Существуют специальные компоненты, которые позволяют легко управлять Winamp'ом. Разработчики проигрывателя специально создали API для других программ. Один из таких компонент можно скачать здесь: http://www.delphi.int.ru/download.php?id=111 Думаю, что с использованием проблем не будет. Ну а ежели не разберётесь - пишите. Удачи!

Оценка за ответ: 4.

Текст вопроса:

Необходимо написать приложение в Delphi7 для работы с MySQL базой на удаленном сервере.
Есть база на UNIX-сервере в которую пользователи на сайте вносят свои данные (ФИО, маил, аська)
мне нужно, один раз в день, загрузить эти данные в делфи-приложение и отметить их допустим как "одобряю" или "неодобряю", а также нужен способ удалить неподходящие данные из базы.

Я еще не занимался написанием такого рода программ - буду рад любым полезным сцылкам

Автор вопроса: Косарев Антон Сергеевич (статус: Посетитель)
Дата и время отправки вопроса: 23.08.2006, 16:55
Получено ответов на вопрос: 1
Сообщений в форуме вопроса: 0
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Виталий Лещенко (статус: 2-ой класс), 24.08.2006, 15:30]:

Здравствуйте, Косарев Антон Сергеевич!

Вот тебе ссылка на архив:
http://vitaliy.org/downloads/mysql.rar

Там есть модуль(MySQL.pas) для прямой работы с MySQL +модуль(MySQLClasses.pas) - обвертка в классы того, что естьв первом модуле.

Протестировано мной с MySQL5

Все что тебе надо, это libmySQL.dll

Оценка за ответ: 5.

Текст вопроса:

Доброе время, Господа Программисты. Помогите пожалуйста, разобраться!!! У меня вопрос, которого обычно не задают на таких форумах, ответьте, кто знает. У меня есть неактивная программа, точнее форма. Я нажимаю на любую кнопку, допустим "ч", а в Мемо. плюс к остальному, добавилось "ч". Заранее очень благодарен.!! Жду Вашего ответа!!!

Автор вопроса: Geron (статус: 1-ый класс)
Дата и время отправки вопроса: 27.08.2006, 00:59
Получено ответов на вопрос: 2
Сообщений в форуме вопроса: 0
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Dron (статус: 9-ый класс), 27.08.2006, 08:35]:

Здравствуйте, Stalker!
Я не совсем понял, что именно Вам требуется, но сделал небольшой пример. Загрузить можно здесь: http://expert.delphi.int.ru/download_14 В проекте две формы. Вторая полностью неактивна и на ней расположено TMemo, которое тоже неактивно. При наборе символов, когда активная первая форма, они добавляются в Memo на второй форме. Если на первой форме будут другие компоненты (например, кнопки) и фокус будет установлен на них, а реагировать на нажатия клавиш всё равно требуется, то следует поставить у формы KeyPreview = True. Удачи!

2. [Отвечает: Denisss (статус: 1-ый класс), 27.08.2006, 11:56]:

Здравствуйте, Stalker!
Вам надо разбираться с клавиатурными хуками (Keyboard Hook).
Попробуйте отыскать в интернете примеры KeyLogger'ов.
(Например, вот: http://www.planet-source-code.com/URLSEO/vb/scripts/ShowCode!asp/txtCodeId!1615/lngWid!7/anyname.htm)

Оценка за ответ: 5.

Текст вопроса:

Здравствуйте, уважаемые эксперты!
Каким образом можно осуществить замену одного фрагмента на другой в определённой строке? Например, в большом тексте нужно заменить "123" на "456". Как это проще всего реализовать? И дополнительный вопрос: как осуществить тоже самое, но не обращая внимание на регистр, т.е. и "привет", и "ПРИВЕТ" и "пРиВеТ" должно замениться на "Hello"?
Заранее благодарю за ответы.

Автор вопроса: Sunshine (статус: Посетитель)
Дата и время отправки вопроса: 28.08.2006, 17:48
Получено ответов на вопрос: 6
Сообщений в форуме вопроса: 1
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Лукьяненко Алексей Валериевич (статус: 1-ый класс), 28.08.2006, 18:17]:

1 - функция ANSIReplaceStr
2 - функция ANSIReplaceText
Параметры (все строковые):
1 - где искать
2 - что искать
3 - на что заменять
Результат функции - строка с заменами

Оценка за ответ: 5.
Комментарий: Спасибо, как раз то, что нужно. Только вы забыли указать, что данные функции находятся в модуле StrUtils...

2. [Отвечает: Geron (статус: 1-ый класс), 28.08.2006, 18:28]:

Здравствуйте, Sunshine! Сначало мы ищем нужную строку строку: pos(Подстрока,Строка);
Потом мы вырезаем эту строку: delete(Строка, номер символа, с которого начинается удаляемая подстрока, длина удаляемой подстроки);
И вставляем нужную строку(копируем до нужной строки и после нужной строки, склеиваем ''+''+'').

Оценка за ответ: 3.
Комментарий: Общий алгоритм понятен, но есть некоторые тонкости, например, если заменять "123" на "12345" то произойдёт зацикливание и строка будет расти в бесконечность. Кроме того, хотелось бы узнать, как делать замену строк без учёта регистра...

3. [Отвечает: Косолапов Дмитрий Юрьевич (статус: 2-ой класс), 28.08.2006, 18:42]:

Помнится, есть функция StrReplace...

Оценка за ответ: 1.
Комментарий: Вы бы перед отправкой ответа хоть Delphi открывали что ли... Такой функции в основных модулях нет.

4. [Отвечает: Иусов Сергей Ник. (статус: 1-ый класс), 29.08.2006, 06:56]:

Здравствуйте, Sunshine!
Советую посмотреть в сторону
function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;
по дополнительному вопросу смотри параметр Flags

Оценка за ответ: 5.

5. [Отвечает: Виталий Лещенко (статус: 2-ой класс), 29.08.2006, 14:26]:

Здравствуйте, Sunshine!

Вот пример...

Приложение:

uses SysUtils; {$Apptype Console} var s: string; begin s := 'HeLlO!'; s := StringReplace(s, 'Hello', 'Hello', [rfReplaceAll, rfIgnoreCase]); WriteLn(s); end.

Оценка за ответ: 5.

6. [Отвечает: Новаковский Юрий Аврамович (статус: 2-ой класс), 29.08.2006, 15:38]:

Предположим в Memo1 надо найти все вхождения строки из Edit1 в любом регистре и заменить на строку из
Edit2

procedure TForm1.Button1Click(Sender: TObject);
var
S,S1:string;
I,J,Po:integer;
begin
//Преобразуем строку поиска в верхний регистр
S1:=Edit1.Text;
for J := 1 to Length(S1) do S1[J] := UpCase(S1[J]);
//перебираем все строки
for I := to Memo1.Lines.Count-1 do
begin
//Преобразуем строку где ищем в верхний регистр
S:= Memo1.Lines;
for J := 1 to Length(S) do S[J] := UpCase(S[J]);

Po:= Pos(S1,S);//Поиск подстроки
if po=0 then Continue;//Не найдено-след строка
Delete(S,Po,Lenth(S1));//удалили
Insert(S1,S,Po);//вставили
Memo1.Lines:=S ;//вернули на место
end;
Удачи

Текст вопроса:

К сожалению я не усел уточнить вопрос для Новаковского Юрия.
Задаю его еще раз:
Необходимо программно обрабатывать (выполнять) файлы (не ярлыки!) из папки SendTo, напр.: SendTo\Desktop (create shortcut).DeskLink.

Уточнение:
Имеется в виду открытие прораммно таких "ярлыков" как "Desktop (create shortcut).DeskLink", "Docs.mydocs", "Mail Recipient.MAPIMail" - они находяться там по умолчанию.
Обычными способами (ShellExecuteEx or CreateProcess) их открыть (выполнить) не получается!

Буду благодарен за любую помощь.

Автор вопроса: mik (статус: Посетитель)
Дата и время отправки вопроса: 01.09.2006, 13:30
Получено ответов на вопрос: 1
Сообщений в форуме вопроса: 4
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Новаковский Юрий Аврамович (статус: 2-ой класс), 01.09.2006, 18:00]:

Здравствуйте, mik!

К сожалению эти файлы
(Desktop (create shortcut).DeskLink", "Docs.mydocs", "Mail Recipient.MAPIMail")
имеют нулевую длину,
и как то обработать их невозможно.
Юрий

Оценка за ответ: 3.

Текст вопроса:

Уважаемые Программисты! Подскажите пожалуйста!!! Вот у меня такая программа. Есть форма, на ней кнопка и Edit. Я пишу в Edite полный путь к папке. Нажимаю кнопку и открывается полный доступ(с изменением)к папке. Что мне нужно писать в процедуре кнопки. Заранее благодарен!

Приложение:

procedure TForm1.Button1Click(Sender: TObject); begin ???????????????????? end;

Автор вопроса: Geron (статус: 1-ый класс)
Дата и время отправки вопроса: 02.09.2006, 16:38
Получено ответов на вопрос: 1
Сообщений в форуме вопроса: 3
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: min@y™ (статус: 4-ый класс), 04.09.2006, 08:16]:

Если имеется в виду удалённый доступ к папке, то смотри в SDK про функции:
NetShareAdd();
NetShareCheck();
NetShareDel();
NetShareEnum();
NetShareGetInfo();
NetShareSetInfo().

Естественно, прога должна быть запущена с правами администратора.

Текст вопроса:

Мне надо Shape со скруглёнными углами, залитый плавным градиентом (с верху вниз), с возможностью указания начального и конечного цветов. И чтобы у него за углами оставалась прозрачность. И при перетаскивании формы за границу экрана не пропадал градиент. Или поделитесь примером, где залит круглый примитив с красным бордюром.

Залить прямоугольный TShape не проблема. Интересует именно со скруглёнными углами.

Автор вопроса: Кузьменя Александр Викторович (статус: Посетитель)
Дата и время отправки вопроса: 14.09.2006, 04:10
Получено ответов на вопрос: 1
Сообщений в форуме вопроса: 0
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Вадим К (статус: 8-ой класс), 14.09.2006, 11:36]:

Эсли Вы знаете, как залить прямоугольный Shape, тогда в чём проблема залить произвольный? Наверное, в определении границ. Тут могу предложить два способа
Создать маску (тоесть битмап с двумя цветами - черным (000000) и белым(FFFFF)). Далее рисуем градиент обычным способом, но перед выводом пикселя на экран проверяем, какой цвет в маске.
Вариант два - это спомнить школьный курс геометрии и вывести формулу, которая определяет, попадает ли точка в нужную область. А далее по накатаном пути

Оценка за ответ: 3.

Текст вопроса:

Уважаемые Експерты

Столкнулся с ситуацией непонятной для меня в OpenGL на Delphi.

Отрисовываю cцену c использованием OpenGL в отдельном окне - все прекрасно. Как только пытаюсь его пристыковать к другому окну как Dock Client рисунок пропадает и при отстыковке не восстанавливается. Понимаю, что теряется контекст, но в каких событиях и как его восстанавливать не понимаю. Пытался это сделать в событиях OnDockDrop, OnUndock, но к положительноиу эффекту это не привело

Заранее благодарен всем кто откликнется и поможет советом

Автор вопроса: Мартынов Михаил (статус: Посетитель)
Дата и время отправки вопроса: 21.09.2006, 12:01
Получено ответов на вопрос: 0
Сообщений в форуме вопроса: 0
Страница данного вопроса >>

» Ответы на данный вопрос:

К сожалению, ответов на данный вопрос не поступило...

Текст вопроса:

Здравствуйте! Помогите найти компоненты в стиле Касперского 6. Или помогите залить плавным градиентом TShape со скруглёнными углами (пример пожалуйста!).

Автор вопроса: Кузьменя Александр Викторович (статус: Посетитель)
Дата и время отправки вопроса: 22.09.2006, 06:02
Получено ответов на вопрос: 3
Сообщений в форуме вопроса: 0
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: min@y™ (статус: 4-ый класс), 22.09.2006, 08:55]:

А что, torry.net прикрыли за пиратсво? Да вроде нет :))
Пишу в строке поиска Shape, вываливается 23 результата. Жму в Firefox Ctrl+F, пишу в поиске Gradient и... Мама родная, СКОЛЬКО ИХ ТУТ!

http://www.torry.net/vcl/shapes/enhancedshapes/jvshape.zip
http://www.torry.net/vcl/shapes/gradientshapes/sgradshp.zip
http://www.torry.net/vcl/shapes/enhancedshapes/janshape.zip
http://www.torry.net/vcl/shapes/enhancedshapes/manysh.zip

Есть даже целый подраздел "Components > Shapes > Gradient Shapes" - http://www.torry.net/pages.php?id=156

З.Ы. Поиск рулит, как всегда.

2. [Отвечает: Помфюк Владимир Степанович (статус: 6-ой класс), 22.09.2006, 10:30]:

Здравствуйте, Кузьменя Александр Викторович!
Заливайте прямоугольные формы, а потом меняйте ему форму как угодно.(как - читейте здесь:
http://groups.google.com/group/relcom.comp.lang.pascal/browse_thread/thread/84e6ec50ac06421c/5b73a8af055cd2bc%235b73a8af055cd2bc )

Приложение:

Sorry, примера не будет :-(

Оценка за ответ: 3.

3. [Отвечает: Ершов Денис (статус: 4-ый класс), 24.09.2006, 20:42]:

Здравствуйте, Кузьменя Александр Викторович!

Я так полагаю это продолжение истории с вопросом № 117.

Всеми запрошенными свойствами обладает компонент LMDShapeControl из библиотеки LMD-Tools (http://www.lmd.de и http://www.lmdtools.com).

Имеет кучу настроек для заливки, формы и вида линии, характера отбрасываемой компонентом тени.

Оценка за ответ: 3.
Комментарий: Спасибо. Вопрос реш. А у компонента от LMD, при скруглении углы не прозрачные.. и монстр

Текст вопроса:

Доброе время суток, Господа Программисты!!!
Подкажите пожалуйста. Я знаю два места автозагрузки в реестре.(HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run),
(HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run). Кто знает другие места? Заранее благодарен!!

Автор вопроса: Geron (статус: 1-ый класс)
Дата и время отправки вопроса: 22.09.2006, 23:49
Получено ответов на вопрос: 3
Сообщений в форуме вопроса: 0
Страница данного вопроса >>

» Ответы на данный вопрос:

1. [Отвечает: Матвеев Игорь Владимирович (статус: 10-ый класс), 23.09.2006, 06:36]:

Здравствуйте, Stalker!
Есть еще подключи RunOnce и RunOnceEx.
Однако, если Вам нужно это для написания вируса или какой-то вредоностной программы можно найти еще массу способов так или иначе запустить Ваше приложение.. Например, вспомнить, что Windows насквозь состоит из COM - Вы можете написать простой COM объект - Dll, запускающую Ваше приложение, и зарегистрировать его как один из компонентов системы.
И еще остаются автозагружаемые сервисы, а также, драйвера.

2. [Отвечает: Dron (статус: 9-ый класс), 23.09.2006, 08:37]:

Здравствуйте, Stalker!
В реестре - эти и ещё RunOnce и RunOnceEx (о которых другой эксперт уже сообщил). Но, если программа должна выводить список всего, что находится в автозагрузке, то просто необходимо сканировать папки "Автозагрузка" в главном меню. Причём обычно их две - для текущего пользователя и общая (для всех). Там находятся обычные ярлыки. Для этих директорий нужно сделать простой листинг с помощью FindFirst(), FindNext(). Удачи!

Оценка за ответ: 5.

3. [Отвечает: Игорь Данилевич (статус: 2-ой класс), 23.09.2006, 13:04]:

Здравствуйте, Stalker!
Смотрите програмку Autoruns: http://www.sysinternals.com/

HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Userinit
HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Shell
HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\Shell
HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce\
HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnceEx\
HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\
HKCU\Software\Microsoft\Windows\CurrentVersion\Run\
HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServices\
HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\RunServicesOnce\
HKCU\Software\Microsoft\Windows\CurrentVersion\RunServices\
HKCU\Software\Microsoft\Windows\CurrentVersion\RunServicesOnce\
C:\Documents and Settings\All Users\Главное меню\Программы\Автозагрузка
C:\Documents and Settings\<имя текущего пользователя>\Главное меню\Программы\Автозагрузка
HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\ShellServiceObjectDelayLoad\
HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows\Run
HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows\Load
HKCU\Software\Policies\Microsoft\Windows\System\Scripts
HKLM\Software\Policies\Microsoft\Windows\System\Scripts
HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run\
HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run\
HKCU\Software\Microsoft\Windows\CurrentVersion\RunOnce\
HKCU\Software\Microsoft\Windows\CurrentVersion\RunOnceEx\
C:\WINDOWS\win.ini

Оценка за ответ: 5.