小编Tob*_*s R的帖子

如何修改Class-Completion生成的代码(ctrl-shift-c)

我想修改类完成,以便创建的每个方法都包含一个 raise ENotImplemented.Create;

有谁知道如何自定义此行为?

更新:
我想要的解决方案不依赖于第三方.
IDE从哪里获取模板?
通过OTA有办法吗?

delphi code-completion

22
推荐指数
1
解决办法
1108
查看次数

在Delphi 2009中挂钩Stacktrace

Delphi 2009中的Exception类获得了许多新功能.其中一些与获取堆栈跟踪有关:

  • 属性 StackTrace:字符串 读取 GetStackTrace;
  • 属性 StackInfo:指针读取 FStackInfo;
  • class var GetExceptionStackInfoProc:function(P:PExceptionRecord):指针;
  • class var GetStackInfoStringProc:function(Info:Pointer):string ;
  • class var CleanUpStackInfoProc:procedure(Info:Pointer);

有没有人用这些来获得堆栈跟踪呢?是的,我知道还有其他方法可以获得堆栈跟踪,但如果它在Exception类中本机支持,我宁愿利用它.

更新:有关于此的兴趣博客文章.涵盖了很多深度.

delphi exception stack-trace delphi-2009

17
推荐指数
1
解决办法
2870
查看次数

如何为未注册的文件扩展名显示"打开方式"对话框?

我想让用户为当前未注册的文件扩展名选择一个关联(打开方式).

目前我告诉API使用打开文件ShellExecute,它返回ERROR_NO_ASSOCIATION错误代码.

有没有办法告诉API它应该让用户选择一个新的关联?

windows delphi winapi

10
推荐指数
1
解决办法
3098
查看次数

什么可能导致编译器不生成控制台输出

我有一个DUnit项目,如果我添加一些单位,将无法编译为控制台.
项目(dpr)由向导创建并CONSOLE_TESTRUNNER定义.

{$IFDEF CONSOLE_TESTRUNNER}
{$APPTYPE CONSOLE}
{$ENDIF}

begin
  Application.Initialize;
  if IsConsole then // <-- IsConsole is set to False.
    with TextTestRunner.RunRegisteredTests do
      Free
  else
    GUITestRunner.RunRegisteredTests;
end.
Run Code Online (Sandbox Code Playgroud)

使其失败的单位包括一些VCL组件,但没有对它们运行测试.
我甚至试图设置链接器选项,但它没有任何区别.
有人遇到过类似的问题吗?
只是为了澄清:这个项目是Delphi 2010中的Win32.

delphi dunit delphi-2010

5
推荐指数
1
解决办法
163
查看次数

如何在安装过程中将嵌入的存档提取到磁盘

我的7Zip archive安装脚本中嵌入了一个。
是否有将内容提取到目标文件夹的“本机”方式?
如果没有关于如何实现这一目标的任何提示?

更新了我的实现。谢谢你的提示 TLama

[Files]    
Source: "Documentation.7zip"; DestDir: "{tmp}"    
Source: "7za.exe"; DestDir: "{tmp}"

[Run]
Filename: "{tmp}\7za.exe"; Parameters: "x -o""{app}"" ""{tmp}\Documentation.7zip""";     Flags: runhidden; Description: "{cm:InstallingDocumentation}"; StatusMsg: "{cm:InstallingDocumentationStatus}"

[CustomMessages]
en.InstallingDocumentation=Documentation Files
en.InstallingDocumentationStatus=Installing Documentation Files. This may take several minutes...
Run Code Online (Sandbox Code Playgroud)

inno-setup

5
推荐指数
1
解决办法
2388
查看次数