在使用Inno Setup创建的安装过程中,我需要获取驱动器号的卷序列号.我知道DLL函数可以导入Inno,但我对它很新,并且在使它工作时遇到一些问题.我知道kernel32中的GetVolumeInformation函数可以做我需要的.有人可以告诉我如何在Inno脚本中导入和使用该功能来检索卷序列号吗?
谢谢!
我们有一个充满了定制组件的项目,现在在Lazarus和Delphi中工作.
我正在考虑代码接口,但我对它们并不熟悉.我想知道的是:Delphi和Lazarus接口的实现细微差别是什么?有什么我应该特别注意的吗?我需要编写真正不同的代码吗?
背景说明:我认为组件可以从接口中受益,或者至少,我将从中学到更多.例如,其中一个组件使用串行端口与许多不同的硬件进行通信.但是用户应该只使用我们的组件来创建应用程序.因此,我们为每个从基类继承的硬件提供了组件和一个类.在运行时,我们在组件内创建特定的类.
不确定最后的解释是否需要,但如果你们有人需要,我可以写更多.
我想在安装完成后启动我成功安装的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]部分中创建的链接.
有什么建议如何解决这个问题?
是否可以在Delphi Chromium Embedded中禁用视图源选项?
我没有在属性/方法列表中找到任何合适的东西.
我不知道我的问题是什么,但我无法在DEx2中为TCheckBox,TRadioButton,TGroubBox和TRadioGroup等控件设置字体颜色.如果我在IDE中或以编程方式执行它并不重要.
我已将表单颜色设置为clBlack,并希望我的标题是clWhite,但它们不会渲染任何颜色,而是clBlack.当我在表单的OnShow事件上分配颜色并在调试器中逐步执行它时,它会显示我分配给它的值,但在屏幕上它仍然是黑色.
我没有使用样式或其他任何东西.有任何想法吗?
这是一个示例表单: 白色黑色示例http://www.skippix.us/temp/Delphi-Font-Problem.bmp
拥有从右到左阅读模式(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) 我试图将会话日志从其他应用程序(Proxifier)记录到备忘录.我试过使用命令:
procedure TForm1.TimerTimer(Sender: TObject);
begin
Memo1.Lines.LoadFromFile('C:\PMASSH\Proxyfier\Profiles\Log.txt');
end;
Run Code Online (Sandbox Code Playgroud)
但在某些时候我得到一个错误

你能解决我上面的问题吗?我真的很感激所有的答案.
谢谢
如何登录Gmail帐户并获取INBOX包含TIdIMAP4组件的邮箱中的邮件数?
我想检测我的表单中的3个按键,例如Ctrl+ C+ N...我需要检测的键入的表单将始终以Ctrl两个字母开头.
我怎么做的?
以下(引用中)是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) delphi ×7
inno-setup ×3
delphi-xe2 ×2
winapi ×2
batch-file ×1
colors ×1
delphi-2009 ×1
freepascal ×1
imap ×1
indy ×1
installer ×1
interface ×1
lazarus ×1
memo ×1
pascalscript ×1
properties ×1
tchromium ×1
vcl ×1
view-source ×1
xml ×1