1、选择菜单View -> Project Source。
2、在uses子句中添加Windows单元。
3、在Application.Initialize;之后添加Application.ShowMainForm := False;。
4、在Application.Run;之前添加ShowWindow(Application.Handle, SW_HIDE);。
你的主工程应该是这样的:
program Project1;
uses
Windows,
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};
{$R *.RES}
begin
Application.Initialize;
Application.ShowMainForm := False;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
ShowWindow(Application.Handle, SW_HIDE);
Application.Run;
end.
在每个单元的initialization部分(在最下面)添加:
begin
ShowWindow(Application.Handle, SW_HIDE);
end.
最后修改:2009 年 08 月 16 日
© 允许规范转载