注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

BCB-DG's Blog

...

 
 
 

日志

 
 

Delphi 启动流程  

2009-02-08 17:14:43|  分类: Delphi |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

Night 发表于 2004-05-31 10:03:34

Project.DPR
InitExe
   InitiateModule
   StartExec
       SetExceptionHandler
       InitUnits
           sysInit
               System
                   FPUMaskInit
                   FPUInit
                   系统相关GetVersion....
               Types
               Windows
               Messages
               ActiveX
               SysConst
               SysUtils
               VarUtils
               Variants
               RtlConsts
               TypInfo
               Classes
               Graphics...
               StdCtrls...
               Dialogs....
               Controls...
               Forms
TApplication.Iniatiate
TApplication.CreateForm
TApplication.Run


[SysUtils]
 InitExceptions;

[Variants]
 InitializeCriticalSection(LVarTypeSync);

[classes]
 InitThreadSynchronization;
 AddModuleUnloadProc(ModuleUnload);
 GlobalNameSpace := TMultiReadExclusiveWriteSynchronizer.Create;
 RegGroups := TRegGroups.Create;
 IntConstList := TThreadList.Create;
 GlobalFixupList := TThreadList.Create;

[grapics.pas]
 InitScreenLogPixels;
 InitializeCriticalSection(BitmapImageLock);
 InitializeCriticalSection(CounterLock);
 StockPen := GetStockObject(BLACK_PEN);
 StockBrush := GetStockObject(HOLLOW_BRUSH);
 StockFont := GetStockObject(SYSTEM_FONT);
 StockIcon := LoadIcon(0, IDI_APPLICATION);
 InitDefFontData;
 FontManager := TResourceManager.Create(SizeOf(TFontData));
 PenManager := TResourceManager.Create(SizeOf(TPenData));
 BrushManager := TResourceManager.Create(SizeOf(TBrushData));
 PatternManager := TPatternManager.Create;
 BitmapCanvasList := TThreadList.Create;
 CanvasList := TThreadList.Create;
 RegisterIntegerConsts(TypeInfo(TColor), IdentToColor, ColorToIdent);
 RegisterIntegerConsts(TypeInfo(TFontCharset), IdentToCharset, CharsetToIdent);

[Controls.pas]
 NewStyleControls := Lo(GetVersion) >= 4;
 InitControls;
 Mouse.create
 Screen.create
 Application.create
 StartClassGroup(TControl);
 ActivateClassGroup(TControl);
 GroupDescendentsWith(TCustomImageList, TControl);
 GroupDescendentsWith(TContainedAction, TControl);
 GroupDescendentsWith(TCustomActionList, TControl);

[Forms]
 InitProcs;
 RM_TaskBarCreated := RegisterWindowMessage('TaskbarCreated');
 Classes.RegisterFindGlobalComponentProc(FindGlobalComponent);

[Dialogs.pas]
 InitGlobals;
 StartClassGroup(TControl);
 ActivateClassGroup(TControl);
 GroupDescendentsWith(TCommonDialog, TControl);

[Project]
Application.Initiate
Application.CreateForm
Application.Run

  评论这张
 
阅读(1166)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017