Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 10.11.2014, 19:52   #1
WPW
 
Регистрация: 10.11.2014
Сообщений: 3
Репутация: 10
По умолчанию Найдите ошибку в коде

Код:
Function SetTextWnd(_new:string):boolean;
var
 hFocusedWnd : HWND;
 dwThreadID : DWORD;
 dwBytesNeeded : DWord;
 pszWindowText : PChar;
begin
 dwThreadID := GetWindowThreadProcessId(GetForegroundWindow, nil);
 if dwThreadID <> 0 then
  begin
   if AttachThreadInput(GetCurrentThreadId, dwThreadID, True) then
    begin
     hFocusedWnd := GetFocus;
     if hFocusedWnd <> 0 then SendMessage(hFocusedWnd, WM_SETTEXT, 0, lParam(PChar(_new)));
     AttachThreadInput(GetCurrentThreadId, dwThreadID, False);
    end;
  end;
end;
 
procedure TForm2.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
 begin
if key = VK_F2 then
begin
SetTextWnd('текст');
...
Тоесть при нажатии на ф2 в любое активное окно должно вписываться слово текст. Не работает....

Последний раз редактировалось Stilet; 10.11.2014 в 20:41.
WPW вне форума   Ответить с цитированием
Старый 10.11.2014, 20:03   #2
min@y™
Цифровой кот
Профессионал
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Адрес: 1600, пенсильвания-авеню, п.г.т. верхний Вашингтонск, 8126 км от МКАД, от поста ГАИ - налево.
Сообщений: 7,664
Репутация: 2449

icq: 100500
skype: kick-ass
По умолчанию

для начала – вотЪ.
__________________
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума   Ответить с цитированием
Старый 10.11.2014, 20:21   #3
WPW
 
Регистрация: 10.11.2014
Сообщений: 3
Репутация: 10
По умолчанию

Это не нормальный форум, если бы здесь были бы скрипты под каждый язык, как к примеру на киберфоруме, тогда было бы лучше.
WPW вне форума   Ответить с цитированием
Старый 10.11.2014, 20:43   #4
Stilet
Белик Виталий :)
Профессионал
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Адрес: Украина, Донецкая область, г. Краматорск
Сообщений: 57,840
Репутация: 6850
По умолчанию

Цитата:
Это не нормальный форум
Что же ты тогда здесь делаешь, если мы ненормальные?
Цитата:
Не работает....
А зачем нужны такие сложности?
Простого SendMessage(GetForegroundWindow, WM_SETTEXT, 0, lParam(PChar(_new))); не хватает?
__________________
I'm learning to live...
Stilet вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Найдите ошибку в коде Igogo Общие вопросы C/C++ 8 29.11.2011 00:31
Найдите ошибку в маленьком коде Crabobass Помощь студентам 3 07.03.2011 10:41
Найдите ошибку в коде Arch0000 Общие вопросы C/C++ 0 29.05.2010 07:32
найдите ошибку в коде TopoRRR Помощь студентам 6 15.12.2009 11:30
найдите ошибку в коде pony Помощь студентам 1 14.09.2009 10:03


14:08.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.