摘要： 编译指令 PointerMath 默认 off; 打开后, 可以像数组一样地读写指针中的系列数据, 非常方便!//测试整数指针procedure TForm1.Button1Click(Sender: TObject);var p: PInteger; i: Integer;begin{$POINTERMATH ON} //写入 p := GetMemory(SizeOf(Integer)... 阅读全文

摘要： var s1,s2: string; b1,b2: Boolean;begin s1 := 'C:\Temp'; s2 := 'c:\temp'; b1 := SameText(s1, s2); //True b2 := s1 = s2; //False ShowMessage(BoolToStr(b1,True) + ' - ' + BoolToStr(b2,True));end; 阅读全文

摘要： EncdDecd 单元: EncodeString、DecodeString、EncodeBase64、DecodeBase64uses EncdDecd;const str = '万一的 Delphi 博客';procedure TForm1.Button1Click(Sender: TObjec... 阅读全文

摘要： //按单字节反转内存的函数procedure ReverseMemory(P: PByte; Len: Integer); overload;var B: Byte; P2: PByte;begin P2 := P; Inc(P2, Len - 1); while Integer(P) 阅读全文

摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button... 阅读全文

摘要： 问题来源: http://www.cnblogs.com/del/archive/2009/10/27/1590975.html#1696167procedure TForm1.Button1Click(Sender: TObject);var hEdit: HWND; str: string;begin str := '准备要添加到记事本的字符串'; WinExec('Notepad.e... 阅读全文

摘要： 这两个参数也都是可以 Get(waveOutGetPlaybackRate、waveOutGetPitch)设备默认的播放速度是 $00010000, 此值乘以 2 是快一倍, 除以 2 是慢一倍; 最快可到 $000F8000.设备默认的音高参数是 $00010000, 此值乘以 2 是高一倍, 除以 2 是低一倍; 最高可到 $000F8000.可能有很多声卡不支持, 我的 IBM 手提就不支... 阅读全文

摘要： 左右声道的音量是单调的; 表示音量的 32 位整数的低 16 位是左声道、高 16 位是右声道.代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm)... 阅读全文

摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton... 阅读全文

摘要： 使用窗口接受音频设备发出的消息:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; ... 阅读全文