如何获得当前活动窗口的caption和name(100分)

如何获得当前活动窗口的caption和name

procedure TForm1.Button1Click(Sender: TObject);
var
　hCurrentWindow: HWnd;
　name,szText: array[0..254] of char;
begin
　hCurrentWindow := GetActiveWindow();
; GetWindowText(hCurrentWindow, @szText, 255);
　getclassname(hCurrentWindow,@name,255);
; Memo1.Lines.Add(StrPas(@szText));
; Memo1.Lines.Add(StrPas(@name));
end;

caption好办，就是窗口标题：
var
; buf:array[0..1024] of char;
GetWindowText(GetForegroundWindow(),buf,sizeof(buf)-1);
buf就是当前活动窗口的标题，可以是别的进程的

至于name，只有delphi程序、而且是本进程才有意义吧？
如果是指本进程的窗口，那么：
Screen.ActiveForm 和 Screen.ActiveCustomForm 可以得到

多人接受答案了。