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.