unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; Button6: TBu

Delphi写的DLL,OCX中如果使用了TThread.Synchronze(Proc),可能导致线程死锁,原因是无法唤醒EXE中主线程, Synchronze并不会进入EXE主线程消息队列. 下面的程序自动解决此问题,只需要加入DLL,OCX工程文件中,在DLL,OCX中便可以使用TThread.Synchronze(Proc)了,无需再写一行代码. //解决Delphi编译的DLL,OCX文件中的线程调用 TThread.Synchronize后挂起无法再激活问题 //调用了TThread

http://blog.csdn.net/zyyjc/article/details/6530728 别现在有些POS机是双屏幕的(比如卡西瓦POS机),一个屏幕可以当顾客显示屏用,当闲时也可以显示一些广告.其实用delphi写双屏幕的程序是比较简单的,Screen.MonitorCount就是当前系统屏幕的数量,TForm也有与屏幕相关的属性,比如DefaluMonitor,不过想设一个窗体显示在哪个屏幕上好象没有属性(可能我没找到),不过研究VCL代码发现如何把一个窗体显示在某个屏幕上(可以

C#的调用Delphi的DLL没有问题,DLL回调时遇到了麻烦,网上找了个方法,解决了这个问题 Delphi部分,列举了三种回调函数定义 library test; uses SysUtils; {$R *.res} type TCallback = procedure (P: PChar); stdcall; TMethodCallback = procedure (P: PChar) of object; stdcall; procedure DllTest1(Callback: TCall

//2.2 代码块--写日志 //调用例句如:LogMsg('FTP上传线程终止',False,true); procedure LogMsg(AMsg: string; const blnIsErrorMsg: boolean = False; const BoolSaveToFile: Boolean = True); var strMsg: string; begin try //FLogMemoCallFlag.Enter; strMsg := AMsg; if blnIsErrorMs

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

unit uProgLog; interface uses Windows, SysUtils, SyncObjs; const C_LOG_LEVEL_TRACE = $; C_LOG_LEVEL_WARNING = $; C_LOG_LEVEL_ERROR = $; type EnumSeverity = (TraceLevel, WarningLevel, ErrorLevel, LogLevel); function SeverityDesc(severity: EnumSeverity

... var f: TextFile; begin AssignFile(f, 'test.txt'); Rewrite(f); write(f, #$EF+#$BB+#$BF); // UTF-8 BOM.关键就是写入这个UTF-8的BOM, BOM 是 Bype Order Mark 的缩写. writeln(f, UTF8Encode('中文')); CloseFile(f); ... 在delphi中TextFile对象创建文件时默认是 ANSI 编码. 这样中文或者其他非英文字符显示

参加工作了就很少有时间去玩delphi了,这个适合初学者看看,大神勿喷 工具 delhpi7.0 access数据库 原则win下有安装office就可用 当初不太熟悉sqlite所有没用这做数据库. {***************************************************************************** * 版本信息: * 浅诺桌面管理工具v1.0 * 文件名称: * UseShortcutKey.pas * 内容摘要: * 桌面快捷方式管理

The Dynamic Link Library (DLL) is stored separately from the target application and shared among different applications, compared to Static Library. The DLL is the file extension on Windows while on Linux, it is *.so (Shared Object). The *.so/*.dll c

用了AlphaControl皮肤组件,原理很简单,就是CSDN的一个漏洞.我主要是使用WinInet来获取相关信息,然后从里面分析出真实的下载URL,同时我也是用了AES加密.function GetWebPage(const Url: string):string;var  Session,  Httpfile:HINTERNET;  szSizeBuffer:Pointer;  dwLengthSizeBuffer:DWord;  dwReserved:DWord;  dwFileSize:

program Project1; { Types and Structures Definition }type  WNDCLASSEX = packed record    cbSize: LongWord;    style: LongWord;    lpfnWndProc: Pointer;    cbClsExtra: Integer;    cbWndExtra: Integer;    hInstance: LongWord;    hIcon: LongWord;    hCu

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

偶然翻到很久以前用DELPHI写的一个小程序,实现功能是在后台默默关闭符合条件的进程,并隐藏自身.编写目的是为了防止办公电脑运行游戏. 实现原理是: 1.程序运行后将自身以不同的名称一式三份存到系统各目录中,将其中一个COPY写到注册表里开机自启动,然后修改注册表中txt文件和exe文件打开方式分别指向另两个COPY,达到监控目的. 2.程序一但激活首先会确认各COPY是否存在以及注册表关联是否正常,然后再检查系统是否运行在禁止名单中的进程,发现就杀死. 3.如果程序监控到用户运行regedit

参考:http://blog.csdn.net/ninetowns2008/article/details/6311663 结合这篇博客:http://www.cnblogs.com/xumenger/p/4372289.html 再结合:http://blog.csdn.net/lailai186/article/details/8770487 1.DLL简介:2.调用DLL:3.创建DLL:4.两个技巧:5.初始化:6.例外处理 1.DLL简介 DLL是Dynamic-Link Librar

1.我做了三年的.NET,也是三个月前因为项目需要转的delphi整个过渡差不多要一周到两周.正常情况两周后就能熟悉delphi.delphi可以调整开发环境的,你把他的属性和解决方案窗口调成和你用VS一样的用起来就习惯多了.语法的话pascal和C#都是能拉控件的,做起来都是一个模式,非常类似.即便是自己写组件,个人感觉delphi写起来更简单些.如果是做数据库软件的话,delphi用起来就相当方便,和数据库连接代码几乎不用写的.如果是用delphi做工控或网络编程也差不多.delphi其实也

一.开使你的第一个DLL专案 1.File->Close all->File->New﹝DLL﹞ 代码: //自动产生Code如下 library Project2; //这有段废话 uses SysUtils, Classes; {$R *.RES} begin end. 2.加个Func进来: 代码: library Project2; uses SysUtils, Classes; Function MyMax ( X , Y : integer ) : integer ; std

273265088 我用原生Listbox与你的组件组合...创造了奇迹..搞了一个非常复杂的 UI .. 每个item高度 包括里面的元素 以及事件都是动态的搞了好几个小时感觉UI 非常完美比客户要求的还要美所有评论都是动态的 包括 赞的人 等等评论类似QQ评论..有几个人 就显示几条信息所以这里的高度也是动态 自已调整的..老师的组件当初意在和自己的ListBox组合开发...谁知道原生的组合起来更牛B 你的服务端用什么做的?我自己写的中间层..基于通讯组件 RTC中间层的作用是什么?接受J

写博客写了这么久,但是一直不知道应该怎么样写函数之间的调用关系和执行顺序,因为不停的跳来跳去的,但是写的时候却只能顺序写调用关系,直到今天发现这种写法很不错: TButton创建窗口是在CreateWnd方法开始,下面是创建的一个大概流程:TButton.CreateWnd;| TWinControl.CreateWnd;| | TButton.CreateParams(var Params: TCreateParams);| | | TButtonControl.CreateParams(va

这两天一直在琢磨自动化测试,自动化测试,其实与单元测试有一些相同之处,单元测试的目的也是可以一次写,多次运行,对于测试驱动及后期维护真是有非常多的好处,用自动化测试工具也是如何,主要目的是为了回归测试.单元测试的时候,我们要先准备数据,再测试,最后再进行数据清理,自动化测试也是如此,大家千万别觉得自动化测试就是开个测试工具,然后就不用动手了之类的云云.更多的准备知识,就暂时不需要了.    工具的选择,看当前主流的C/S都是MI公司,估计WR(winrunner)和QTP(QUICK TEST