qip, изменение статуса программно

[DeDoK]

как програмно поменять статус сообщение qip. например на строку из Edit1

[maxvodo.dll]

есть QIP SDK - для Delphi. Не знаю, есть ли там такая функция\процедура, но покопаться стоит http://forum.qip.ru/forumdisplay.php?f=92

[DeDoK]

Нету там такого. посоветовали на asechke сделать так:
Handle := FindWindow('TPanel', nil); - ищет окошко смены x-status в QIP2005, если конечно оно сделано панелью.

SendMessage(Handle, WM_SETTEXT, 0, 'newtext');

Но толи я такой грамотей толи сове такой но ничего не вышло. окно не нашлось и текст не поменялся. до и вобще не прокомпилировало ничего
Может есть кого какие предложения?

[pu4koff]

Прочитать статус QiP 8070 можно как-то так:

var
  str: PChar;
  h: HWND;
  hPanel1: HWND;
  hPanel2: HWND;
  hEdit1: HWND;
  hEdit2: HWND;
begin
  h := FindWindow('TCusForm',nil);
  hPanel1 := FindWindowEx(h,0,'TPanel',nil);
  hPanel2 := FindWindowEx(h,hPanel1,'TPanel',nil);
  hEdit1 := FindWindowEx(hPanel2,0,'TEdit',nil);
  hEdit2 := FindWindowEx(hPanel2,hEdit1,'TEdit',nil);

  GetMem(str,100);
  SendMessage(hEdit1,WM_GETTEXT,100,Integer(PChar(str)));
  Edit1.Text := str;
  SendMessage(hEdit2,WM_GETTEXT,100,Integer(PChar(str)));
  Edit2.Text := str;
  FreeMem(str,100);

в Edit1 и Edit2 будут записаны соответственно статусы расширенные
а вот с изменением чота у меня шляпа какая-то вышла. не меняеца и всё тут

[DeDoK]

Спасибо огромное за чтение статуса=) это уже большой плюс! Я попробую через SETTEXT поменять значения статуса=) если не получиться я еще напишу

[DeDoK]

Уважаемый pu4koff вы ведь знаете, чтобы сменить статус-сообщение qip надо ввести его в тот самый hEdit1 и нажать кнопку Ок. Иначе статус не установиться.
Вот только как найти эту кнопку как то надо (хотя там больше панель чем кнопка). Я пробовал искать через FindWindowEx но помоему гдето ошибся.
Статус можно установить с помощью

SendMessage(hEdit1,WM_SETTEXT,SetText,Integer(PChar(Edit1.Text)));

а вот применить его надо кликом на панель Ok

[pu4koff]

вот так вроде работает:

  SendMessage(hEdit1,WM_SETTEXT,0,Integer(PChar(Edit1.Text)));
  SendMessage(hEdit2,WM_SETTEXT,0,Integer(PChar(Edit2.Text)));

  hOK := FindWindowEx(hPanel2,0,'TPanel','OK');
  PostMessage(hOK,WM_LBUTTONDOWN,0,0);
  PostMessage(hOK,WM_LBUTTONUP,0,0);