Помогите, пожалуйста, решить непосильную задачу для моего ума.

[BiT]

Помогите, пожалуйста, решить непосильную задачу для моего ума.

Я хочу сделать приложение, которое находило нужное, приложения, Handle окна запоминало его. Для последующей работы с ним.

Теперь постараюсь объяснить смысл работы программы:

Я запускаю свою программу!  Несколько окон  блокнота нахожу нужный Handle окна запоминаю его и посылаю ему сочетание клавиш (CTRL + C ) программа ловит нажатие клавиш и посылает блокноту ( F1 ) или текст ). Как мне программно и визуально сделать.
Нужно чтоб было на форме выбор горячих клавиш и выбор действий их.
И если можно с описание что на форму положить и куда код прописывать.
                {Я начинающий Делфист очень жду вашей помощи}

[zubr]

BiT, попробуй четче изложить что тебе надо.
1. Непонял:

Несколько окон  блокнота нахожу нужный Handle окна

Если несколько окон блокнота, по каким параметрам надо находить хендл окна.
2.

и посылаю ему сочетание клавиш (CTRL + C )

Кому ему? Своему приложению или блокноту?
3.

нахожу нужный Handle окна запоминаю его

А если окно закрыли, хендл уже не валидный, то что? Отслеживать закрытие окон?

P.S. Вот пример, мягко говоря, неаккуратного использования родного языка для изъяснения собственных мыслей.

[BiT]

1. По заголовку или Handle Активного окна
2. чтоб моя программа среагировала на нажатие клавиш (CTRL + C )  и послала в блокнот f1
3. А зачем мне несуществующее окно)

P.S.  Я за собой заметил)
 

[Basurman]

BiT, почитай немного SDK.
Handle окна можно получить по его классу, или заголовку.
В своей программе ставишь обработчик на (CTRL+C), который отправит необходимому Handle нужное сообщение.
Проверить существование окна поможет IsWindowExists (ну примерно так).

[BiT]

Я весь инет перерыл,  книг за пол года прочел, что за свои 27 не прочел, как я понял для меня непосильно решение задачи без явного примера (Поймите тяжко начинать)

[McZim]

Я весь инет перерыл

ну видимо не весь
http://www.delphihelp.org/get_handle_class_cur_window.html

[BiT]

У меня все это есть! просто не знаю, как все это обеднить.

[McZim]

BiT, обеднить? или объединить? вот в чем вопрос Купи толковую книгу.

[zubr]

BiT, честно говоря, не совсем понятно назначение и смысл твоей программы.
Если ты хочешь, чтобы за тебя написали программу - то это врядли.
Из того что я понял, порядок действий:
1. Создаешь новое Form-Application.
2. Ложишь на форму компонент TComoboBox со  списком комбинаций горячих клавиш.
3. В обработчике OnChange комбобокса прописываешь код удаления предыдущей регистрации горячих клавиш UnregisterHotKey (см. MSDN) и регистрации  новой комбинации RegisterHotKey (см. MSDN)
4. Создаешь обработчик для сообщения WM_HOTKEY, в котором прописываешь действия по поиску окна и нажатию клавиши:
   - Для поиска по заголовку функции API FindWindow, FindWindowEx (см. MSDN)
   - Для поиска активного окна можно воспользоваться функцией GetForegroundWindow (см. MSDN)
   - Для отправки F1 блокноту используем API функцию SendMessage с сообщением WM_KEYDOWN, WM_KEYUP

[DrGluck]

Вроде все просто, непонятно в чем проблема. 
Ты не инет серфи, а MSDN читай.

[BiT]

Спасибо я так и понял, что все просто так не дается. Буду читать MSDN. Я если честно только пол года пытаюсь программировать.

[zubr]

BiT, если что будет непонятно конкретно по функциям, спрашивай, поможем.

[BiT]

Подскажите, что тут не так почему  по горячей клавиши не отправляется f1 в блокнот.



private

  procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
    { Private declarations }
  public

    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormDestroy(Sender: TObject);
begin
UnRegisterHotKey(Handle, 0);
end;

procedure TForm1.WMHotKey(var Msg: TWMHotKey);
           var
   wnd: HWND;
    begin
inherited;
  wnd := FindWindow('notepad', nil);

PostMessage(wnd, WM_KEYDOWN, VK_F1, 0);
     end;

procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterHotKey(Handle, 0, MOD_CONTROL , Ord('A'));
end;

end.

[Алексей++]

сначала вот тут:
wnd := FindWindow('notepad', nil);

проверял, находится ли хендл ? Может notepad.exe ?

[zubr]

1. Правила плохого тона в качестве уникального индентификатора использовать 0:
вместо

Код:

RegisterHotKey(Handle, 0, MOD_CONTROL , Ord('A'));

надо создать уникальный индентификатор типа:

Код:

id_HotKeyRun:=GlobalAddAtom('D0273960-97C4-42F0-9C7B-51DF618682F2');
RegisterHotKey(Handle, id_HotKeyRun, MOD_CONTROL , Ord('A'));

соответственно
UnRegisterHotKey(Handle, id_HotKeyRun);

2.

Код:

SendMessage(wnd, WM_KEYDOWN, VK_F1, 0);
SendMessage(wnd, WM_KEYUP, VK_F1, 0);

Ну и поставь в дебаге точки останова на WM_HOTKEY, заходит ли туда при нажатии "A", определяется ли хендл окна?

[BiT]

У меня проблема в отправки клавиш F1 не посылается, а Enter Tap  пробел посылает без проблем.

[McZim]

BiT, что то как-то не ясно, что вы понимаете послать F1 это же функционально нагруженная клавиша, может вы хотите просто в блокноте видеть напечатаное "F1"? или как?

[BiT]

Я хочу, что при отправки F1 открылась справка в блокноте.

[Алексей++]

отправь блокноту сообщение WM_HELP

[Алексей++]

в общем, spy++ показывает после нажатия F1 такую картину )

[BiT]

Да я просто привожу пример на блокноте я пишу совсем другую программу. Где По нажатию горячих клавиш передавалась клавиша F1 В заданое приложение.

[Алексей++]

tесли программа своя, зачем какие то клавиши туда передавать ? ) Это требуется только для чужих программ - так как их уже не поменять

[BiT]

Может, у кого есть, похожий исходник скиньте, пожалуйста (тока без dll)
Спасибо.

[zubr]

BiT, тогда сделай так:

Код:

wnd := FindWindow('notepad', nil);
 SetForegroundWindow(wnd);
 keybd_event(VK_F1, 0, KEYEVENTF_EXTENDEDKEY or 0, 0);
 keybd_event(VK_F1, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);

Будет работать сто пудов.

[BiT]

Самое интересное, что так работает

procedure TForm1.Button1Click(Sender: TObject);
    var
   wnd: HWND;
   begin
wnd := FindWindow('notepad', nil);
 SetForegroundWindow(wnd);
 keybd_event(VK_F1, 0, KEYEVENTF_EXTENDEDKEY or 0, 0);
 keybd_event(VK_F1, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);

end;

end.



А так нет)

procedure TForm1.WMHotKey(var Msg: TWMHotKey);
           var
   wnd: HWND;
    begin
inherited;
wnd := FindWindow('notepad', nil);
 SetForegroundWindow(wnd);
 keybd_event(VK_F1, 0, KEYEVENTF_EXTENDEDKEY or 0, 0);
 keybd_event(VK_F1, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);

     end;

[Feodora]

BiT, для того, чтобы отрабатывали "горячие клавиши", их надо сначала зарегестрировать. да и инхеритед в обработчике виндового сообщения особо смысла не несёт - у него нет предка, как такового, он встраивается в очередь, и будет или не будет выполняться предыдущий / последующий message - будет зависеть только от Msg.Result соответствующего месэджа. формально - второй пример очень правильно делает, что не работает. если б он работал - винда бы просто зависла при нажатии любой кнопки.

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

[Basurman]

Самое интересное, что так работает

procedure TForm1.Button1Click(Sender: TObject);
    var
   wnd: HWND;
   begin
wnd := FindWindow('notepad', nil);
 SetForegroundWindow(wnd);
 keybd_event(VK_F1, 0, KEYEVENTF_EXTENDEDKEY or 0, 0);
 keybd_event(VK_F1, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);

end;

end.



А так нет)

procedure TForm1.WMHotKey(var Msg: TWMHotKey);
           var
   wnd: HWND;
    begin
inherited;
wnd := FindWindow('notepad', nil);
 SetForegroundWindow(wnd);
 keybd_event(VK_F1, 0, KEYEVENTF_EXTENDEDKEY or 0, 0);
 keybd_event(VK_F1, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);

     end;

Во втором варианте, после вызова унаследованного метода происходит очистка полей сообщения (по крайней мере некоторых).
Это последствия реализации компонентов Delphi.
Надо выполнять пользовательскую обработку, и только затем вызывать унаследованные методы.

[zubr]

Feodora, согласен inherited здесь ни к чему, но проблема не в инхеритед.

Проблема в том, что  не активное окно приложения  не может вызвать SetForegroundWindow:

Windows 2000/XP: No menus are active.

With this change, an application cannot force a window to the foreground while the user is working with another window. Instead, Foreground and Background Windows will activate the window (see SetActiveWindow) and call the function to notify the user. However, on Microsoft Windows 98 and Windows Millennium Edition (Windows Me), if a nonforeground thread calls SetForegroundWindow and passes the handle of a window that was not created by the calling thread, the window is not flashed on the taskbar.

MSDN

поэтому вот лекарство:

Код:

procedure TForm1.WMHotKey(var Msg: TWMHotKey);
var
   wnd: HWND;
begin
 wnd := FindWindow('notepad', nil);
 SetActiveWindow(Handle);//делаем свое окно активным
 SetForegroundWindow(wnd);
 keybd_event(VK_F1, 0, KEYEVENTF_EXTENDEDKEY or 0, 0);
 keybd_event(VK_F1, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
end;

[BiT]

Окно становиться активным но не че не происходит!

[BiT]

Окно становиться активным но не че не происходит!

Код:

procedure TForm1.WMHotKey(var Msg: TWMHotKey);
var
   wnd: HWND;
begin
 wnd := FindWindow('notepad', nil);
 SetActiveWindow(Handle);//делаем свое окно активным
 SetForegroundWindow(wnd);
 keybd_event(VK_F1, 0, KEYEVENTF_EXTENDEDKEY or 0, 0);
 keybd_event(VK_F1, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
end;

И в этом случае становиться активным но тоже не че не происходит.

Код:

procedure TForm1.WMHotKey(var Msg: TWMHotKey);
           var
   wnd: HWND;
    begin
inherited;
wnd := FindWindow('notepad', nil);
 SetForegroundWindow(wnd);
 keybd_event(VK_F1, 0, KEYEVENTF_EXTENDEDKEY or 0, 0);
 keybd_event(VK_F1, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);

     end;

Я незнаю как это делать еще)  (Поставьте брэйкпойнт на неё, потом расскажете)



Осталась только на вас надежда Поиск не рулит книги купил начиная от 400 и кончая 700р тоже не рулят про один винамп пишут.  деньги тока зря потратил(