头疼!这段程序怎么翻译成delphi的

kill_net kill_net 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
HDC GetPrinterDC (void)
{
DWORD dwNeeded, dwReturned ;
HDC hdc ;
PRINTER_INFO_4 * pinfo4 ;
PRINTER_INFO_5 * pinfo5 ;

if (GetVersion () & 0x80000000) // Windows 98
{
EnumPrinters (PRINTER_ENUM_DEFAULT, NULL, 5, NULL,
0, &dwNeeded, &dwReturned) ;
pinfo5 = malloc (dwNeeded) ;
EnumPrinters (PRINTER_ENUM_DEFAULT, NULL, 5, (PBYTE) pinfo5,
dwNeeded, &dwNeeded, &dwReturned) ;
hdc = CreateDC (NULL, pinfo5->pPrinterName, NULL, NULL) ;
free (pinfo5) ;
}
else
//Windows NT
{
EnumPrinters (PRINTER_ENUM_LOCAL, NULL, 4, NULL,
0, &dwNeeded, &dwReturned) ;
pinfo4 = malloc (dwNeeded) ;
EnumPrinters (PRINTER_ENUM_LOCAL, NULL, 4, (PBYTE) pinfo4,
dwNeeded, &dwNeeded, &dwReturned) ;
hdc = CreateDC (NULL, pinfo4->pPrinterName, NULL, NULL) ;
free (pinfo4) ;
}
return hdc ;
}
...全文

相关推荐

Delphi EXE + BPL + DLL框架(源代码和示例)

Delphi EXE + BPL + DLL框架(源代码和示例) 在Delphi开发领域,追求灵活与高效的你是否还在为频繁的EXE更新而头疼?来尝试这一革命性的框架设计吧!本资源为你呈现一个先进的Delphi应用程序架构,它将彻底改变你对传统单EXE应用的固有认知。 框架简介 此框架旨在提供一种模块化开发方案,通过结合EXE主程序、BPL(Borland Package Library)以及DLL(Dynamic Link Library),实现软件组件的独立管理和升级。这意味着,开发者可以针对任何功能模块进行独立修改或优化,而无需重新发布整个应用程序,极大提高了维护效率和部署灵活性。 核心优势 模块化开发:每个功能作为单独的BPL或DLL,便于团队协作和代码复用。 动态加载:运行时按需加载模块,减少启动时间,提升用户体验。 灵活升级:只需替换对应的BPL/DLL,即可完成特定功能的更新,无需整体覆盖安装。 易于维护:局部修改不影响全局,降低了版本迭代的成本。 包含内容 完整源代码:深入了解框架的设计原理与实现细节。 示例应用程序:实践是检验真理的唯一标准,通过实例快速上手,直观体

tjsoft

北洋标签打印机二次开发实战:DLL调用、打印流程与踩坑记录

在工业自动化和物流仓储场景中,标签打印机的软件集成是常见需求。开发者通常通过DLL二次开发或指令直发方式控制打印机,其中DLL封装了底层通信、状态查询和字符编码等复杂逻辑,能显著降低开发门槛。本文以北洋标签打印机开发包为例,详细讲解其初始化连接、标签任务创建、文本条码二维码绘制、打印参数设置等核心API调用流程,并分享多机并发、错误码排查、中文乱码、网口连接等实战经验。通过合理配置标签尺寸与偏移量,可快速实现稳定的批量打印,提升仓储管理效率。无论是C#、C++还是Python开发者,掌握这些方法都能有效应对

weixin_34054866

delphi 调试时总出现cpu窗口,ntdll.dll点的解决方法

delphi 调试时总出现cpu窗口,ntdll.dll点的解决方法delphi 调试时总出现cpu窗口,ntdll.dll点的解决方法

lili67561420

Delphi SpeedUp 2.7

Delphi工具,可以提升Delphi 7 IDE启动速度。

linspl

Delphi的IIS控制单元

最近为了解决一些IIS问题,很是头疼,资料很少,都是转过来转过去的东西,一点实用价值都没有 无意在网上搜到这个已经封装好的单元,简单地测试了下,可以正常使用 测试环境是XE2 + IIS6 + IIS7 原代码地址:http://read.pudn.com/downloads198/sourcecode/internet/webserver/933868/Delphi%20Class/IIS_5x_Class.pas__.htm 使用前需要引入(Import a Type Library)adsiis.dll、iisext.dll和activeds.tlb

一如当初
评论 1
收藏 已收藏
分享
返回顶部
kill_net
Windows SDK/API 1,184 成员 22,326 内容