如何建进程外无窗体服务(100)

F

Fpack

Unregistered / Unconfirmed
GUEST, unregistred user!
我建了一个进程外服务器 1> new -> application 2> new -> AutoMation Object 这时候调用会有个窗体,能正常调用自动对象。然后把Application中的Form删除编译,就无法正常使用 ---------------------------Project Project4.exe raised exception class EOleSysError with message '服务器运行失败'. Process stopped. Use Step or Run to continue.---------------------------有窗体的App代码Delphi(Pascal) codebegin Application.Initialize; Application.CreateForm(TForm7, Form7); Application.Run;end.无窗体的App代码Delphi(Pascal) codebegin Application.Initialize; //Application.CreateForm(TForm7, Form7); Application.Run;end.分析后发现,在有窗体的时候,消息在窗体中循环不会退出,一旦删除这个空窗体后运行未进入消息循环直接退出宿主关闭导致无法调用。并在主窗体创建时隐藏procedure TForm7.FormCreate(Sender: TObject);begin // 窗体创建不会被刷屏 Height := 0; Width := 0; // 这样任务栏里也不显示^_^ SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);end;直接隐藏主窗体是可以,但是当调用主窗体就像幽灵一样闪现(失去焦点)。如何才能建进程外没有主窗体服务?
 
X

xianjun

Unregistered / Unconfirmed
GUEST, unregistred user!
自己写消息循环来处理消息。
 

Similar threads

S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
顶部