//声明:
SetWindowText(
hWnd: HWND; {窗口句柄}
lpString: PChar {新标题串指针}
): BOOL;
//举例:
var
s: string;
begin
s := '新标题';
SetWindowText(Handle, PAnsiChar(s));
end;
转载于:https://my.oschina.net/hermer/blog/320918