Delphi - 隐藏控制台窗口

时间:2012-10-24 19:50:14

标签: delphi

  

可能重复:
  Profiler and Memory Analysis Tools for Delphi
  How do I hide the console window?

我将此重新发布以使其更清晰。所以,这是我的控制台应用程序:

enter image description here

这会打开一个127.0.0.1:81的套接字,当控制台应用程序可见时它工作正常,现在如何让它作为控制台正常工作,但让控制台不可见?

我正在使用Delphi 2007(7)。

感谢。

1 个答案:

答案 0 :(得分:8)

您可以使用ShowWindowGetConsoleWindow 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.