디버깅용 콘솔창 띄우기

디버깅용 콘솔창 띄우기

 

728x90

 

unit Unit1;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

 

type

  TForm1 = class(TForm) procedure FormCreate(Sender: TObject);

    procedure FormDestroy(Sender: TObject);

    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

  private

    { Private declarations }

    ConHwnd: THANDLE;

  public

    { Public declarations }

    procedure ConsoleLoad();

    procedure ConsoleWriteLn(Str: string);

  end;

 

var

  Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.ConsoleLoad();

var

  Chars : DWORD;

  SBSize : _COORD;

begin

  ConHwnd := CreateConsoleScreenBuffer(GENERIC_WRITE, FILE_SHARE_WRITE, nil,     

                                                                      CONSOLE_TEXTMODE_BUFFER, nil );

  SBSize.X := 80; SBSize.Y := 1000; SetConsoleScreenBufferSize(ConHwnd, SBSize);   

  SetConsoleActiveScreenBuffer(ConHwnd);

end;

 

procedure TForm1.ConsoleWriteLn(Str: string);

var

  Chars : DWORD;

begin

  SetConsoleTextAttribute(ConHwnd , 10);

  Str := Str + #13#10;

  WriteConsole(ConHwnd, @Str[1], Length(Str), Chars, nil);

end;

 

procedure TForm1.FormCreate(Sender: TObject);

begin

  AllocConsole();

  ConsoleLoad();

end;

 

procedure TForm1.FormDestroy(Sender: TObject);

begin

  FreeConsole();

end;

 

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

var

  Str : string;

begin

  Str := 'X:' + IntToStr(X) + ' Y:' + IntToStr(Y); ConsoleWriteLn(Str);

end;

 

end.