Delphi – 隐藏控制台窗口

Possible Duplicate:
07000
07001

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

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

我正在使用Delphi 2007(7).

谢谢.

解决方法

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

相关文章

ffmpeg 是一套强大的开源的多媒体库 一般都是用 c/c++ 调用, 抽空研究了一下该库的最新版 ,把...
32位CPU所含有的寄存器有:4个数据寄存器(EAX、EBX、ECX和EDX)2个变址和指针寄存器(ESI和EDI) 2个指针寄...
1 mov dst, src dst是目的操作数,src是源操作数,指令实现的功能是:将源操作数送到目的操作数中,即:...
有三个API函数可以运行可执行文件WinExec、ShellExecute和CreateProcess。 1.CreateProcess因为使用复杂...
API原型: Declare Function MoveFileEx& Lib "kernel32" Alias "MoveFileExA" (By...