program dprUpdate;
uses
Forms,
Graphics {TIcon},
Windows {LoadIcon},
UntMain in 'UntMain.pas' {FrmMainIDE},
Functions in 'Functions.pas' {Functions, not form};
{$R *.res}
{$R resUpdate.RES}
var
icoAppMain: TIcon;
const
AppTitle = 'CnPack Form List Test';
begin
Application.Initialize;
Application.Title := 'CnPack Form List Test';
try
icoAppMain := TIcon.Create;
icoAppMain.Handle := LoadIcon(HInstance,'ICON_MAIN');
Application.Icon := icoAppMain;
except
MessageBox(0, PChar('错误:为应用程序分配图标时发生异常! '),
PChar(AppTitle), MB_OK + MB_ICONSTOP);
end;
try
Application.CreateForm(TFrmMainIDE, FrmMainIDE);
except
MessageBox(0, PChar('错误:创建应用程序主窗体时发生异常! '),
PChar(AppTitle), MB_OK + MB_ICONSTOP);
end;
Application.Run;
end.
|