Как получить дескриптор окна консоли

Code:

procedure TForm1.Button1Click(Sender: TObject);

var

  info : TOSVersionInfo;

  ClassName : string;

  Title : string;

begin

{Проверяем -  Win95 или NT.}

  info.dwOSVersionInfoSize := sizeof(info);

  GetVersionEx(info);

  if (info.dwPlatformId = VER_PLATFORM_WIN32_NT) then begin

    ClassName := 'ConsoleWindowClass';

    Title := 'Command Prompt';

  end else begin

    ClassName := 'tty';

    Title := 'MS-DOS Prompt';

  end;

  ShowMessage(IntToStr(FindWindow(PChar(ClassName), PChar(Title))));

end;