2016年3月30日
delphi cmd（4个例子都是通过管道取得）
[delphi] view plain copy //K8执行DOS并返回结果 function RunDosCommand(Command: string): string; var hReadPipe: THandle; hWritePipe: THandle; SI: TStartUpInfo Read More
posted @ 2016-03-30 20:34 findumars Views(2317) Comments(0) Diggs(0)
取CPU序列号，获取网卡，取硬盘系列号，获取目录下的文件，强制删除目录
[delphi] view plain copy unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type Read More
posted @ 2016-03-30 20:33 findumars Views(1237) Comments(0) Diggs(0)
Delphi中@,^,#,$特殊符号意义
概述： ^: 指针 @: 取址 #: 十进制符 $: 十六进制符 概述： ^: 指针 @: 取址 #: 十进制符 $: 十六进制符 @:取址运算符; var int:integer; p:^integer; begin new(P); int:=24; p:=@int; dispose(P); en Read More
posted @ 2016-03-30 20:28 findumars Views(1771) Comments(0) Diggs(0)
delphi 文件的读取（二进制文件和文本文件）
[delphi] view plain copy procedure TForm_main.Button5Click(Sender: TObject); var myStream:TFileStream; myFileSize:Integer; myTextFile:TextFile; text,d Read More
posted @ 2016-03-30 20:25 findumars Views(4048) Comments(0) Diggs(0)
delphi中用代码实现注册Ocx和Dll（有点怪异，使用CallWindowProc来调用指定函数DllRegisterServer）
在windows系统中，可以通过Regsvr32来实现注册ocx或者dl， 编程时，调用Regsvr32来注册，却不能正常执行。尤其是在Win7系统中，需要管理员身份才能运行。 使用下面的代码则能正常注册。 [delphi] view plain copy //注册 function Registe Read More
posted @ 2016-03-30 20:24 findumars Views(1765) Comments(0) Diggs(0)