草庐IT

Delphi7_VCL

全部标签

windows - 具有管理员权限的 Delphi 外部 exe 在 Windows 8 中被最小化

我遇到一个问题,当我执行在其list中请求管理员权限的命令行帮助程序时,Windows8用户帐户控制(UAC)弹出窗口被最小化。UAC弹出窗口在Windows任务栏中以黄色闪烁,导致用户体验困惑:单击任务栏图标后,UAC警报显示:在Windows7中,UAC警报不会最小化,而是显示在前台。关于如何在Windows8中修复此问题有任何想法吗?作为引用,我的主应用程序在用户权限下运行,并使用ShellExecuteEx执行帮助程序。我正在将ShellExecuteEx的TShellExecuteInfo.nShow设置为SW_SHOW。 最佳答案

windows - Delphi 主题工具栏是否可以在其工具按钮之间设置分隔线?

我注意到Delphi工具栏有一个相当烦人的奇怪之处。我有一个包含逻辑图标组的TToolbar。为了使分组脱颖而出,我想使用样式为tbsDivider的分隔按钮。当我这样做时,它看起来像这样:请注意每个图标之间的双垂直线。右边的一个位于分隔工具按钮的中间。左边的那个位于分隔工具按钮的左边缘。所以,我可以切换到tbsSeparator来删除中间线:但我并不热衷于此,因为我希望分隔线位于中间。我查看了我真实应用程序的一个古老版本,发现它有居中分隔符。禁用Windows主题似乎是可能的。下面是tbsDivider和删除的应用程序list的样子:这就是我正在寻找的布局。当主题处于事件状态时,这是

windows - 我们可以从 Delphi 调用 native Windows API 吗?

是否可以从Delphi应用程序中调用内核nativeAPI?像nt和zw系统调用。 最佳答案 您确实可以从Delphi调用nativeAPI。Delphi不附带本地API的header翻译。所以你需要提供你自己的,或者使用一个预先存在的翻译。例如。NTAPI的JEDI翻译。 关于windows-我们可以从Delphi调用nativeWindowsAPI吗?,我们在StackOverflow上找到一个类似的问题: https://stackoverflow.co

windows - 如何使用 Delphi 让 Toast 通知保留在 Windows 10 操作中心

我在Windows10中使用的是Delphi10.2,以下代码是Embarcadero提供的示例代码。运行此代码后,通知消失并且不再停留在操作中心。我怎样才能让它卡在那里?procedureTNotify.btnShowClick(Sender:TObject);varMyNotification:TNotification;beginMyNotification:=NotificationCenter1.CreateNotification;tryMyNotification.Name:='Windows10Notification';MyNotification.Title:='W

windows - Delphi 中的跨应用程序拖放

我想为WindowsXP创建一个Delphi应用程序,它允许删除从Windows资源管理器(桌面或文件夹窗口)或其他支持此操作的应用程序(例如TotalCommander)拖动的文件。反之亦然呢?当用户从我的应用程序中拖动一个图标时,我应该能够将拖动对象的内容设置为自定义数据。我的目标是创建一个自定义应用程序工具栏,我可以将应用程序拖放到该工具栏上并显示它们的图标,或者从中拖动应用程序或其他实体。如何做到这一点? 最佳答案 这可以通过TheDragandDropComponentSuite来完成.它还提供了您想要的示例。

windows - 我可以使用什么脚本工具来自动测试 Delphi 程序?

关闭。这个问题不符合StackOverflowguidelines.它目前不接受答案。我们不允许提问寻求书籍、工具、软件库等的推荐。您可以编辑问题,以便用事实和引用来回答。关闭6年前。Improvethisquestion我正在寻找一种用于自动化测试的工具。我将使用脚本进行测试,而不仅仅是自动化,这意味着它不能只发送一些按键。它需要检查应用程序的窗口以查看它是否已正确更新。越便宜越好,成本没有下行限制。;-)我需要一种真正的语言,具有函数、变量、循环、分支等,并且应用程序是用Delphi开发的。我需要能够聚焦控件*、等待窗口出现、搜索控件/窗口、发送键盘输入并检查各种窗口/控件是否已更

windows - 将非 VCL 窗口添加到 VCL 对齐队列

一些背景(是TLabelandTGroupboxCaptionsFlickeronResize的延续):所以,我有一个应用程序可以加载不同的插件并创建一个TPageControl上的每个新选项卡。每个DLL都有一个与之关联的TForm。创建表单时将其父hWnd作为新的TTabSheet。因为就VCL而言,TTabSheets不是表单的父级担心(不想使用动态RTL,并且在其他语言)我必须手动处理调整大小。对于这种“插件”类型的应用程序,我似乎遇到了很多新问题(但是很好的学习经验)。因此,我目前的努力是尝试拥有一个不会插入到TTabSheet但会直接在表单上调整大小和对齐的插件。因为用图片

windows - Delphi - 如果它是管理员,如何检查任何 Windows 用户?

我需要检查本地计算机上可用的帐户类型。我已经找到了如何为当前登录的用户执行此操作:functionIsWindowsAdmin:Boolean;varhAccessToken:THandle;ptgGroups:PTokenGroups;dwInfoBufferSize:DWORD;psidAdministrators:PSID;g:Integer;bSuccess:BOOL;beginResult:=False;bSuccess:=OpenThreadToken(GetCurrentThread,TOKEN_QUERY,True,hAccessToken);ifnotbSuccess

windows - Delphi DllMain DLL_PROCESS_DETACH 在 DLL_PROCESS_ATTACH 之前调用

我在处理用Delphi编写的DLL时遇到了很多麻烦。我已经使用库中的以下代码设置了一个DllMain函数:beginDllProc:=DllMain;end.我的DllMain过程如下所示:procedureDllMain(reason:Integer);beginifreason=DLL_PROCESS_DETACHthenOutputDebugString('DLLPROCESSDETACH')elseifreason=DLL_PROCESS_ATTACHthenOutputDebugString('DLLPROCESSATTACH')elseifreason=DLL_THREAD

windows - Delphi:具有自定义字体颜色的 ListView (vsReport) 单列标题标题?

在带有vsReportViewStyle的ListView中,如何自定义任何单个列标题标题的字体颜色?例如(第二列标题标题的字体颜色为红色): 最佳答案 我会处理NM_CUSTOMDRAWheader通知代码,并在CDDS_ITEMPREPAINT渲染阶段使用CDRF_NEWFONT返回代码响应此通知消息。以下代码显示了如何扩展ListView控件以具有指定标题项字体颜色的事件:unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Con