[Григорий Т.]

Уважаемые Гуру!
Мне потребовалось решение задачи, обозначенной в заголовке. Нашёл очень подходящий код в интернете http://delphiworld.narod.ru/base/send_keys_comp.html . Всё, что там описано, работает, но есть одна проблема. Мне нужно посылать коды одному из двух, открытых в данный момент приложений. А этот unit какой-то одноразовый. Если искомое окно ещё не открыто, он это видит. Если искомое окно открыть, он это тоже видит. На этом параметр SendKeys1.WindowHandle защёлкивается, и всё! Если искомое окно закрыть, то оно всё равно распознаётся как открытое.
Моих мозгов пока не хватает на устранение этого (для меня) недостатка. Буду благодарен за любую подсказку. Или, может есть более простые решения?

[lmikle]

Искать окно перед каждым посылом. Т.е.

Код:

Obj.GetWindowHadle(...);
Obj.SendKeys(...);

[Григорий Т.]

Разумеется, я так и делаю. Но как только unit хоть раз находит одно из нужных мне приложений, то дальше он считает все приложения активными, даже если их уже закрыли. Т.е. повторный поиск любого приложения даёт положительный результат теста параметра SendKeys1.WindowHandle.

[Alegun]

keybd_event используемая в основе приведенного компонента давно устарела, лучше использовать более современную (поддерживающую юникод) функцию SendInput, она может посылать коды клавиш любому приложению в системе, окну у которого в данный момент находится фокус, возможно вместо компонента SendKeys проще использовать такое:

Код:

procedure snd(ds: string);
var
i: integer;
b: array [0..1] of TInput;
begin
for i:= 1 to length(ds) do
begin
 FillChar(b, SizeOf(b), 0);
 b[0].Itype:= INPUT_KEYBOARD;
 b[0].ki.wScan:= Word(ds[i]);
 b[0].ki.dwFlags:= 4 or 2;
 SendInput(Length(b), b[0], SizeOf(TInput));
 end;
 end;

Поиск адресата для посылок производится стандартным, вышеприведённым способом.

[Григорий Т.]

Прелесть модуля в том, что там организован поиск окна по неполному названию, что очень важно м моём случае. Единственная проблема - WindowHandle. Насколько хватает моих мозгов, это свойство, при его чтении, принимает значение fhandle, которое в свою очередь приравнивается к HTemp. А этот HTemp нигде не обнуляется, а только приравнивается к значению хендла, если он определён. В случае ошибки, HTemp не меняется, а должен обнулится. Вот только в каком месте программы? Его используют две функции, недоступные для моего понимания

[Alegun]

Сообщение от Григорий Т.

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

А что мешает делать тоже самое, например, вот так:

Код:

function Find(s: string): hWnd;
var 
Wnd: hWnd;
buff: array[0..127] of Char;
begin
Find:= 0;
Wnd:= GetWindow(Handle, gw_HWndFirst);
while Wnd <> 0 do
   begin
     if (Wnd <> Application.Handle) and IsWindowVisible(Wnd) and
        (GetWindow(Wnd, gw_Owner) = 0) and
        (GetWindowText(Wnd, buff, sizeof(buff)) <> 0) then
       begin
         GetWindowText(Wnd, buff, sizeof(buff));
         if pos(s, StrPas(buff)) > 0 then
           begin
             Find:= Wnd;
             Break;
           end;
       end;
     Wnd := GetWindow(Wnd, gw_hWndNext);
   end;
end;

Прелесть "не модуля" в том, что с исходниками не нужен юнит компонента.