delphi获取通达信当前浏览股票代码

在Delphi中获取通达信当前浏览股票代码，可以使用Windows API函数来实现。

首先，我们需要找到通达信程序的窗口句柄。可以通过FindWindow函数来获取通达信主窗口的句柄，示例如下：

var
  hTdxWnd: HWND;
begin
  hTdxWnd := FindWindow(nil, '通达信主窗口标题');
end;

接下来，我们可以使用SendMessage函数来向通达信程序发送消息，获取当前浏览股票的代码。通过分析通达信程序的控件结构，我们可以知道股票代码显示控件的句柄，假设为hCodeWnd。

var
  dwCodeLen: DWORD;
  lpCodeBuffer: array[0..255] of Char;
begin
  // 获取股票代码的长度
  dwCodeLen := SendMessage(hCodeWnd, WM_GETTEXTLENGTH, 0, 0);
  // 获取股票代码
  SendMessage(hCodeWnd, WM_GETTEXT, dwCodeLen + 1, LPARAM(@lpCodeBuffer));
  // 显示股票代码
  ShowMessage(lpCodeBuffer);
end;

这样就可以获取到通达信当前浏览股票的代码，并将其显示在消息框中。确保在代码中正确填写通达信窗口的标题和股票代码显示控件的句柄。

请注意，这只是获取通达信当前浏览股票代码的一种方法，根据通达信程序的更新或版本变更，可能需要针对具体情况进行调整。