[HomerSSS]

Всем привет.

Помощь нужна… Вопрос такой – есть программка, RADIO CHECKER PRO называется. Вот выдержка из её хелпа:

Внешнее управление программой

Программа имеет интерфейс для общения с другими программами с использованием функций
Windows API.

Для работы с RADIO CHECKER PRO нужно запустить его и найти его окно в системе.

Для этого определяем метку окна программы (Window Handle) с помощью функции.

Код:

function GetCheckerHandle: Integer;
begin
  Result := FindWindow('TRadioChecker', nil);
end;

// Запомним Handle
CheckerHandle := GetCheckerHandle;

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

Код:

function SendWindowClassName(ClassName: string): Integer;
var
  Struct: COPYDATASTRUCT;
  pch: array[0..255] of Char;
begin
  Struct.dwData := 1000;
  Struct.lpData := StrPCopy(pch, ClassName);
  Struct.cbData := StrLen(Struct.lpData) + 1;
  SendMessage(CheckerHandle, WM_COPYDATA, 0, LPARAM(@Struct));
end;

Admin: Учимся пользоваться тегами!