Articles of delphi xe

Delphi – CreateProcess – 执行多个命令

我想用CreateProcess()调用来实现以下function: 更改为svn工作副本 执行svn命令 将输出传输到文件 我用下面的函数试试这个 procedure TQPortMainForm.CmdMigrationClick(Sender: TObject); var StartInfo: TStartupInfo; ProcInfo: TProcessInformation; CreateOk: boolean; input: String; begin { fill with known state } FillChar(StartInfo, SizeOf(TStartupInfo), #0); FillChar(ProcInfo, SizeOf(TProcessInformation), #0); StartInfo.cb := SizeOf(TStartupInfo); //debug input := 'D: && cd D:\Qport\trunk\Qport\ && ' + SVN_PATH + ' log > C:\users\PhilippKober\UNIQUE_NAME_BLUB.txt'; CreateOk := CreateProcess(nil, PChar(input), nil, nil, […]

寻找物理适配器的MAC地址

我想使用一个唯一的标识符来确定我的应用程序是否移动到不同的计算机。 MAC地址似乎适合于这个目的。 我使用的代码是这样的: Procedure TForm4.GetMacAddress; var item: TListItem; objWMIService : OLEVariant; colItems : OLEVariant; colItem : OLEVariant; oEnum : IEnumvariant; iValue : LongWord; wmiHost, root, wmiClass: string; i: Int32; function GetWMIObject(const objectName: String): IDispatch; var chEaten: Integer; BindCtx: IBindCtx;//for access to a bind context Moniker: IMoniker;//Enables you to use a moniker object begin OleCheck(CreateBindCtx(0, bindCtx)); […]

如何获取应用程序的Windows任务栏button来显示进度条的进度

Windows 7中引入的function之一(或者是Vista?)是应用程序的任务栏button能够显示该应用程序中进度条的进度。 当我创build一个表单并在其上放置一个进度条时,它不会显示在任务栏button中,所以我假设这不是自动完成的。 如何让Windows 7在应用程序的任务栏button上显示进度条的进度?

Delphi XE中的主题应用程序

有谁知道是否有可能将自定义主题应用到Delphi应用程序。 例如,一次更改整个应用程序(即一组表单)的默认颜色,字体,标签样式等。 有点像网页的CSS文件。

如何检查我的Delphi控制台应用程序是否被redirect到文件或pipe道?

我有一个控制台应用程序,当输出redirect到一个文件或pipe道(myapp.exe> Foo.bar)时,必须禁用或启用一些操作。 如何检查我的Delphi控制台应用程序是否被redirect到文件或pipe道?

什么会导致部分处理泄漏?

这是对我以前的问题的后续问题。 正如我在上一个问题的答案中所build议的那样 ,我使用了ProcessExplorer来分析我的应用程序用于查找句柄泄漏的句柄列表。 泄漏的句柄是Sectiontypes的。 什么是一个部分句柄,它在哪里使用,并可能导致部分句柄泄漏? 我没有在我的代码中使用内存映射文件。

Delphi XE和陷印箭头键与OnKeyDown

我希望我的表单能够处理箭头键,而且我可以做到 – 只要表单上没有button。 为什么是这样?