怎樣做无窗体應用程序﹖﹖﹖

Question

可以，只用API打造！
也可以设置Application.ShowMainForm:= False!
然后将所有代码写在FormCreate事件中，一种偷梁换柱的方法

Answer 1

program Sample;
//引入需要使用的单元
uses  Windows, Messages, ShellAPI, sysutils, Dialogs;
{$R *.RES}
begin
  //加入自己的代码
  MessageDlg('你好！这是一个演示程序！',mtInformation,[mbOK],0);
  {.................................}
end.

Answer 2

dext(德克斯特) 的方法比较常用，也可以解决你的问题

Answer 3

Application.ShowMainForm:= False!
這種我用過﹐程序還是比較大﹗

Answer 4

我认为可以将你的程序隐藏起来(就象木马一样),
第一,运行时不能显示窗口,这可以这样实现,并且不出现在任务栏中:
       var
         xwndlong:integer;
       begin
        xwndlong:=getwindowlong(application.handle,gwl_exstyle);
        showwindow(application.handle,sw_hide);
        setwindowlong(application.handle,gwl_exstyle,xwndlong or ws_ex_toolwindow and not ws_ex_appwindow or ws_ex_topmost);
        showwindow(application.handle,sw_show);
        form1.hide;
       end;
第二,在ctrl+alt+del的关闭程序中隐藏掉!
  function RegisterServiceProcess(dwProcessID,dwType:integer):integer;stdcall;external 'kernel32.dll';
 registerserviceprocess(getcurrentprocessid,1);  
行不?给分吧!

Answer 5

form1.hide
還是有窗體﹐我的目的是沒有窗體﹗

Answer 6

你把那些个不要的uses了的单元去掉，而且自己也不要生成窗口不就可以了吗？

Answer 7

新建一个应用程序，把Delphi自动生成的Form1删除，直接在*.dpr中编写程序，注意uses中只需包含windows，然后直接使用API函数自行创建窗体。这样编译出来的程序体积只有几十K左右。不过，如果使用这种方法开发程序，那么Delphi编程方便、快捷、高效的优势将不复存在，因此一般不建议使用。

Answer 8

我現在如下做﹕
new... 
　other... 
　　Console Application然后僅僅
uses
  Windows;然后下面編碼
begin
  { TODO -oUser -cConsole Main : Insert code here }
end.用API創建一切我要的東西以及功能﹐各位看可以嗎﹖

Answer 9

我是Dephi業余愛好者﹐請大家多多指教﹗

Answer 10

no form? easy!
program p;
uses windows,sysutil;
begin
// insert code  here
//....API/ Pascal/ MASM code
end;

Answer 11

在工程文件里加上{$APPTYPE CONSOLE},再直接打Pascal就行了.
或直接生成Console

Answer 12

NT服务器程序嘛！！很多木马都这样的啊！！！也可以是DLL服务器嘛！！