草庐IT

delphi-xe2

全部标签

database - 带有数据库连接的 Delphi 中的 Windows 服务

我只想知道一个情况。我创建了一个Windows服务来管理我的应用程序的任务。服务连接到数据库(Firebird)并调用执行任务管理的组件。该过程运行正常,但是,在Windows10中,该服务不会在计算机重新启动后自动启动。在其他版本的Windows中,一切都完美无缺。在测试中,我发现如果我评论调用任务执行的方法,该服务通常会在Windows10上启动。ProcedureTDmTaskService.ServiceExecute(Sender:TService);BeginInherited;WhileNotTerminatedDoBegin//Process;Sleep(3000);S

windows - Delphi:如何使用驱动器盘符以编程方式弹出 CD

我试过这段代码:usesMMSystem;mciSendString('Setcdaudiodooropenwait',nil,0,handle);mciSendString('Setcdaudiodoorclosedwait',nil,0,handle);但是没有效果。我听说这不适用于所有系统。我试图让一个驱动器在WindowsXP上弹出,并想通过驱动器号指定驱动器(对于具有多个驱动器的系统是必需的)。 最佳答案 这是使用DeviceIOControl()API函数的代码,适用于WindowsXP(使用Delphi5编译和测试):

windows - 如何判断外部应用程序何时在 delphi 中结束

我正在使用ShellExecute运行外部应用程序我如何知道外部应用程序何时结束?这是我的代码theProgram:='MySql.exe';itsParameters:='-uuser1-ppassword-e"createdatabaseabc"’;rslt:=ShellExecute(0,'open',pChar(theProgram),pChar(itsParameters),nil,SW_SHOW); 最佳答案 尝试以下功能。WaitForSingleObject可以满足您的需求。functionExecAppAndWai

windows - 最新版本 Chromium Embedded Framework 3

在哪里可以找到适用于Delphi的ChromiumEmbeddedFramework3的最新版本?我使用TortoiseSVN从这个页面下载了它:http://code.google.com/p/dcef3/因为CEF1出的问题太多,而且是很老的版本,有24版本的下载,但是最新的版本是823,请问哪里可以找到Delphi-XE2的最新版本?非常感谢。 最佳答案 这里提到了三个项目:chromiumembedded,最新版本996delphichromiumembedded,最新修订147dcef3,最新修订24这是三个不同的项目。您

windows - Delphi 程序和 Windows 64 位兼容性问题

我有一些客户/候选人提示我的程序不能在他们的Windows764位版本上运行(已通过屏幕截图确认)。错误很奇怪,例如:inthetrialversioniamgettingaerrormessagewhenevericlickon\"mark\"\"delete\"\"help\".errormsgis:Accessviolationataddress0046C978inmodule\'ideduper.exe.\'readofaddress00000004windows7ultimate64bit.i7920@2.67GHz9gborram“标记”、“删除”和“帮助”只是TToolb

windows - Delphi项目的自动化构建工具

关闭。这个问题不符合StackOverflowguidelines.它目前不接受答案。要求我们推荐或查找工具、库或最喜欢的场外资源的问题对于StackOverflow来说是偏离主题的,因为它们往往会吸引自以为是的答案和垃圾邮件。相反,describetheproblem以及迄今为止为解决该问题所做的工作。关闭9年前。Improvethisquestion我有几个用Delphi7编写的项目,我正在寻找可以自动构建过程(包括包创建和上传到特定ftp位置)的工具。我想找到没有类似Ant的xml配置文件的native应用程序(即Rake或fabricate.py是很好的软件,但我不想这次使用它

windows - Delphi SaveDialog 不显示

在使用DelphiXE6和ReportBuilder(link)开发并部署在Windows7计算机上的应用程序中,在屏幕上显示ReportBuilder报告后,用户可以选择将其打印到文件中。一个按钮允许用户选择保存文件的目录:/*ThissourcecodewasprovidedbyDigitalMetaphors;Icannotchangeit.*/SaveDialog1:TSaveDialog;...procedureTppPrintDialog.btnPrintToFileClick(Sender:TObject);beginifSaveDialog1.Executethenbe

c++ - 如何将 DLL 注入(inject) Delphi 程序

我有一个遗留应用程序,其中包含一个包含我需要提取的数据的网格。我没有该应用程序的代码,并且无法通过正常方式(例如以编程方式选择所有单元格并将它们复制到剪贴板)从中获取数据。所以我决定按照“II.TheCreateRemoteThread&LoadLibraryTechnique”一节中的描述使用DLL注入(inject)http://www.codeproject.com/Articles/4610/Three-Ways-to-Inject-Your-Code-into-Another-Proces我的计划是将DLL加载到遗留应用程序的地址空间。让DLL从网格中读取数据并将它们写出(例

windows - 如何在 Delphi 中打开 MSI 表?

我需要从MSI数据库中打开一些表,读取它并使用Delphi在其中放置一些行(在我的示例中是Delphi7,但如果需要,允许使用其他版本)。例如,它看起来像ORCA。Msi必须打开,写入可以编辑的表并写入msi文件。默认情况下,Delphi无法打开MSI表,但我发现了一个JEDIWindowsAPI哪里存在像JwaMsi和JwaMsiQuery这样的库。但是我找不到文档或使用像这样的功能的例子functionMsiOpenProduct(szProduct:LPCTSTR;varhProduct:MSIHANDLE):UINT;stdcall;{$EXTERNALSYMMsiOpenPr

windows - 我们如何在delphi中获取键盘空闲时间

下面的代码可以获取系统空闲时间。functionIdleTime:DWord;varLastInput:TLastInputInfo;beginLastInput.cbSize:=SizeOf(TLastInputInfo);GetLastInputInfo(LastInput);Result:=(GetTickCount-LastInput.dwTime)DIV1000;end;是否可以单独获取键盘空闲时间?让用户移动他/她的鼠标——没关系。是否可以确定键盘闲置了多长时间? 最佳答案 您必须Hook到键盘事件。在Delphi中检查