(中行雷威2019.12.5)
(同一个世界,同一个梦想,交流学习C++Builder and Delphi XE10,传承c++builder and Delphi的魅力!欢迎各地朋友加入我的QQ群484979943、299497712,860634510,进群密码“BCB”,同时也请将该群号广为宣传,希望能够广集各方高手,共同进步。如需下载开发工具及源代码请加入我的QQ群。)
【阅读倡议】
1、有问题请留言;
2、没问题请点赞;
3、看连载请加群;
4、下源码请加群;
【开发工具】
1、C++Builder and Delphi 10.3.3
2、FMSoft_uniGUI_Complete_Professional_1.70.0.1514(正版)
本人主笔的国内第一本uniGUI教学案例代码已诞生,分为cbuilder和delphi两个版本,买代码送手册,需要的朋友可以加入我的QQ技术交流群484979943、299497712,860634510给我(群主)留言。资料简介:
https://www.meipian.cn/20b86ayo?share_from=others&user_id=64168117&uuid=a8a75af8c0cc31e6a21b8a79a2b07398&share_depth=1&first_share_uid=64168117&utm_medium=meipian_android&share_user_mpuuid=94b70e99e8b6986c71b270a9883befb2
开发项目时需要频繁执行编译和运行,但是每次编译前都得先手动停止已经运行的程序,然后重新打开浏览器输入测试地址,十分麻烦,为了提高效率最好能够执行编译时自动停止原来的程序,然后自动运行程序,设置如下:
- 自动停止
操作Project->Options菜单,在Building->BuildEvents->Pre-build events->Commands中添加命令配置,让项目在编译前执行一个命令,杀掉已有进程,命令配置如下:
taskkill /f /im $(OUTPUTFILENAME) 2>1 ||exit /B 0
- 自动启动
在项目的主文件HelloWorld.dpr里添加几行代码,引用几个头文件,并且调用shellExecute打开浏览器访问项目的URL地址,如下所示:
program HelloWorld;
uses
windows,
ShellAPI,
SysUtils,
Forms,
ServerModule in 'ServerModule.pas' {UniServerModule: TUniGUIServerModule},
MainModule in 'MainModule.pas' {UniMainModule: TUniGUIMainModule},
Main in 'Main.pas' {MainForm: TUniForm};
{$R *.res}
begin
ReportMemoryLeaksOnShutdown := True;
Application.Initialize;
TUniServerModule.Create(Application);
if extractFileExt(GetModuleName(Hinstance))='.exe' then
shellExecute(Application.Handle,
PChar('Open'),
PChar('Http://127.0.0.1:8077'),
Nil,Nil,SW_Show);
Application.Run;
end.