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

Уважаемые Гуру!
Мне потребовалось решение задачи, обозначенной в заголовке. Нашёл очень подходящий код в интернете 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;

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

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

Вы предлагаете мне написать новую программу, вместо того, чтобы устранить баг в уже работающей? Я ещё не настолько силён в программировании.

[Alegun]

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

Вы предлагаете мне написать новую программу, вместо того, чтобы устранить баг в уже работающей?..

Это не баг, а системная функция Для устранения данного нежелательного эффекта можно компонент на форму не кидать, а создавать его во время выполнения кода:

Код:

...
var
SendKeys1: TSendKeys;
begin

SendKeys1:= TSendKeys.Create(SendKeys1);

try

with SendKeys1 do
begin
GetWindowHandle('Блокнот');
if WindowHandle <> 0 then SendKeys('Это проверка');

...  // Здесь ещё что-то делаем с компонентом

end;

...

finally
SendKeys1.Destroy; // или .Free, смотря что там у него есть
end;

end;

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

Обнулил Htemp первой строкой в функции GetWindowHandle, и всё стало работать правильно. Всем спасибо за участие.

Код:

procedure TSendKeys.GetWindowHandle(Text: string);
begin
  Htemp:=0;
  temps := Text;
  ChildText := fChildText;
  ChildWindow := fChild;
  EnumWindows(@PRVSendKeys, L);
  fHandle := HTemp;
end;

Ещё один детский вопрос. Как разбить файл программы (у меня Unit1) на несколько файлов, чтобы легче было редактировать?

[Alegun]

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

...Ещё один детский вопрос. Как разбить файл программы (у меня Unit1) на несколько файлов, чтобы легче было редактировать?

Пока УКи модераторы не видят (как ни как нарушение правил форума: одна тема - один поток :-), шепотом можно сказать - создаётся новый юнит (напр. unit2, посредством выбора в меню File -> New -> Unit) появится такая заготовка:

Код:

unit Unit2;

interface

implementation

end.

где после секции interface идёт uses, куда прописываются все нужные модули (вариант - сюда же или после секции implementation подключаем и напр. Unit1, если к нему будет обращение из нового юнита). После uses идут глобальные переменные посредством var, заголовки процедур и функций из нового модуля, так они будут видны из первого, при условии подключения в нём оного (так же "пропиской" в uses unit1). Сам код процедур идёт после секции implementation:

Код:

unit Unit2;

interface
uses
  Windows, Messages, SysUtils, Variants, Classes; // , Unit1; - Можно так

 function Some1(ds: string): string;
 procedure Some2(ds: string);

var
  i : Integer;
  str : string;

implementation
uses 
 Unit1; // Мона и так

function Some1(ds: string): string;
begin
str:= ds;
Result:= str;
end;
 
procedure Some2(ds: string);
begin
i:= 50;

// Обращение к форме из первого юнита:
Form1.Caption:= ds + ' ' + IntToStr(i); 
end;

end.

Приблизительно что-то типа этого. В сетке полно инфы на эту тему.

[angvelem]

Срочно встань в угол.