Pascal 如何在fpc程序(crt库)中恢复终端的默认特性?

Pascal 如何在fpc程序(crt库)中恢复终端的默认特性?,pascal,freepascal,Pascal,Freepascal,默认的终端特征(在LinuxMint上)是:黑色背景和灰色字体。在使用TextColor(红色)和TextBackground(白色)启动fpc程序并退出程序后,终端仍然具有红色字体和白色背景。 目标是找到一个解决方案,恢复终端的默认特征(黑色背景和灰色字体)。 感谢您的关注。最简单的解决方案是通过编程将文本背景和文本颜色设置回黑色/灰色,在结束之前使用TextColor和textcondground。解决方案不是很好,但是很有效(从这里开始:)。 您应该将代码粘贴到程序中的相关位置: uses

默认的终端特征(在LinuxMint上)是:黑色背景和灰色字体。在使用TextColor(红色)和TextBackground(白色)启动fpc程序并退出程序后,终端仍然具有红色字体和白色背景。 目标是找到一个解决方案,恢复终端的默认特征(黑色背景和灰色字体)。
感谢您的关注。

最简单的解决方案是通过编程将文本背景和文本颜色设置回黑色/灰色,在
结束之前使用
TextColor
textcondground

解决方案不是很好,但是很有效(从这里开始:)。 您应该将代码粘贴到程序中的相关位置:

uses
    process;
var
    reset_process: TProcess;
begin
    reset_process := TProcess.Create(nil);
    reset_process.Executable := 'reset';
    reset_process.Options := reset_process.Options + [poWaitOnExit];
    reset_process.Execute;
    reset_process.Free
end.

你是对的,但我想找到一个考虑到用户终端设置的解决方案(例如,TextColor将是红色或黑色,TextBackground将是蓝色或绿色)。