为什么最大化的Delphi比GetSystemMetrics值更宽和更高的8像素？
如果我最大化一个Delphi格式，宽度和高度值是相应的GetSystemMetrics SM_CXSCREEN和SM_CYSCREEN的8像素？ 例如： 当我右键单击我的屏幕并获取属性时，我有一个1680 X 1050屏幕分辨率。这些是从GetSystemMetrics（SM_CXSCREEN）和GetSystemMetrics（SM_CYSCREEN）返回的相同的值。 当我在D
..
Delphi
从文本文件中修改或删除一行是低级的方式吗？
我正在使用Delphi中的文本文件，我不希望使用加载/保存字符串列表的方法。我打算保留一个开放的filestream，在那里我读和写我的数据，保留大量的数据在硬盘而不是内存。我有一个简单的概念，将新行写入文本文件并阅读它们，但是当涉及修改和删除它们时，我找不到任何好的资源。 每个该文件中的行包含一个名称和等号，其余的是数据。例如， SOMEUNIQUENAME = SomeStringVal
..
如何获得USB闪存驱动器的制造商序列号？
我如何在Delphi中检索USB闪存驱动器的制造商序列号？ 我已经尝试过： 函数GetDiskVolSerialID（ADriveName：Char）：Cardinal; var DiskDrive：string; FileSystemFlags：DWORD; VolumeSerialNumber：DWORD; MaximumComponentLength：DWOR
..
如何分离一个面板并在一个单独的窗口中显示？
假设我有一个表单A，其中包含一个面板（其中包含许多其他控件）和一个B表示它是空的。 我可以以编程方式从面板A中分离面板并将其移动到形式B（也许回到形式A）？ 我知道我可以更改面板的所有者，但是它可以在不同的窗体之间工作吗？ 更新： 经过一些Google搜索，我看到有一个ParentWindow属性。 解决方案 您可以轻松地将某些东西看起来像是一个面板，也可以作为一个
..
使用“with”创建的引用对象实例在德尔福
有没有办法引用使用“with”语句创建的对象实例？ 示例： with TAnObject.Create do begin DoSomething（instance）; 结束 其中DoSomething将使用实例引用，就像您将一个实例从变量声明的引用传递给对象创建。 示例： AnObject：= TAnObject.Create ;
..
为什么两个别名为“数组阵列”治疗不同
pascal中有两种类型声明： 类型别名：类型NewName = OldType 类型创建：键入NewType = 类型 OldType 前者只是在C中创建方便的简写，如 typedef 。别名是相互兼容的，并且与其原始类型兼容。创建的类型是有意的不兼容的，不能通过定义类型转换而不显式和不安全地混合。 var nn：NewName ; nt：NewType; ot：Old
..
为什么是TGeneric< Base>和TGeneric不兼容的类型
我开始在Delphi 2010中使用泛型，但编译这段代码时有问题： TThreadBase = class（TThread） ... end; TThreadBaseList = class（TObjectList） ... end; TDataProviderThread = class（TThreadBase） ..
..
Delphi：idHttp + SSL
请解释我如何使用SSL（https：//）从服务器下载文件。我没有在互联网上找到合适的答案。 每个人都说TIdSSLIOHandlerSocket，但是我只有TIdSSLIOHandlerSocketOpenSSL。 如果我使用TIdSSLIOHandlerSocketOpenSSL，我有一个错误'无法加载SSL库'。 有些人说它需要一个图书馆，但最甚至没有提及。我需要从这里使用图书馆
..
更快的DirectoryExists功能？
我使用 DirectoryExists（const PathName：String）; 检查目录是否从计算机可访问。但是，如果目录不存在，并且路径名称是网络路径，即 \\computer1\Data 该方法需要很长时间才能返回。 必须有一种更快的方式来确定网络文件夹不可访问。或者我可以配置DirectoryExists在内部使用的一些
..
使用TChromium，Delphi Chromium Embedded
这是我的上一个问题的延续。在这个问题中，我发现一个涉及TWebBrowser生成线程的问题，这些线程在浏览器销毁后持续存在。虽然没有人可以提供一个解决方案的问题，有人建议这个问题可能是一个不可修复的（TWebBrowser组件本身的缺陷）。 因为这个我试图下载并使用 Delphi Chromium嵌入式框架。我下载了组件并将它们添加到了Delphi中，将一个添加到一个新的表单中，并尝试运行该
..
delphi xe禁用RTTI
我最近使用delphi xe，但是exe大小很大，因为rtti（我想） 如何删除rtti，我可以使我的应用程序大小小作为德尔福2009年应用程序（490 kb），没有comprssion;和rtti的使用是什么 解决方案 简而言之（在splash中的链接提供的全部故事）： {$ RTTI EXPLICIT METHODS（[]）PROPERTIES（[]）FIELDS（[]）}
..
TProgressBar从来没有填满 - 似乎正在更新太快？
可能重复： Windows 7 Aero主题进度栏错误？ 自Windows Vista以来，我注意到Delphi中的TProgressBar有一个错误/问题。 问题是进度条从来没有似乎填满100％，有时候在进度条被认为是最大值，即100％ 之前，可能会达到70％ - 80％，我已经在各种网站上阅读，而且，进度条已经完成其操作。但是看起来Delphi VCL中出现了一个错误，
..
如何识别和摆脱“使用条款”中未使用的单元。在德尔福7？
这应该可以在一些非常大的项目中减少可执行文件的大小。我确定还会有其他的好处。 编辑：是否有可能会扫描项目并自动删除冗余的实用程序？我有100个项目，“自动删除”将是一等奖，但是如果我必须在识别实用程序的帮助下以手动方式进行。 解决方案 您可能需要查看 CnPack 。 CnPack包含一个使用清洁向导，但尚未失败。
..
如何在Windows资源管理器中获得Delphi中的排序顺序？
总结： 我已经 寻找的术语似乎是“自然 排序” 对于操作系统中的行为： 对于Windows（版本= = ），Windows资源管理器使用自然 排序。 对于Linux终端：使用“ls -v”而不是纯粹的“ls”来获取自然 排序。 li> 对于Delphi中的编程，使用StrCmpLogicalW Windows API来进行自然排序。 在Delphi& Kylix
..
德尔福企业：如何在没有循环引用的情况下应用访客模式？
使用Delphi 2009 Enterprise，我们在模型视图中创建了GoF访问者模式的代码，并将代码分为两个单元：一个用于域模型类，一个用于访问者（因为我可能需要其他单位用于不同的访问者实现一切都在一个单位？“大泥泥泥'提前！）。 unit VisitorUnit; 接口 使用 ConcreteElementUnit; type IVisitor = inter
..
是否有用于Delphi的I / O完成端口组件？
我知道 Indy ， ICS ， Synapse 和 Clever InetSuite ，其中没有一个支持 IOCP 。有没有其他的东西？ 编辑： 我发现 iocpclasses ，它是用Delphi5编写的。 解决方案 检查 http://voipobjects.com/index.php?page=delphi-iocp-library 它被迁移iocpclasses.sou
..
如何在Delphi中禁用VCL样式
我在Delphi XE2中使用了新的VCL风格系统。它的功能非常好，但我希望禁用它的一个特定的形式，其上有一些图像（一个飞溅/关于表单）。问题是，我似乎找不到将其与特定样式相关联的窗体的属性，因此无法禁用该窗体。似乎只有全局的 TStyleManager 类似乎是静态的。 考虑到这一点，是只有这样才能实现这个调用 TStyleManager.TrySetStyle（'Windows'），显示
..
检测TWebBrowser文档中的活动元素何时发生变化
是否有任何事件可以钩住以检测网页上的活动元素何时发生变化？例如，当用户聚焦编辑框时。 我知道我可以在定时器中检查活动元素，但是如果可能，我宁愿避免这种情况。 / p> 解决方案 这不是一个完整的答案，但希望能让你最了解你的方式。 / p> （对于通过类似的q到达的未来读者： 假设您有一个自动化/ Com服务器的类型库导入单元，如SHDocVw，MSHTML或MS Word
..
Delphi中的跨应用程序拖放
我想为Windows XP创建一个Delphi应用程序，允许从Windows资源管理器（桌面或文件夹窗口）或其他支持此操作的应用程序（如Total Commander）拖放文件。反之亦然当用户从我的应用程序拖动图标时，我应该能够将拖动的对象的内容设置为自定义数据。 我的目标是创建一个自定义应用程序工具栏，我可以在其上放置应用程序并显示其图标或从中拖动应用程序或其他实体。 这可以如何完成
..
如何使用Delphi来测试目录是否可写？
目前，我使用这个函数，基于JCL代码，它工作正常： 函数IsDirectoryWriteable（const AName：string） ：布尔值 var 文件名：PWideChar; H：THandle; begin FileName：= PWideChar（IncludeTrailingPathDelimiter（AName）+'chk.tmp'）; H：= Cr
..