求高手帮帮妹子 ( 积分: 100 )

  • 主题发起人 主题发起人 grace_chen
  • 开始时间 开始时间
G

grace_chen

Unregistered / Unconfirmed
GUEST, unregistred user!
[red]怎么样创建一个没有窗体的应用程序,如何调用它?[/red]
 
[red]怎么样创建一个没有窗体的应用程序,如何调用它?[/red]
 
delphi吗
新建一工程,不包含任何窗体,在工程源文件里写代码即可。
用winexec可调用
 
[red]可是工程在创建时窗体就自动产生了,怎么样只创建工程而不创建窗体呢?[/red]
 
//方法一:
program Project1;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Dialogs;

{$R *.RES}

begin
Application.Initialize;
// Application.CreateForm(TForm1, Form1);
ShowMessage('不要窗体!');
Application.Run;
end.

//方法二:创建CONSOLE Application
program Project1;
{$APPTYPE CONSOLE}
uses SysUtils;

begin
// Insert user code here
end.
 
program Mazi;

uses Windows;

begin
MessageBox(0, '冒充MM,该当何罪!!', '打屁屁', 0);
end.
 
建一DLL,然后调用就可以了
 
不想要窗体还是不想看到窗体?
不想看到很简单,self.hide;就可以,不想要窗体,ak_2005的方法就可以,但你知道如何打开工程文件吗?project->viewsource,好像是吧。
菜鸟还要菜鸟帮忙,可可。
 
File --> New --> Other --> Conlse Application

然后把{$APPTYPE CONSOLE}去掉..
 
1,新建一工程
2,用“remove file from project”的按钮把unit1去掉
3,在project unit中写你要的代码,例如:
program Project1;
uses
Forms, dialogs;//自己添加
{$R *.res}
begin
Application.Initialize;
showmessage('ok');
Application.Run;
end.

4,请给分
 
用unit不就可以啊
 
再麻烦一下各位高手,我想把代码放一个function中,只在program中调用这个function,这个function应该放在哪里呢?如何调用?
 
新建一个Unit,把函数写在里面,然后工程文件引用这个Unit就行了。
 
可以直接在program下面写函数代码,然后去掉Application.CreateForm(TForm1, Form1);
或创建后Free掉Form,结束程序用Application.Terminate;。
 
看来还是MM的人气旺!!!
 
我也要当妹子!呵呵
 
后退
顶部