- 博客(74)
- 资源 (14)
- 收藏
- 关注
RSS订阅原创 内存32G
分别双击 DisablePagingExecutive 和 LargeSystemCache 这两项，将其数值由 0 修改为 1。关闭 MemoryCompression 内存压缩和 PageCombining 内存合并。管理员身份运行PowerShell。
2024-04-18 10:16:14
118
原创 delphi vcl dll texthint 不生效 EM_SETCUEBANNER
若要使用此 API，必须提供指定Comclt32.dll版本 6.0 的清单。有关清单的详细信息，请参阅。一定要打开工程选项Enable Runtime Themes。
2024-04-12 20:11:56
169
原创 ORA-12705: Cannot access NLS data files or invalid environment specified
重启电脑。
2024-03-19 19:12:12
142
原创 如何取消Win10任务窗口栏预览。任务栏图标合并后竖排排列。
Windows Registry Editor Version 5.00[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced]"ExtendedUIHoverTime"=dword:00010000[HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Taskband]"NumThumbnails"=dword:0
2023-12-06 13:33:21
411
原创 Delphi利用adoquery调用sql server存储过程 标量值函数 表值函数
/参数名不需要与sql中定义的参数名相同。{利用adostoreproc调用sqlserver标量值函数}{利用adostoreproc调用sqlserver存储过程}
2023-11-16 10:56:56
418
原创 TNS_HOME ORACLE_HOME tnsnames.ora
TNS_HOME tnsnames.ora文件所在目录。ORACLE_HOME 客户端根目录。
2023-10-31 14:33:11
55
原创 win10 版本21H2 + vs2022 + Windows 11 版本 22H2 WDK
Driver Signing - Test Certificate 下拉菜单中点击Create Test Certificate。若要使用 Visual Studio 2022 开发和测试驱动程序，请下载 Windows 11 版本 22H2 WDK。Driver Settings - General，Target OS Version改成Windows 10，Target Platform改为Desktop；C/C++ - 常规，警告等级 4，将警告视为错误 否；链接器 - 常规，警告视为错误 否；
2023-08-21 15:40:53
1478
原创 Delphi7 ODAC控件连接Oracle RAC
如果要使用ODAC控件连接Oracle RAC,则需要Oracel安装客户端，并且不使用Direct模式，ODAC 控件中的Direct模式不支持Oracle RAC,只能够链接一个确定的RAC实例。根据说明，安装Oracle客户端，安装好之后，查找tnsnames.ora文件。orsn1.Server:=服务名;链接方式与ADO连接Oracle一致。注意，DMSII前不能有空格。
2023-06-29 10:15:57
615
原创 批处理 遍历删除delphi源码文件夹下dcu等所有类型的临时文件，包括其子文件夹
echo off, *.~ddp, *.~dpr, *.~pas, *.~pa, *.~dfm, *.$$$del "%%f"
2023-06-01 20:24:33
236
原创 delphi Control ‘‘ has no parent window
delphi Control '' has no parent window
2023-03-06 16:26:18
609
原创 delphi 10 安装 BDE
首先安装BDE Installer for RAD Studio Delphi C Builder 10.2 Tokyo。选择Delphi安装目录下\Embarcadero\Studio\19.0\bin\dclbde250.bpl。再打开Component->Install Packages->Add。
2022-09-22 18:06:00
865
原创 JobsUtility does not contain definition
Entities 0.50 is compatible only with unity 2020.3 LTS0.5版本只适用于unity 2020.3 LTSEntities installation and setup | Entities | 0.50.1-preview.2
2022-05-21 13:36:42
536
原创 win10 使用 fpc 编译Pascal Bare Bones 操作系统
ftp://freepascal.dfmk.hu/pub/lazarus/releases/Pascal Bare Bones - OSDev Wikinasm -f elf32 stub.asm -o stub.ofpc -Aelf -n -O3 -Op3 -Si -Sc -Sg -Xd -CX -XXs -Rintel -Tlinux kernel.pasfpc -Aelf -n -O3 -Op3 -Si -Sc -Sg -Xd -CX -XXs -Rintel -TWin64 k
2022-02-09 11:08:43
930
原创 delphi禁止webbrowser弹出窗口或者脚本错误
webbrowser1.silent:=true; //屏蔽脚本错误procedure TForm1.WebBrowser1NewWindow2(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool);beginCancel:=True; //禁止弹出窗口end;
2021-10-26 16:18:02
340
原创 Listary中使用Everything搜索
选项 关键字 自定义关键字 ee描述 Everything参数 -search "{query}"
2021-09-26 17:17:41
1074
原创 delphi TVirtualStringTree 自绘
VirtualStringTreeDrawText(Sender: TBaseVirtualTree; TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex; const Text: string; const CellRect: TRect; var DefaultDraw: Boolean);在此事件中进行自绘，并将DefaultDraw设置未false，即可。...
2021-09-24 18:00:21
328
原创 delphi DrawText多行文本垂直居中
procedure TForm1.Button4Click(Sender: TObject);var Text: string; R, TextRct: TRect; H: Integer;begin R := rect(10, 10, 200, 100); Canvas.Rectangle(R); Text := 'Demo Line 1'#13'Demo Line 2'#13'Demo Line 3'#13'Demo Line 4'; TextRct := R; H ...
2021-09-17 16:36:52
583
原创 delphi 控件动态数组 array of TImage 的一个奇怪问题
arrTImage: array of TImage;SetLength(arrTImage, imageCount+1); //分配空间需要比实际数量加1，不然释放的时候会报内存错误，非常奇怪，这是怎么回事呢？ for I := 0 to Length(arrTImage) - 1 do begin // aComponent := Self.FindComponent('image' + inttostr(I)); if arrTImage[I] <&g...
2020-12-17 10:53:32
280
原创 delphi禁止webbrowser弹出窗口或者脚本错误
procedure TForm2.WebBrowser1ShowScriptError(ASender: TObject; const AErrorLine, AErrorCharacter, AErrorMessage, AErrorCode, AErrorUrl: OleVariant; var AOut: OleVariant; var AHandled: Boolean);begin AHandled := true;end;
2020-12-04 16:42:02
362
原创 delphi CreateNamedPipe ConnectNamedPipe GetLastError 5
delphi CreateNamedPipe ConnectNamedPipe GetLastError 5用c++连接delphi创建的命名管道时报错5解决方法：单独运行delphi编译的exe，不要用调试模式运行
2020-12-01 16:52:05
441
原创 delphi Undeclared identifier: IMAGE_FILE_LARGE_ADDRESS_AWARE
uses WinApi.Windows;
2020-07-01 15:13:41
526
原创 delphi cef4Delphi CEF binaries missing !
设置路径即可GlobalCEFApp := TCefApplication.Create; GlobalCEFApp.FrameworkDirPath := ExtractFilePath(ParamStr(0)); GlobalCEFApp.LocalesDirPath := ExtractFilePath(ParamStr(0))+'locales'; GlobalCEFApp.ResourcesDirPath := ExtractFilePath(ParamStr(0));...
2020-06-18 12:25:00
3322
2
原创 makeappx 命令行 将exe打包成uwp
https://docs.microsoft.com/zh-cn/windows/msix/package/manual-packaging-rootmakepri.exe createconfig /cf priconfig.xml /dq en-USmakepri.exe new /pr . /cf .\priconfig.xmlMakeAppx pack /v /h SHA256 /d . /p uploadX86.msix
2020-06-17 17:19:37
1134
2
原创 delphi CEF4Delphi Test
https://www.briskbard.com/index.php?lang=en&pageid=cefTo test the demos follow these instructions :Download the CEF binaries used by CEF4Delphi : 32 bit - 64 bit Decompress the CEF binaries in a temporary directory. Copy the contents from t...
2020-06-08 16:06:45
1102
原创 delphi 10 android WebBrowser 报错net::ERR_CLEARTEXT_NOT_PERMITTED
打开AndroidManifest.template.xml添加 android:usesCleartextTraffic="true" ，重新编译即可。<manifest ...> <application ... android:usesCleartextTraffic="true" ...> ... </application></manifest&g...
2020-06-03 16:29:36
743
原创 delphi thread exception 异常捕捉
unit UnitMyThread;interfaceuses System.Classes, System.SysUtils, vcl.Forms;type TMyThread = class(TThread) private procedure DoHandleException; procedure HandleException; { Private declarations } protected procedure Execute; o...
2020-05-24 16:52:41
414
win10 版本21H2 + vs2022 + Windows 11 版本 22H2 WDK 驱动工程demo
2023-08-21
D7WebServiceTest-Web App Debugger executable
2023-08-17
delphi10可用Fastnet_V5.6.3_For_D5D6D7D9D10 - 副本.zip
2019-11-06
Delphi HttpServer跨域
2019-04-03
GNU Gettext Delphi Demo
2016-11-29
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人