怎样在DELPHI中创建一个无窗体的可执行程序(EXE)? (100分)

  • 主题发起人 主题发起人 lijun2002
  • 开始时间 开始时间
L

lijun2002

Unregistered / Unconfirmed
GUEST, unregistred user!
怎样在DELPHI中创建一个无窗体的可执行程序(EXE)?
 
简单取巧的方法:
Application.ShowMainForm := False;
 
Project菜单->Remove From Project,把所有的窗体文件都移走,全部代码都写在.dpr文件
里,不要引用Forms,Classes等大单元,就可以写出体积很小的无窗体程序。
我曾试过用Windows API编写一个窗体程序,编译后程序体积只有10几K。
 
New->Console Application
 
console appliacation的模板,可以使用这个模板建立一个控制台程序
//转贴
1. 在Delphi的“文件”菜单上选“New Application”。
2. 按Ctrl_F12,选Project1。
3. 在Delphi的菜单“Project”的下面选“Remove From Project”,选择Form1,按
“OK”按钮。
4. 在Project1.DPR中,把Uses Forms改为Uses Windows。
5. 如果程序不不要图标,把{$R *.RES}也删除。
6. 把 Application.Initialize;
和 Application.Run;删除。
7. 可以编写你的具体程序了,下面给你一个例子:
program Project1;
uses
Windows;
begin
MessageBox(
GetActiveWindow(),
PChar('大家好!这是一个不足16K的程序!哈哈哈!!!'),
PChar('提示信息'),
MB_OK);
end.
 
多人接受答案了。
 
后退
顶部