1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

library vclxchg;

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls;

function RMGetStatusBarContent(control: TStatusBar; part1, part2, part3: PShortString; bufflen: Integer): Boolean; stdcall;

begin
  RMGetStatusBarContent := false;
  if control = nil then Exit;
  if control.Panels.Count < 3 then Exit;
  part1^ := copy(control.Panels.Items[0].Text, 0, bufflen);
  part2^ := copy(control.Panels.Items[1].Text, 0, bufflen);
  part3^ := copy(control.Panels.Items[2].Text, 0, bufflen);
  RMGetStatusBarContent := true;
end;

exports

  RMGetStatusBarContent;

{$R *.RES}

begin
end.					

1:
2:
3:

Var sb = VCLXChg.GetWinControl(awf.hWnd) ' in afw.hWnd steckt das Window Handle der Status Bar
Dim As ZString * 255 p1, p2, p3
VCLXChg.RMGetStatusBarContent(sb, @p1, @p2, @p3, 255)					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

Namespace VCLXChg
  Dim Shared Handle As Any Ptr
  
  Dim Shared RMGetStatusBarContent As Function StdCall (control As TStatusBar Ptr, part1 As ZString Ptr, part2 As ZString Ptr, part3 As ZString Ptr, bufflen As Integer) As Boolean
  
  Function Load() As Boolean
    Handle = LoadLibrary(*CPtr(ZString Ptr, @XChg.LoaderPath(0)) & "\vclxchg.dll")
    If Handle = NULL Then Return FALSE
    RMGetStatusBarContent = GetProcAddress(Handle, "RMGetStatusBarContent")
    If RMGetStatusBarContent = NULL Then Return FALSE
    Return TRUE
  End Function
  
  Function UnLoad() As Boolean
    Return FreeLibrary(Handle)
  End Function
  
  Private Function PropEnumProcEx1(hwnd As HWND, lpszString As LPTSTR, hData As Integer, dwData As ULONG_PTR) As BOOL
    If Left(*lpszString, 10) = "ControlOfs" Then
      *CPtr(Any Ptr Ptr, dwData) = hData
      Return FALSE 
    EndIf
    Return TRUE
  End Function
  
  Function GetWinControl(hWnd As HWND) As TWinControl Ptr
    Dim ret As TWinControl Ptr
    EnumPropsEx(hWnd, @PropEnumProcEx1, @ret)
    Return ret
  End Function
End Namespace					

1:

StrPCopy(ZielPChar, Quellstring);