delphi使用outputdebugstring调试程序和写系统日志 procedure TForm1.btn1Click(Sender: TObject); begin OutputDebugString('dddddd'); OutputDebugString('); end; procedure TForm1.btn2Click(Sender: TObject); var EvtSrcHand: THandle; EvtMsg: String; p:Pointer; i:integer;…

title author date CreateTime categories C# 写系统日志 lindexi 2018-08-10 19:16:53 +0800 2018-2-13 17:23:3 +0800 WPF WPF调试 因为我不想使用自己写文件,我的软件是绿色的,所以把日志写到 Windows 日志. 首先告诉大家什么是系统日志,请看下面,这就是我要告诉大家的日志.写在这里就把日志放在 系统日志那里,看起来很厉害. 如果需要写日志,需要管理员权限,如果没有权限会出现下面异常 Sys…

不久前写了个抓取网页内容的小程序,跑了一晚上,本以为早上起来都抓完了,谁知道程序死掉了,分析半天,才发现用tmemo来记录日志的信息太多了,越积越多,本来memo的容量就不大.对于无法控制信息量的日志来说,有可能造成崩溃.记得见过盒子上一个关于手机发短信的小程序,上面有个日志的写法不错.方法:1.每写一行日志,先判断memo的行数是否超过自己设定的行数,我一般设为1000行,这样保存的日志大小一般在64K左右2.判断保存日志的目录是否存在,不存在就建 一个3.用日期加时间取一个日志名,象这种20…

看到论坛好多人问win7下写注册表的问题,我结合自己的理解写了一点东西,首先声明一下,本人初学Delphi,水平有限,大家见笑了,有什么不对之处请老鸟多指点. [背景]win7/Vista提供的UAC机制,是win7/Vista的新增功能之一.它的主要目的是防止对于操作系统本身的恶意修改.如果想对于win7/Vista的系统设置进行改动,必须通过UAC的验证才能够进行.通过这样的手段,大大提供了系统的安全性.关于UAC的利弊,网络上的说法褒贬不一,在这里就不具体讨论了. [应用]Delphi写的…

原文地址 https://www.peganza.com/delphi-and-outputdebugstring.html Ever wanted to monitor your Delphi application in realtime, and be able to view log messages? Of course you can always run in full debug mode inside RAD Studio IDE. Another way is to outp…

曾经想要实时监控您的Delphi应用程序,并能够查看日志消息吗?当然,您始终可以在RAD Studio IDE中以完全调试模式运行.另一种方法是输出日志消息,例如输出到文本文件.您还可以使用OutputDebugString函数. 这种方法的一个优点是它尽可能少地影响您的应用程序.您不必关心文件处理.只需调用一个函数. OutputDebugString函数在Win32 API中的RTL单元Winapi.Windows中定义. 你只需从你的代码中调用它,如下所示: .. uses Winapi.…

报表的打印是每个项目都会遇到的问题.由于报表格式要求五花八门,往往又同时要求打印格式可方便调整.作为一种替代方法,可以将需要打印的报表导出到Excel/Word,打印交给Office去吧.由于Office的普及度较高,用户比较熟悉,也容易接受. 下面主要是在开发中涉及到的在Delphi中写Excel文件方面的问题,直接用代码行来举例说明.测试所用Excel的版本为9.0,即Excel2000 1.总的思路是将EXCEL作为一个OLE对象来操作. //在单元use部分加上:ComObj, Exce…

原文地址 https://www.peganza.com/delphi-and-outputdebugstring.html 曾经想要实时监控您的Delphi应用程序,并能够查看日志消息吗?当然,您始终可以在RAD Studio IDE中以完全调试模式运行.另一种方法是输出日志消息,例如输出到文本文件.您还可以使用OutputDebugString函数. 这种方法的一个优点是它尽可能少地影响您的应用程序.您不必关心文件处理.只需调用一个函数. OutputDebugString函数在Win32…

在开始进入正题前先罗嗦几句: 1.本人也刚学Delphi不久,也刚通过<诛仙>游戏的绝大部分CALL不久.所以在以下所说所列举的例子并不算是名门正中的写法,如有不当,请各位原谅. 2.本人所学基本都是在“漆黑一片”中自己摸索出来的.也正因如此,因而深感各位新手想入门但又无处可问的无奈心情.所以将在下面为各位新手较详细地列举2个CALL的应用例子.希望大家不要象我一样走那么多的弯路.更希望论坛的各位老大能多多开源,多点无私的奉献. 抗日时期,中国之所以能屡屡打败强大的帝国,就是因为有大多数国人的…

FUNCTION WritableDir(CONST Dir : STRING) : BOOLEAN; VAR FIL : FILE; N : STRING; I : Cardinal; BEGIN REPEAT N:=IncludeTrailingPathDelimiter(Dir); FOR I:= TO -LENGTH(N) DO N:=N+CHAR(RANDOM()+) UNTIL NOT FileExists(N); Result:=TRUE; TRY AssignFile(FIL,N…