送100‘

Question

请问如何让程序运行时不可见（不用控制台）？谢谢！

Answer 1

如果不是在进程管理器里面隐藏，那么看你想干什么了。1。showwindow(application.handle,sw_hide);2。别用任何form，就在主线程里面循环监测消息队列。一个*.dpr文件足够写一个这样的程序。uses
windows,messages,sysutils;var
msg:tmsg;
begin
  while getmessage(msg,0,0,0) do
  begin
    case msg.message of
    //这里你可以监测接受的消息，便于和其他进程通信。
    else
    begin
      translatemessage(msg);
      dispatchmessage(msg);
    end;
    end;
  end;end;

Answer 2

要这样写：
showwindow(form1.handle,sw_hide);
showwindow(application.handle,sw_hide);两句都不能少了。或者：
在工程文件中加入：
Application.ShowMainForm := false; 

Answer 3

同意楼上，就是在工程文件里写你的代码。uses里引用相关单元
program Project1;uses
  Forms,windows,Dialogs,
  Unit1 in 'Unit1.pas' {Form1};{$R *.res}begin
  Application.Initialize;
  showmessage('1111');
  Application.Run;
end.

Answer 4

在工程文件中加入：
Application.ShowMainForm := false; 或者
showwindow(form1.handle,sw_hide);//隐藏窗体showwindow(application.handle,sw_hide);//隐藏工程

Answer 5

还有...
Form.Create中写:
Setwindowlong(Application.handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
WindowState:=wsMinimized;

Answer 6

application.title:='' ;    : P

Answer 7

application.ShowMainForm:=false ;