一、基础知识介绍： 1、ActiveForm的基础知识介绍： 在Delphi中，ActiveForm是封装了Delphi Form的一种ActiveX控件。ActiveForm其实是一种标准的Delphi From(ActiveForm继承自TForm)。ActiveForm中可能会包含某些VCL或 Read More
posted @ 2017-04-14 23:53
findumars
Views(1640)
Comments(0)
Diggs(0)
一、ActiveX应用情况简介： ActiveX控件也就是一般所说的OCX控件，它是 ActiveX技术的一部分。ActiveX是微软公司推出的基于组件对象模型COM的技术，包括对Windows 32位应用编程接口(Win32 API)和组件对象模型的一系列扩充和增强，目标是把计算机桌面环境与因特网 Read More
posted @ 2017-04-14 23:51
findumars
Views(4072)
Comments(0)
Diggs(0)
C/C++浮点数在内存中的存储方式 任何数据在内存中都是以二进制的形式存储的，例如一个short型数据1156，其二进制表示形式为00000100 10000100。则在Intel CPU架构的系统中，存放方式为 10000100(低地址单元) 00000100(高地址单元)，因为Intel CPU Read More
posted @ 2017-04-14 23:50
findumars
Views(356)
Comments(0)
Diggs(0)
一、引子：现在的Windows应用程序几乎都使用图标、图片、光标、声音等，我们称它们为资源（Resource）。最简单的使用资源的办法是把这些资源的源文件打入软件包，以方便程序需要的时候调用。资源是程序的一部分，程序要正常运行就离不了资源文件。但是它是不可执行代码。为了更好地管理资源，Delphi中 Read More
posted @ 2017-04-14 23:46
findumars
Views(1753)
Comments(0)
Diggs(0)
编写控件的基本步骤 1.确定一个祖先类 2.创建一个组件单元 3.在新控件中添加属性、方法和事件 事件定义方法如下： type private FOnClick:TNotifyEvent ;//( 声明事件变量以保存过程指针) published property OnClick:TNotifyEv Read More
posted @ 2017-04-14 23:41
findumars
Views(842)
Comments(0)
Diggs(0)
定时器是一个在特定时间或者规则间隔被激发的内核对象。结合定时器的异步程序调用可以允许回调函数在任何定时器被激发的时候执行。本文的例子代码显示了如何实现。 使用本定时器时，你需要把常量_WIN32_WINNT定义为0x0400，并且此常量应该在包之前定义，以确保声明合适的定时器原型函数。 通过调用Cr Read More
posted @ 2017-04-14 23:37
findumars
Views(705)
Comments(0)
Diggs(0)
interface uses Classes, SysUtils; type TParallelProc = reference to procedure(i: Integer; ThreadID: Integer); TParallel = class(TThread) private FProc: TParallelProc; FThreadID: I... Read More
posted @ 2017-04-14 23:36
findumars
Views(566)
Comments(0)
Diggs(0)
当您使用完对象后，您应该及时撤销它，以便把这个对象占用的内存释放出来。您可以通过调用一个注销方法来撤销您的对象，它会释放分配给这个对象的内存。 Delphi的注销方法有两个：Destroy和Free。Delphi建议使用Free，因为它比Destroy更为安全，同时调用Free会生成效率更高的代码。 Read More
posted @ 2017-04-14 23:05
findumars
Views(708)
Comments(0)
Diggs(0)
一、DLL动态链接库文件的知识简介： Windows的发展要求允许同时运行的几个程序共享一组函数的单一拷贝。动态链接库就是在这种情况下出现的。动态链接库不用重复编译或链接，一旦装入内存，Dlls函数可以被系统中的任何正在运行的应用程序软件所使用，而不必再将DLLs函数的另一拷贝装入内存。 任何应用程 Read More
posted @ 2017-04-14 23:04
findumars
Views(3273)
Comments(0)
Diggs(0)
1.透明问题。 要重新调整界面确实很麻烦，以前用DELPHI开发的界面都很土，和WEB真是没办法比。（我以前用的是DELPHI7），现在回想起来，DELPHI难做的原因是：没有透明控件。所有控件都是不透明的，并且大部分控件就是灰色的，一放到窗体上，就像一块膏药一样贴在上面。即使界面上放几副图片也难以 Read More
posted @ 2017-04-14 23:03
findumars
Views(3126)
Comments(0)
Diggs(0)
在Delphi中创建线程，请一定使用BeginThread()代替CreateThread()创建线程！ 如果直接使用Win32的API函数CreateThread()创建多个线程，也是可以创建的。但是，你应该明白，在每个线程中动态分配和销毁内存块，是需要同步保护的。Delphi语言中有一个在使用多 Read More
posted @ 2017-04-14 22:44
findumars
Views(1802)
Comments(0)
Diggs(0)
1.所有程序最小化 uses ComObj; var shell : OleVariant; begin shell := CreateOleObject('Shell.Application'); shell.minimizeAll; end; 2.最小化其他程序 spy++ 查找要最小化的程序c Read More
posted @ 2017-04-14 22:41
findumars
Views(1181)
Comments(0)
Diggs(0)
ACPI规范定义了一台兼容ACPI的计算机系统可以有以下七个状态（所谓的全局状态）： 此外，当操作系统在不支持ACPI的情况下运行，这种状态被定义为Legacy。在这个状态下，硬件和电源不是通过ACPI来管理的，实际上已经禁用了ACPI。 （参考资料：ACPI规范3.0b版的链接在下面 Extern Read More
posted @ 2017-04-14 22:40
findumars
Views(11057)
Comments(0)
Diggs(1)
TShutDownStatus = (sdShutDown,sdReboot,sdLogOff,sdPowerOff); procedure ShutDown(sdStatus : TShutDownStatus); var NewState: TTokenPrivileges; lpLuid: I Read More
posted @ 2017-04-14 22:38
findumars
Views(1316)
Comments(0)
Diggs(0)
有个API就是UrlDownloadToFile。不仅如此，Delphi的一些控件也可以轻松实现下载，如NMHTTP，指定NMHTTP1.InputFileMode := ture; 指定Body为本地文件名，指定Get就可以下载了。uses UrlMon; function DownloadFil Read More
posted @ 2017-04-14 22:37
findumars
Views(3977)
Comments(0)
Diggs(0)
Http协议的通信遵循一定的约定.例如,请求一个文件的时候先发送Get请求,然后服务器会返回请求的数据.如果需要进行断点传输,那么先发送'HEAD /'请求,其中返回的'Content-Length: '就是文件实际大小.将其和我们本地需要断点下载的文件大小比较,发送GET请求和发送需要下载的文件开 Read More
posted @ 2017-04-14 22:36
findumars
Views(1671)
Comments(0)
Diggs(0)
API函数 function GetSystemMenu(hWnd:HWND;bRevert:BOOL):HMENU;stdcall; 参数说明： hWnd: 所要取得系统菜单句柄的目标窗口句柄。 bRevert:是否修改原始菜单。 返回一个HMENU型的菜单句柄。 通过GetSystemMenu得 Read More
posted @ 2017-04-14 22:35
findumars
Views(1679)
Comments(1)
Diggs(0)
function FindWindowThroughWindowText(WindowText: string): THandle;var hCurrentWindow: THandle; cnt: Integer; WindowTitle: array [0 .. 254] of Char;beg Read More
posted @ 2017-04-14 22:34
findumars
Views(1653)
Comments(0)
Diggs(0)
TObject = class //创建 constructor Create; //释放 procedure Free; //初始化实列 class function InitInstance(Instance: Pointer): TObject; //清除实列 procedure Cleanu Read More
posted @ 2017-04-14 22:34
findumars
Views(382)
Comments(0)
Diggs(0)
unit FileMap;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, StdCtrls, Dialogs;type //定义TFileMap类 TFileMap = class(TCom Read More
posted @ 2017-04-14 22:32
findumars
Views(1106)
Comments(0)
Diggs(0)
浙公网安备 33010602011771号