Delphi - 隐藏控制台窗口

Question

这个问题已经有答案了:

已关闭 10 年前。

Possible Duplicate:
Profiler and Memory Analysis Tools for Delphi
How do I hide the console window?

我重新发布此内容以使其更清楚。所以，这是我的控制台应用程序:

这将打开一个到 127.0.0.1:81 的套接字，当控制台应用程序可见时它工作正常，现在我如何保持它作为控制台正常工作但使控制台不可见？

我正在使用 Delphi 2007 (7)。

谢谢。

Answer 1

您可以使用ShowWindow和 GetConsoleWindow WinAPi 函数。

尝试这个示例

{$APPTYPE CONSOLE}

uses
  Windows,
  SysUtils;

function GetConsoleWindow: HWND; stdcall; external kernel32;


begin
  try
    Writeln('Press enter to hide console the window');
    Readln;
    //hide the console window
    ShowWindow(GetConsoleWindow, SW_HIDE);

    //do something
    Sleep(5000);

    Writeln('Press enter to exit');
    //show the console window
    ShowWindow(GetConsoleWindow, SW_SHOW);
    Readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.