池龙-CSDN博客

原创禁止VMWare自动修改虚拟机内的Windows界面DPI

问题：在虚拟机中安装Windows 10以后发现界面缩放比例被锁定，解锁修改后收到提示VMware Tools已修改用户界面大小设置。您必须注销才能应用这些更改。请关闭所有应用程序并按“确定”以立即注销，或者按“取消”以稍后注销。重启发现界面缩放比例又恢复且锁定了。解决方法：在虚拟机节点上点右键弹出菜单，选“设置”在设置对话框的硬件页面选中“显示器”，清除“在虚拟机中自动调整用户...

2019-06-24 23:35:16 7106

原创解决错误1500：当访问注册表项...\TrapConfiguration 时，SNMP 服务遇到错误

事件ID：1500事件描述：当访问注册表项 SYSTEM\CurrentControlSet\Services\SNMP\Parameters\TrapConfiguration 时，SNMP 服务遇到错误。解决方法：参考https://support.microsoft.com/en-us/help/2002303/event-1500-logged-when-snmp-is-...

2019-06-16 00:38:31 4091

原创在Windows Server 2012中自动挂载非本机创建的存储池中的虚拟磁盘

默认情况下Windows Server不会自动挂载非本机创建的存储池中的虚拟磁盘，需要手工配置，方法如下：打开PowerShell，输入命令显示所有虚拟磁盘列表：Get-VirtualDisk或直接筛选出设置为人工挂载的虚拟磁盘：Get-VirtualDisk | Where-Object {$_.IsManualAttach –eq $True}Windows会返回系统中的虚拟磁盘...

2019-06-16 00:05:25 2455

原创将Lazarus的IDE窗体变为停靠窗体

在安装目录，如C:\lazarus\components\anchordocking\design里找到anchordockingdsgn.lpk，安装并重新编译即可

2019-01-23 16:25:16 1810

转载避免StringList将空格识别为分隔符

正常情况下，用Delimiter对字符串进行分隔时，无论分隔符为什么，空格都会自动按分隔符处理。设置Stringlist.StrictDelimiter := True;可以避免这种情况。示例代码：procedure TForm1.btn1Click(Sender: TObject);var s : TStringList;begin s := TStringList.Cr...

2018-03-25 11:27:53 1178

原创在Windows中使用另一个用户访问网络共享路径

运行cmd进入命令提示符模式；输入net use显示当前存在的网络连接；找到与要切换用户的主机相关的网络连接，使用net use \\host\path /delete将其删除（否则会在切换用户的时候遇到1219错误）使用net use \\host /user:username切换用户，输入该用户在主机上的密码即可。...

2018-03-23 22:41:06 6884

原创解决Windows 10版本更新后不能访问网络共享文件夹的问题一法

在某次更新后发现Windows 10不能访问Windows Server 2012上原本可用的共享文件夹了。用机器名访问时报80070035错误，用IP访问时报80004005错误。确认NetBIOS设置正确、共享设置正确、能正确解析机器名和ping通机器。最后寻找到解决方案：打开注册表编辑器，找到路径计算机\HKEY_LOCAL_MACHINE\SYSTEM\Curre...

2018-03-19 23:02:17 45527 7

原创解决Lazarus中窗体不能正确最大化显示的问题

某些情况下虽然已经设置了窗体的WindowState为wsMaximized，但是创建窗体并显示的时候窗体并不能正确最大化。此时可以尝试将窗体的WindowState依然设置为wsNormal，再在窗体的OnShow事件中设置窗体的状态。uses LCLIntf, LCLType;procedure TForm1.FormShow(Sender: TObject);begin LCLIntf.

2017-11-08 16:49:31 843

原创 Lazarus和Delphi中一些函数的对应关系

Lazarus函数所在单元 Delphi中的对应函数 AppendPathDelim LazFileUtils IncludeTrailingBackSlash

2017-11-04 09:43:00 1563

原创在Delphi 10.2中安装ImageEN 5.2

找到ie.inc文件，在其中添加下述编译开关，先打开并编译PKIECtrlxx.dpk，然后再安装DKPIECtrlxx.dpk即可。// Delphi 10.2 Tokyo{$ifdef VER320} {$define Delphi5orNewer} {$define Delphi6orNewer} {$define Delphi7orNewer} {$define Delph

2017-09-24 11:07:20 3199 1

原创关于Lazarus下PowerPDF控件的使用

如何输出PDF PowerPDF使用TPRPage作为页面容器，只要简单地将一个生成好的TPRPage输出到TPReport中即可生成PDF文件的一个页面，页面的尺寸由TPRPage的高度宽度决定。 PReport1.FileName:= 'test.pdf'; PReport1.BeginDoc; PReport1.Print(PRPage1); PReport1.EndDoc;

2017-09-13 00:53:01 1991

原创在Lazarus中对字符串进行代码页转换

由于Lazarus基于UTF-8，因此当读写Windows建立的纯文本文件的时候，由于其中的中文使用GBK（CP936）编码，可能会出现错误。此时可使用Lazarus自带的代码页转换单元LConvEncoding对编码进行转换。如UTF8和GBK互转function CP936ToUTF8(const s: string): string; // Chinesefunction UTF8

2017-08-22 22:29:26 2371 1

原创 Lazarus的INI文件处理机制

TINIFile使用FillSectionList过程读取和分析INI文件结构。在这个过程中，会检查该文件是否具备微软的UTF-8文件头（#$EF#$BB#$BF），如果有，则记录下来，并在保存的时候也同样添加这个文件头。 if (AStrings.Count > 0) and (copy(AStrings.Strings[0],1,Length(Utf8Bom)) = Utf8Bom) the

2017-08-22 22:07:40 1079

原创设置Lazarus组件包的版本信息

在Package菜单中打开包文件（Open Package File(.lpk)）之后，在Options里找到Description，右边的窗口里可以设置描述、作者、许可说明、版本等信息。

2017-08-11 21:20:27 802

原创待解决：如何打开lazarus中math.pp下FPDOC_MATH编译选项

使用math单元中的max和min函数时发现仅能支持长整形，如果使用了浮点型，则会收到形如 Error: Incompatible type for arg no. 2: Got “Single”, expected “LongInt”的错误提示。检查了math.pp的内容，发现此处的代码如下{$ifdef FPC_HAS_TYPE_SINGLE} function Min(a, b:

2017-08-10 23:31:17 391

TControl类通过Left、Top、Width和Height四个属性定义了控件的尺寸和位置信息，对这四个属性以及BoundsRect的修改（GetBoundsRect和SetBoundsRect函数也是操作这四个变量）会调用SetBounds过程（SetBounds过程亦可手动调用）重新设置控件的相关变量。当通过SetBounds过程（KeepBase=false）或布局器（KeepBase=t

2017-08-04 23:26:25 1060

原创为Lazarus控件指定图标

在自己制作Lazarus控件的时候为控件指定图标

2017-07-30 22:14:38 1032

原创找回淘宝的“高级搜索”功能

在淘宝找东西的时候遇到一个问题，当需要“包含关键字A但是不包含关键字B”的搜索结果的时候，形如“A-B”的搜索方法似乎无效。然后不知道从什么时候开始，淘宝把自己的高级搜索功能隐藏起来了。在网上找了一圈，发现还是可以通过其它方式进入的。访问http://search1.taobao.com，在搜索框的右侧可以找到“高级搜索”链接。通过这个链接进入以后就可以使用“排除关键字”功能。然而仍然有一个奇妙的情

2017-07-20 22:36:21 16891 3

原创在Lazarus中使用打印机

打印机控制仍然使用Printer单元，但是如果直接使用Printer单元的话会提示对象没有初始化，在使用Printer单元之前需要先加入Printer4Lazarus包。方法为：在“Project”菜单里打开“Project Inspector”，选中“Required Packages”分支，单击“Add”按钮，找到“Printer4Lazarus”包，添加。之后使用Printer对象的方法和De

2017-04-22 22:24:45 891 1

原创解决安装驱动程序时提示“Windows已经找到设备的驱动程序，但在试图安装它时遇到错误”“系统找不到指定路径”问题。

解决在安装驱动程序时提示“Windows已经找到设备的驱动程序，但在试图安装它时遇到错误”“系统找不到指定路径”问题。

2017-03-14 23:27:54 86739 3

原创在Autodesk MeshMixer中使用官方的中文语言包

MeshMixer的配置文件保存在： C:\Users\Administrator\AppData\Roaming\Autodesk\meshmixer.ini区域配置保存在文件中的： [UserPreferredLocale] Locale=ja_JP [DialogSettings] Import=Ask BackToMM=Ask ScaleUpImpor

2017-03-06 01:25:07 5380

原创将DWG文件输出为图形文件

文件->打印打印机/绘图仪，选择：PublishToWeb JPG 或 PublishToWeb PNG选打印范围（窗口）选图纸尺寸（默认的像素数很低）修改纵向横向、居中、比例如果需要黑白（默认的绿色在白底上不明显），在打印样式表选 monochrome.ctb确定

2016-11-21 08:28:51 1259

转载解决Delphi的TAnimate控件的Common AVI在Vista以后版本中不能正常工作的问题

解决方法：在窗体上放置控件TShellResources（Win32页）或直接在引用中增加单元ShellAnimations，两种方法是一样的。这个单元会在编译时将新的动画资源文件包括在内。来源：http://stackoverflow.com/questions/1492799/how-do-i-get-tanimates-common-avis-to-work-on-vis

2016-05-31 00:50:20 1387

原创减小新版Lazarus编译的可执行文件的体积

新版本Lazarus中Project Options界面的选项略有改动在Project Options对话框中，选择Compiler Options下的Debugging项目清除“Display line numbers in run-time error backtraces (-gl)”和“Generate debugging info for GDB (slower / increa

2015-07-22 13:19:39 2220

转载解决Delphi 2010启动时卡死并报“displayNotification: 堆栈溢出”错误

1. 清理IE的历史记录，删除浏览器缓存（不需要清cookie） 2. 禁用startpage 2.1 从 Delphi 2010 启动菜单上点右键 -> 查看属性->快捷方式->目标: "C:\Program Files\CodeGear\RAD Studio\7.0\bin\bds.exe" -pDelphi 这里已经有了一个启动参数: -pDelphi; 当然也可以是: -pD

2015-04-19 22:17:54 4405

转载快速更改Windows 8/8.1的磁盘IDE/AHCI模式

1. 运行msconfig2. 选择“引导”页面，在“引导选项”中选择“安全引导”复选框，然后选“最小”3. 确定，重启，在BIOS里设置新的磁盘模式4. 进入安全模式，重新运行msconfig，清除“安全引导”复选框，重启。来自http://club.pchome.net/thread_6_1990196_8285423__.html

2015-03-23 13:06:23 881

转载修复Windows组件

按“Windows+X”打开命令提示符(管理员)，输入“SFC /SCANNOW”回车进行系统修复；完成后再输入“dism /online /cleanup-image /restorehealth”修复系统组件。来源http://answers.microsoft.com/zh-hans/ie/forum/ie11-iewindows8_1/ie11/6ecf5297-04f1-4a

2015-01-06 11:08:33 6993

原创在Windows 8中使用传统风格语言栏

打开控制面板，找到更改输入法

2014-11-24 13:54:49 524

原创启用Windows 8的Administrator账户

在开始屏幕中找到命令提示符右键选择“yi

2014-11-24 13:41:02 520

原创解决Windows Server 2012上安装VMware Server 2.0后VMware Host Agent服务不能启动的问题

在Windows Server 2012上安装VMware Server 2012后发现wu'fVMware Host Agent错误1075：服务不存在，或已被标记为删除。命令行"C:\Program Files (x86)\VMware\VMware Server\vmware-hostd.exe" -u "C:\ProgramData\VMware\VMwar

2014-11-18 15:35:51 7908 1

原创在Windows Server 2012中打开传统的磁盘管理界面

在“运行”中输入diskmgmt.msc即可

2014-11-17 20:36:06 31407

原创在Windows 8.1里启动扫描仪和照相机向导以及删除扫描仪和照相机

1. 在运行中输入wiaacmgr启动扫描仪和照相机向导。2. 在设备管理器内“图像she'b

2014-11-13 12:19:00 3508

原创用命令行删除Windows服务

使用命令行删除Windows服务

2014-11-13 11:20:10 21280 1

原创安装Adobe CS6出错的解决方法

an'zFATAL: Payload '{6E7FC6F6-FF37-4886-B39D-6804B4C52851} Adobe Photoshop CS6 Chinese Language Pack_x64_13.0.1.1_AdobePhotoshop13-zh_CN_x64 6.0.98.0' information not found in Media_db.

2014-10-20 16:46:05 4879

转载 SQL Server安装时提示“已创建挂起的文件操作”

原文http://it.oyksoft.com/post/6/

2014-10-08 00:14:00 2909

原创 SQL Server 2014附加数据库失败，错误5120的解决方法之一

在SQL Server 2014上附加数据库时收到提示

2014-10-06 22:54:03 13571 2

翻译解决Delphi 2010启动时出现cannot create xxxx\EditorLineEnds.ttr问题

由于在Windows安装了最近的更新(KB2982791, KB2970228)后，Delphi的IDE需要创建的一个文件%TEMP%\EditorLineEnds.ttr会被系统锁定，导致除非重新启动操作系统，否则Delphi 8~2010无法启动两次。Delphi的IDE在启动时提取了一个字体资源到%TEMP%\EditorLineEnds.ttr，然后使用AddFontResou

2014-09-01 10:18:06 17416 2

原创解决安装VMTools时提示Easy Install正在进行问题

错误提示：VMWare tools installation cannot be started manually while Easy Install is in progress在虚拟机设置里找到软驱选项，

2014-08-20 13:29:44 5288

转载在Excel中将数字转换为人民币大写风格的公式

="人民币"&IF(ISERROR(FIND(".",A1)),NUMBERSTRING(INT(A1),2)&"元整",IF(ISERROR(NUMBERSTRING(MID(A1,FIND(".",A1)+2,1),2)),NUMBERSTRING(INT(A1),2)&"元"&NUMBERSTRING(MID(A1,FIND(".",A1)+1,1),2)&"角整",NUMBERSTRING

2014-07-07 09:05:45 3146