extstatuses
- Lake_bodom
- Не в сети
- New Member
- Сообщений: 9
- Спасибо получено: 0
Пожалуйста Войти или Регистрация, чтобы присоединиться к беседе.
- TiMeTraSheR
- Не в сети
- Moderator
- Сообщений: 1110
- Спасибо получено: 0
Пожалуйста Войти или Регистрация, чтобы присоединиться к беседе.
- Lake_bodom
- Не в сети
- New Member
- Сообщений: 9
- Спасибо получено: 0
Пожалуйста Войти или Регистрация, чтобы присоединиться к беседе.
- PRO
- Не в сети
- Elite Member
- Сообщений: 300
- Спасибо получено: 0
Пожалуйста Войти или Регистрация, чтобы присоединиться к беседе.
- Lake_bodom
- Не в сети
- New Member
- Сообщений: 9
- Спасибо получено: 0
Пожалуйста Войти или Регистрация, чтобы присоединиться к беседе.
- TiMeTraSheR
- Не в сети
- Moderator
- Сообщений: 1110
- Спасибо получено: 0
Пожалуйста Войти или Регистрация, чтобы присоединиться к беседе.
- Lake_bodom
- Не в сети
- New Member
- Сообщений: 9
- Спасибо получено: 0
И как они вообще пишутся? Если б знать, то можно было бы быстренько эту проблему решить
Пожалуйста Войти или Регистрация, чтобы присоединиться к беседе.
- Delphuk
- Не в сети
- Moderator
В плагинном апи крысы нет возможности менять текст в доп. статусах и в доп. сообщении.Если б знать, то можно было бы быстренько эту проблему решить
Пожалуйста Войти или Регистрация, чтобы присоединиться к беседе.
- PRO
- Не в сети
- Elite Member
- Сообщений: 300
- Спасибо получено: 0
Пожалуйста Войти или Регистрация, чтобы присоединиться к беседе.
- Lake_bodom
- Не в сети
- New Member
- Сообщений: 9
- Спасибо получено: 0
если можно, с этого места поподробней
Спасибо
Пожалуйста Войти или Регистрация, чтобы присоединиться к беседе.
- TiMeTraSheR
- Не в сети
- Moderator
- Сообщений: 1110
- Спасибо получено: 0
Пожалуйста Войти или Регистрация, чтобы присоединиться к беседе.
- PRO
- Не в сети
- Elite Member
- Сообщений: 300
- Спасибо получено: 0
Пожалуйста Войти или Регистрация, чтобы присоединиться к беседе.
- TiMeTraSheR
- Не в сети
- Moderator
- Сообщений: 1110
- Спасибо получено: 0
Пожалуйста Войти или Регистрация, чтобы присоединиться к беседе.
- Lake_bodom
- Не в сети
- New Member
- Сообщений: 9
- Спасибо получено: 0
спасибо. Я, правда, непрваильно выразился - собирлся делать это через FindWindow иFindWindowEx, меня просто интересовали заголовки. Все равно спасибо, попробую разобраться!
Пожалуйста Войти или Регистрация, чтобы присоединиться к беседе.
- PRO
- Не в сети
- Elite Member
- Сообщений: 300
- Спасибо получено: 0
Пожалуйста Войти или Регистрация, чтобы присоединиться к беседе.
- Mikael
- Не в сети
- Administrator
[code:1]
procedure TForm1.Button1Click(Sender: TObject);
var
hWindow: HWND; // искомое окно
hEdit: HWND; // поле ввода статуса
hMemo: HWND; // поле ввода расширенного статуса
hRnQButton: HWND; // кнопка \"сохранить\"
begin
hWindow := FindWindow('TxStatusForm', nil); // ищем окно допстатусов
if hWindow <> 0 then // если найдено
begin
{ находим поле ввода статуса }
hEdit := FindWindowEx(hWindow, 0, 'TEdit', nil);
{ находим поле ввода расширенного статуса }
hMemo := FindWindowEx(hWindow, 0, 'TMemo', nil);
{ находим кнопку }
hRnQButton := FindWindowEx(hWindow, 0, 'TRnQButton', nil);
{ пишем нужный текст }
SendMessage(hEdit, WM_SETTEXT, 0, Integer(PChar(Edit1.Text)));
SendMessage(hMemo, WM_SETTEXT, 0, Integer(PChar(Memo1.Text)));
{ эмулируем нажатие кнопки }
SendMessage(hRnQButton, BM_CLICK, 0, 0);
end;
end;[/code:1]
Это событие на нажатие кнопки (как можно заметить), помимо нее на форме один TEdit и TMemo
Пожалуйста Войти или Регистрация, чтобы присоединиться к беседе.
- Lake_bodom
- Не в сети
- New Member
- Сообщений: 9
- Спасибо получено: 0
Только вот почему-то та прога не меняет статус
пишу сверху Music
снизу тоже чего-то там. Не меняет.
Пожалуйста Войти или Регистрация, чтобы присоединиться к беседе.
- Mikael
- Не в сети
- Administrator
СПАСИБО! Ты просто мой бог!
Только вот почему-то та прога не меняет статус
пишу сверху Music
снизу тоже чего-то там. Не меняет.
не знаю я где ты накосячил, вот рабочий пример программы - пробуй
Пожалуйста Войти или Регистрация, чтобы присоединиться к беседе.
- Lake_bodom
- Не в сети
- New Member
- Сообщений: 9
- Спасибо получено: 0
Пожалуйста Войти или Регистрация, чтобы присоединиться к беседе.
- Mikael
- Не в сети
- Administrator
Пожалуйста Войти или Регистрация, чтобы присоединиться к беседе.