取系统当前活动窗口标题

var
  h: HWND;
  p: array[0..254] of Char;
begin
  if h <> GetForegroundWindow then  //避免循环查取同一个窗口句柄标题
  begin
    h := GetForegroundWindow;
    GetWindowText(h, p, 255);
    if (p <> '')
      and (P <> Self.Caption)
      and (p <> 'Program Manager')
      then lst1.Items.Add(p);
  end;
end;