Как поменять заголовок консольного окна?

[Плутон]

Как поменять заголовок консольного окна в программе на FreePascal?

[Maxizar]

Если для Windows, то так:

Код: Выделить всё

program Project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes, SysUtils, CustApp, windows
  { you can add units after this };

type

  { TMyApplication }

  TMyApplication = class(TCustomApplication)
  protected
    procedure DoRun; override;
  public
  end;

{ TMyApplication }

procedure TMyApplication.DoRun;
var
  ErrorMsg: String;
begin

  { add your program here }
   readln;
   SetConsoleTitle(PChar('Console Title'));
   readln;
  // stop program loop
  Terminate;
end;

var
  Application: TMyApplication;

{$R *.res}

begin
  Application:=TMyApplication.Create(nil);
  Application.Title:='My Application';
  Application.Run;
  Application.Free;
end.



[Плутон]

Спасибо!