[AntonVermin]

Добрый день!
Мне необходимо определить положение трубки USB телефона SkypeMate P4K. Скачал с официального сайта OCX компонент, подключил в Delphi, положил на форму, обращаюсь к нему:

Код:

var
  Form1: TForm1;
  b: boolean;
  s: string;

procedure TForm1.Button1Click(Sender: TObject);
begin
b:=usbphone1.AllOpenPhone(0); //инициализирую телефон
s:=usbphone1.AllGetPhoneSerialNumber; //получаю серийный номер

usbphone1.OnEventPhoneHook(ASender: TObject; bOnHook: WordBool);// эта процедура поидее должна ворачивать положение трубки, но я не понимаю как правильно её оформить???

usbphone1.AllClosePhone;
end;

Admin: Пользуемся тегами для оформления кода!

Телефон видно что реагирует, при подключении у него изменяется надпись на экране, серийный номер считывается без проблем
Покопался в файлах которые создал OCX, нашёл такое описание:

TUSBPHONEEventPhoneHook = procedure(ASender: TObject; bOnHook: WordBool) of object;
не могу понять что же всё таки писать в скобки Помогите пожалуйста

[Aristarh Dark]

Код:

type
  TForm1 = class(TForm)
  private
    { Private declarations }
    ....
    ....
    procedure MyPhoneHook(ASender: TObject; bOnHook: WordBool);
  public
    { Public declarations }
  end;
....
....
begin
b:=usbphone1.AllOpenPhone(0); //инициализирую телефон
s:=usbphone1.AllGetPhoneSerialNumber; //получаю серийный номер

usbphone1.OnEventPhoneHook:=MyPhoneHook; //присваиваем событие процедуре

// usbphone1.AllClosePhone; сходу закрывать телефон наверно не надо, иначе собыите работать не будет
end;

procedure TForm1.MyPhoneHook(ASender: TObject; bOnHook: WordBool);
begin
  //тут обработчик события
end;

ИМХО так надо.

[AntonVermin]

Сделал как вы сказали, перестал выдавать ошибки - но почемуто не заходит в обработчик

[AntonVermin]

ВИНОВАТ!!! Всё работает - просто у меня руки кривые!!!
Спасибо тебе ГУРУ ПРОГРАММИРОВАНИЯ!!!