怎样做无窗体的程序

Question

我想不要窗体，但是我又想用api不知道要不那个单元删了？

Answer 1

方法是：点DELPHI的Project菜单->Remove From Project，把所有的窗体文件都移走，全部代码都写在.dpr文件
里，不要引用Forms,Classes等大单元，就可以写出体积很小的无窗体程序。

Answer 2

新建一个工程后，打开project manager，在其中将unit1（默认的话）删除，再保存，你的主代码就写在project.dpr文件里

Answer 3

turbo c  , 我的最爱

Answer 4

Yes!!全部代码都写在.dpr文件!!

Answer 5

http://lorndragon.126.com
里面有我写的无窗体的程序源代码

Answer 6

.dprprogram abc;
uses
  windows;
var
mystring:string;
begin
mystring:='hi';
application.init...();//删掉
application.createform(...)//删掉
application.run;//删掉
showmessage(mystring);
end.像写TP一样

Answer 7

就这样
program;
uses ...
begin
／／没有Application的
// code here
end./ by LY http://www.99898.com/www/lysoft

Answer 8

在.dqr文件中加入:
showmainform=false;
或
{$APPTYPE CONSOLE}的编译器指令
写一个控制台程序

Answer 9

在TFORM1.CREATE事件里写入如下代码：
begin
  self.hide;
end;

Answer 10

不是，是在TFORM1.ONPAINT事件里！

Answer 11

只要对 Porjet 编程，把 Form , Unit 移去。如代码为：program Project1;uses
  Forms;{$R *.RES}begin
  //代码段 -------------------------------> 加入你的代码；
  Application.MessageBox('Test','Form1',1);
end.

Answer 12

继上例子代码：
program Project1;uses
  //Forms;
  Dialogs,SysUtils;{$R *.RES}
var
  a,b,c:integer;begin
  //代码段 -------------------------------> 加入你的代码；
  //Application.MessageBox('Test','Form1',1);
  a:=1;
  b:=1;
  c:=a+b;
  showmessage('No Form Test,The C value：'+inttostr(c)+' ！');end.加入自己需要的单元，删除不必要单元！

Answer 13

用CONSOLE就行了
也可有在这用消息