|
2025整理晋升引擎全套源代码0824修复版
2025整理晋升引擎全套源代码0824修复版
2025整理晋升引擎全套源代码0824修复版
2025整理晋升引擎全套源代码0824修复版
2025整理晋升引擎全套源代码0824修复版
1、新建一个package,然后将mediaplayer 导入进去编译
2、添加路径 ..\控件\Mediaplayer
C:\M2Mir20824\控件\DelphiX2000
C:\M2Mir20824\Source\mirserver\Client
C:\M2Mir20824\控件\VCLZip.Pro.v3.05.b1.FS.D7
C:\M2Mir20824\控件\VclSkin5.40-D7-D2010\v5.40\source
C:\M2Mir20824\控件\JSocket\JSocket
C:\M2Mir20824\控件\RSA
C:\M2Mir20824\控件\ezrgnbtn
loginGate.exe需要
2编译需要的路径
C:\M2Mir20824\Source\mirserver\M2Server
C:\M2Mir20824\Source\mirserver\SDK
默认delphi option-----library-win32路径
$(BDS)\lib;$(BDSUSERDIR)\Imports;$(BDS)\Imports;$(BDS)\Lib\Indy10;$(BDSCOMMONDIR)\Dcp
全路径
$(BDS)\lib;$(BDSUSERDIR)\Imports;$(BDS)\Imports;$(BDS)\Lib\Indy10;$(BDSCOMMONDIR)\Dcp;C:\Program Files\Raize\RC5\Lib\BDS2006;C:\M2Mir20824\控件\JSocket\JSocket;C:\M2Mir20824\控件\DelphiX2000;C:\M2Mir20824\控件\RSA;C:\M2Mir20824\控件\Mediaplayer;C:\M2Mir20824\控件\VclSkin5.40-D7-D2010\v5.40\source;C:\M2Mir20824\控件\VCLZip.Pro.v3.05.b1.FS.D7;C:\M2Mir20824\控件\ezrgnbtn
- Windowclicked: Boolean;
- 窗口化
- if Windowed.Checked = true then
- begin
- Windowclicked := true;
- iMyinifile:= TIniFile.Create(ExtractFilePath(Application.EXEName) + 'dk.ini');
- Myinifile.WriteString('Setup', 'Fullscreen', '0');
- Myinifile.free;
- end;
- 全频
- if RzRadioButton1.Checked = true then
- begin
- Windowclicked := false;
- Myinifile:= TIniFile.Create(ExtractFilePath(Application.EXEName) + 'dk.ini');
- Myinifile.WriteString('Setup', 'Fullscreen', '1');
- Myinifile.free;
- end;
- 程序启动
- Windowclicked := true;
- if Windowclicked then
- inifile.WriteString('Setup', 'FullScreen', '0')
- else
- inifile.WriteString('Setup', 'FullScreen', '1');
复制代码

链接:https://pan.quark.cn/s/e5eb1afca3bd
提取码下载:
|
|