5

重複の可能性:
Delphi 用のプロファイラおよびメモリ分析ツール
コンソール ウィンドウを非表示にするにはどうすればよいですか?

より明確にするために、これを再投稿しています。だから、ここに私のコンソールアプリケーションがあります:

ここに画像の説明を入力

これにより、127.0.0.1:81 へのソケットが開きます。コンソール アプリケーションが表示されている場合、正常に動作します。コンソールとして正常に動作し続け、コンソールを非表示にするにはどうすればよいですか?

Delphi 2007 (7) を使用しています。

ありがとう。

4

1 に答える 1

8

ShowWindowおよびGetConsoleWindowWinAPI 関数を使用できます。

このサンプルを試す

{$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.
于 2012-10-24T20:01:31.750 に答える