Delphi – 隐藏控制台窗口

发布时间：2020-12-15 10:04:17 所属栏目：大数据来源：网络整理

导读：Possible Duplicate: 07000 07001 我正在重申这一点,以使其更清晰.所以,这是我的控制台应用程序：这打开了一个127.0.0.1:81的套接字,当控制台应用程序可见时它工作正常,现在我如何使它作为控制台正常工作,但使控制台不可见？我正在使用Delphi 2007(7). 谢

Possible Duplicate:
07000
07001

我正在重申这一点,以使其更清晰.所以,这是我的控制台应用程序：

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

我正在使用Delphi 2007(7).

谢谢.

解决方法

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!