VPF::Получение текста StatusBar - Форум программистов

Keeper89

Дата 17.1.2010, 16:26 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 14
Всего: 58

Доброго времени суток.

Для получения текста из строки состояния использую следующий способ:

Код


  function GetStatusBarText(hStatusBarHandle: HWND; PanelNumber: Integer): string;
  var
    h, pid, q: DWORD;
    p: Pointer;
    Len: Integer;
    buf: array[Byte] of Char;
  begin
    Result := EmptyStr;

    GetWindowThreadProcessId(hStatusBarHandle, pid);
    h := OpenProcess(PROCESS_ALL_ACCESS, False, pid);
    try
      Len := LOWORD(SendMessage(hStatusBarHandle, SB_GETTEXTLENGTH, PanelNumber, 0));
      if Len > 0 then
      begin
        p := VirtualAllocEx(h, nil, (Len + 1) * SizeOf(Char), MEM_COMMIT, PAGE_READWRITE);
        try
          SendMessage(hStatusBarHandle, SB_GETTEXT, PanelNumber, Longint(p));
          ReadProcessMemory(h, p, @buf, (Len + 1) * SizeOf(Char), q);
          Result := StrPas(buf);
        finally
          VirtualFreeEx(h, p, (Len + 1) * SizeOf(Char), MEM_DECOMMIT);
        end;
      end;
    finally
      CloseHandle(h);
    end;
  end;

Есть ли возможность его оптимизировать?

Это сообщение отредактировал(а) Keeper89 - 17.1.2010, 16:27

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Rrader

Дата 17.1.2010, 19:16 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 29
Всего: 191

Альтернатива:

Код


uses OleAcc, ActiveX;
...
function GetStatusBarText(StatusBarHandle: HWND; PanelNumber: UINT): String;
var
  AccObj: IAccessible;
  AName: WideString;
  AccChild: OleVariant;
begin
  if AccessibleObjectFromWindow(StatusBarHandle, OBJID_CLIENT,
    IID_IAccessible, AccObj) = S_OK then
    if AccObj.accNavigate(NAVDIR_FIRSTCHILD, CHILDID_SELF, AccChild) = S_OK then
    while PanelNumber > 0 do
    begin
      AccObj.accNavigate(NAVDIR_NEXT, TVariantArg(AccChild).lVal, AccChild);
      Dec(PanelNumber);
    end;
    if AccObj.Get_accName(AccChild, AName) = S_OK then
      Result := AName;
end;

--------------------

Let's do this quickly!
Rest in peace, Vit!

Keeper89

Дата 18.1.2010, 18:43 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 14
Всего: 58

Какой лучше? smile

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Rrader

Дата 18.1.2010, 18:53 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 29
Всего: 191

Мой вариант, думаю, намного лучше уже тем, что не требуется открывать объект ядра. smile

--------------------

Let's do this quickly!
Rest in peace, Vit!

Keeper89

Дата 18.1.2010, 19:06 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 14
Всего: 58

ОК, спасибо ;)

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »