摘要： //按单字节反转内存的函数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... 阅读全文