小编TLa*_*ama的帖子

如何在Inno Setup中使用GetVolumeInformation?

在使用Inno Setup创建的安装过程中,我需要获取驱动器号的卷序列号.我知道DLL函数可以导入Inno,但我对它很新,并且在使它工作时遇到一些问题.我知道kernel32中的GetVolumeInformation函数可以做我需要的.有人可以告诉我如何在Inno脚本中导入和使用该功能来检索卷序列号吗?

谢谢!

installer winapi inno-setup pascalscript

7
推荐指数
1
解决办法
3953
查看次数

在Delphi和Lazarus(FPC)中实现接口有什么区别?

我们有一个充满了定制组件的项目,现在在Lazarus和Delphi中工作.

我正在考虑代码接口,但我对它们并不熟悉.我想知道的是:Delphi和Lazarus接口的实现细微差别是什么?有什么我应该特别注意的吗?我需要编写真正不同的代码吗?

背景说明:我认为组件可以从接口中受益,或者至少,我将从中学到更多.例如,其中一个组件使用串行端口与许多不同的硬件进行通信.但是用户应该只使用我们的组件来创建应用程序.因此,我们为每个从基类继承的硬件提供了组件和一个类.在运行时,我们在组件内创建特定的类.

不确定最后的解释是否需要,但如果你们有人需要,我可以写更多.

delphi interface freepascal lazarus

7
推荐指数
1
解决办法
2449
查看次数

如何运行批处理文件保持控制台窗口隐藏?

我想在安装完成后启动我成功安装的Java程序.我原则上知道如何做到这一点:

[Run]
FileName: "{app}\LaunchApp.bat"; Description: {cm:LaunchApp}; Flags: nowait postinstall skipifsilent
Run Code Online (Sandbox Code Playgroud)

LaunchApp.bat:

start javaw -jar  MyJar.jar Main
Run Code Online (Sandbox Code Playgroud)

这样,控制台窗口会弹出一段时间,这不是很好.使用链接,可以避免这种情况.但是,我似乎无法执行[Icon]在该[Run]部分中创建的链接.

有什么建议如何解决这个问题?

inno-setup batch-file

7
推荐指数
1
解决办法
7329
查看次数

如何在Chromium Embedded中禁用查看源选项?

是否可以在Delphi Chromium Embedded中禁用视图源选项?
我没有在属性/方法列表中找到任何合适的东西.

delphi view-source tchromium

7
推荐指数
1
解决办法
3581
查看次数

如何在TCheckBox,TRadioButton,TGroupBox上更改字幕字体颜色?

我不知道我的问题是什么,但我无法在DEx2中为TCheckBox,TRadioButton,TGroubBox和TRadioGroup等控件设置字体颜色.如果我在IDE中或以编程方式执行它并不重要.

我已将表单颜色设置为clBlack,并希望我的标题是clWhite,但它们不会渲染任何颜色,而是clBlack.当我在表单的OnShow事件上分配颜色并在调试器中逐步执行它时,它会显示我分配给它的值,但在屏幕上它仍然是黑色.

我没有使用样式或其他任何东西.有任何想法吗?

这是一个示例表单: 白色黑色示例http://www.skippix.us/temp/Delphi-Font-Problem.bmp

delphi vcl properties colors delphi-xe2

7
推荐指数
1
解决办法
7809
查看次数

使用RTL布局时如何通过命中测试获取树视图项?

描述:

拥有从右到左阅读模式(RTL)的树视图,如何获取被点击的节点只知道点击坐标?这是一个插入的类,它使树视图使用RTL显示,并包含一个单击处理程序,您可以在其中查看问题:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, CommCtrl;

type
  TTreeView = class(ComCtrls.TTreeView)
  protected
    procedure CNNotify(var Msg: TWMNotify); message CN_NOTIFY;
    procedure CreateParams(var Params: TCreateParams); override;
  end;

type
  TForm1 = class(TForm)
    TreeView1: TTreeView;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TTreeView }

procedure TTreeView.CNNotify(var Msg: TWMNotify);
var
  Node: TTreeNode;
  Point: TPoint;
begin
  inherited;
  if Msg.NMHdr.code = NM_CLICK then
  begin …
Run Code Online (Sandbox Code Playgroud)

delphi winapi delphi-2009

7
推荐指数
1
解决办法
1284
查看次数

从其他应用程序加载Log.txt到Memo - Delphi7

我试图将会话日志从其他应用程序(Proxifier)记录到备忘录.我试过使用命令:

procedure TForm1.TimerTimer(Sender: TObject);
begin
  Memo1.Lines.LoadFromFile('C:\PMASSH\Proxyfier\Profiles\Log.txt');
end;
Run Code Online (Sandbox Code Playgroud)

但在某些时候我得到一个错误

在此输入图像描述

你能解决我上面的问题吗?我真的很感激所有的答案.

谢谢

delphi memo

7
推荐指数
2
解决办法
7510
查看次数

如何使用TIdIMAP4登录Gmail帐户并获取邮箱中的邮件数量?

如何登录Gmail帐户并获取INBOX包含TIdIMAP4组件的邮箱中的邮件数?

delphi imap indy delphi-xe2

7
推荐指数
1
解决办法
5356
查看次数

德尔福 - 检测同时按下3个键

我想检测我的表单中的3个按键,例如Ctrl+ C+ N...我需要检测的键入的表单将始终以Ctrl两个字母开头.

我怎么做的?

delphi

7
推荐指数
1
解决办法
7499
查看次数

Inno设置:如何替换XML文件中的字符串?

以下(引用中)是XML文件的内容,它是我的包的一部分.我想替换c:\path\myapp.exe安装期间的值(使用用户选择安装应用程序的真实路径.这可能吗?如何?

<?xml version="1.0" encoding="UTF-8"?>
<launchConfiguration type="org.eclipse.ui.externaltools.ProgramLaunchConfigurationType">
   <listAttribute key="org.eclipse.debug.ui.favoriteGroups">
      <listEntry value="org.eclipse.ui.externaltools.launchGroup"/>
   </listAttribute>
   <stringAttribute key="org.eclipse.ui.externaltools.ATTR_LAUNCH_CONFIGURATION_BUILD_SCOPE" value="${none}"/>
   <stringAttribute key="org.eclipse.ui.externaltools.ATTR_LOCATION" value="c:\path\myapp.exe"/>
   <stringAttribute key="org.eclipse.ui.externaltools.ATTR_TOOL_ARGUMENTS" value="${resource_loc}"/>
</launchConfiguration>
Run Code Online (Sandbox Code Playgroud)

xml inno-setup

7
推荐指数
1
解决办法
4816
查看次数