delphi7 获取程序自身的线程

在Delphi 7中，获取当前运行程序的线程信息，你可以通过全局变量`Self`来间接访问。`Self`实际上是指向`TThread`类型的当前线程对象，它包含了关于线程的基本属性，如线程ID、名称等。以下是一个简单的示例：

uses
  SysUtils,
  Classes;

procedure TForm1.Button1Click(Sender: TObject);
var
  ThreadInfo: TThreadInfo;
begin
  // 获取当前线程的信息
  if GetThreadInformation(GetCurrentThreadId(), TThreadBasicInformation, @ThreadInfo, SizeOf(ThreadInfo)) then
  begin
    Memo1.Lines.Add('当前线程 ID: ' + IntToStr(ThreadInfo.ThreadId));
    Memo1.Lines.Add('线程名称: ' + PChar(ThreadInfo.ThreadName)^);
    // 其他线程信息可以在此处添加...
  end
  else
  begin
    Memo1.Lines.Add('获取线程信息失败');
  end;
end;

在这个例子中，`GetCurrentThreadId()`函数返回当前线程的ID，`GetThreadInformation()`函数则用于从指定线程ID获取线程信息结构`TThreadInfo`的内容。