摘要:delphi的procedure of object(一个特殊的指针类型) 理论: //适用于实现不是某一特定过程或函数 type TNotifyEvent = procedure(Sender: TObject) of object; 首先:procedure 也是类型,可以理解为过程类型,定义过 阅读全文
posted @ 2020-01-10 16:48 创新创造学习整合套路 阅读 (22) 评论 (0) 编辑
摘要:unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, V 阅读全文
posted @ 2020-01-09 18:50 创新创造学习整合套路 阅读 (37) 评论 (0) 编辑
摘要:procedure TForm2.saveDfm; var inStream,outStream:TMemoryStream; begin inStream:=TMemoryStream.Create; outStream:=TMemoryStream.Create; try inStream.Wr 阅读全文
posted @ 2020-01-09 18:42 创新创造学习整合套路 阅读 (16) 评论 (0) 编辑
摘要:unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, V 阅读全文
posted @ 2020-01-09 15:01 创新创造学习整合套路 阅读 (14) 评论 (0) 编辑
摘要:unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, V 阅读全文
posted @ 2020-01-09 14:59 创新创造学习整合套路 阅读 (15) 评论 (0) 编辑
摘要:unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, V 阅读全文
posted @ 2020-01-09 14:46 创新创造学习整合套路 阅读 (95) 评论 (0) 编辑
摘要:unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, V 阅读全文
posted @ 2020-01-09 14:36 创新创造学习整合套路 阅读 (25) 评论 (0) 编辑
摘要:unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, V 阅读全文
posted @ 2020-01-09 14:13 创新创造学习整合套路 阅读 (23) 评论 (0) 编辑
摘要:unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, V 阅读全文
posted @ 2020-01-09 14:08 创新创造学习整合套路 阅读 (10) 评论 (0) 编辑
摘要:unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, V 阅读全文
posted @ 2020-01-09 14:06 创新创造学习整合套路 阅读 (33) 评论 (0) 编辑
摘要:unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, V 阅读全文
posted @ 2020-01-09 14:00 创新创造学习整合套路 阅读 (35) 评论 (0) 编辑
摘要://server #include <stdio.h> #include <winsock2.h> #pragma comment(lib,"ws2_32.lib") int main(int argc, char* argv[]) { //初始化WSA WORD sockVersion = MAK 阅读全文
posted @ 2020-01-09 13:40 创新创造学习整合套路 阅读 (26) 评论 (0) 编辑
摘要:// IOCP_TCPIP_Socket_Server.cpp #include <WinSock2.h> #include <Windows.h> #include <vector> #include <iostream> using namespace std; #pragma comment( 阅读全文
posted @ 2020-01-09 13:38 创新创造学习整合套路 阅读 (29) 评论 (0) 编辑
摘要:#include <stdio.h> char Chessboard[8][8]; int QueenPlace(int LocX,int LocY); int N_Queens(int LocX,int LocY,int Queens) { int i,j; int Result=0; if(Qu 阅读全文
posted @ 2020-01-09 13:36 创新创造学习整合套路 阅读 (16) 评论 (0) 编辑
摘要://冒泡 #include <iostream> using namespace std; void bubbleSort(int* list,int index) { for(int i=index;i>0;i--) //index 最大的那个索引 { for(int j=0;j<i;j++) { 阅读全文
posted @ 2020-01-09 13:32 创新创造学习整合套路 阅读 (14) 评论 (0) 编辑
摘要:#include <iostream> using namespace std; const int verMax=9; const int queMax=10; // >=9皆可 struct node//声明图形顶点结构 { int vertex; struct node *next; }; t 阅读全文
posted @ 2020-01-09 13:23 创新创造学习整合套路 阅读 (19) 评论 (0) 编辑
摘要:#include <iostream> using namespace std; #define VertexNum 9 /*定义顶点数*/ struct Node /*声明图形顶点结构*/ { int Vertex; /*邻接顶点数据*/ struct Node *Next; /*下一个邻接顶点* 阅读全文
posted @ 2020-01-09 13:21 创新创造学习整合套路 阅读 (12) 评论 (0) 编辑
摘要:{ADO查询多线程单元} unit ADOThread; interface uses Classes,StdCtrls,ADODB; type TADOThread = class(TThread) private { Private declarations } FListBox:TListBo 阅读全文
posted @ 2020-01-09 11:59 创新创造学习整合套路 阅读 (29) 评论 (0) 编辑
摘要:unit unitFrmMain; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCr 阅读全文
posted @ 2020-01-09 11:47 创新创造学习整合套路 阅读 (13) 评论 (0) 编辑
摘要:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; const WM_TestMessage = WM_USE 阅读全文
posted @ 2020-01-09 11:36 创新创造学习整合套路 阅读 (17) 评论 (0) 编辑
摘要:library dllMouse; uses SysUtils, Classes, UnitHookDLL in 'UnitHookDLL.pas', UnitHookConst in 'UnitHookConst.pas'; {$R *.res} { function StartHook(send 阅读全文
posted @ 2020-01-09 11:35 创新创造学习整合套路 阅读 (19) 评论 (0) 编辑
摘要:unit Unit1; // download by http://www.codefans.net interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; 阅读全文
posted @ 2020-01-09 11:29 创新创造学习整合套路 阅读 (23) 评论 (0) 编辑
摘要:library Key; uses SysUtils, Classes, HookKey_Unit in 'HookKey_Unit.pas'; {$R *.res} exports HookOn,HookOff; begin end. unit HookKey_Unit; interface us 阅读全文
posted @ 2020-01-09 11:27 创新创造学习整合套路 阅读 (22) 评论 (0) 编辑
摘要:unit Unit1; // download by http://www.codefans.net interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, StdCtrls, ExtCtrls; 阅读全文
posted @ 2020-01-09 11:20 创新创造学习整合套路 阅读 (14) 评论 (0) 编辑
摘要:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TMyEdit=class(TEdit) pri 阅读全文
posted @ 2020-01-09 11:06 创新创造学习整合套路 阅读 (10) 评论 (0) 编辑
摘要:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) bt 阅读全文
posted @ 2020-01-09 11:04 创新创造学习整合套路 阅读 (13) 评论 (0) 编辑
摘要:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; const WM_DATA=WM_USER+1025; t 阅读全文
posted @ 2020-01-09 11:00 创新创造学习整合套路 阅读 (30) 评论 (0) 编辑
摘要:library hookdll; uses SysUtils, Windows, Classes, unitHook in 'unitHook.pas'; {$R *.res} const HOOK_MEM_FILENAME = 'tmp.hkt'; var hhk: HHOOK; Hook: ar 阅读全文
posted @ 2020-01-09 10:56 创新创造学习整合套路 阅读 (27) 评论 (0) 编辑
摘要:unit UnitDll; interface uses Windows; const BUFFER_SIZE = 16 * 1024; // 文件映射到内存的大小 const HOOK_MEM_FILENAME = 'MEM_FILE'; // 映像文件名 const HOOK_MUTEX_NAM 阅读全文
posted @ 2020-01-09 10:35 创新创造学习整合套路 阅读 (43) 评论 (0) 编辑
摘要:procedure TForm1.FormCreate(Sender: TObject); begin IdTCPServer1.DefaultPort := 7200; IdTCPServer1.Active := True; end; procedure TForm1.IdTCPServer1C 阅读全文
posted @ 2020-01-09 10:18 创新创造学习整合套路 阅读 (21) 评论 (0) 编辑
摘要:library frmDll; { Important note about DLL memory management: ShareMem must be the first unit in your library's USES clause AND your project's (select 阅读全文
posted @ 2020-01-09 10:14 创新创造学习整合套路 阅读 (22) 评论 (0) 编辑
摘要:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, IdBaseComponent, IdComponent, 阅读全文
posted @ 2020-01-09 10:08 创新创造学习整合套路 阅读 (13) 评论 (0) 编辑
摘要:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls; ty 阅读全文
posted @ 2020-01-09 09:58 创新创造学习整合套路 阅读 (16) 评论 (0) 编辑
摘要:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) bt 阅读全文
posted @ 2020-01-09 09:47 创新创造学习整合套路 阅读 (39) 评论 (0) 编辑
摘要:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) bt 阅读全文
posted @ 2020-01-09 09:43 创新创造学习整合套路 阅读 (23) 评论 (0) 编辑
摘要:{ 前面知道了一个汇编的赋值指令(MOV), 再了解一个加法指令(ADD), 就可以做个例子了. 譬如: ADD AX,BX; 这相当于 Delphi 中的 AX := AX + BX; 另外提前来个列表 - Delphi 可以用汇编管理以下寄存器: 32 位寄存器: EAX EBX ECX EDX 阅读全文
posted @ 2020-01-09 09:36 创新创造学习整合套路 阅读 (12) 评论 (0) 编辑
摘要:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) bt 阅读全文
posted @ 2020-01-09 09:33 创新创造学习整合套路 阅读 (15) 评论 (0) 编辑
摘要: 阅读全文
posted @ 2020-01-09 09:30 创新创造学习整合套路 阅读 (27) 评论 (0) 编辑
摘要:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, frxBarcode, D 阅读全文
posted @ 2020-01-09 09:04 创新创造学习整合套路 阅读 (34) 评论 (0) 编辑
摘要:unit Singleton; (* 单例模式适用于辅助类, 一般伴随于单元的生命周期 *) interface uses SysUtils; type TSingleton = class public class function NewInstance : TObject; override; 阅读全文
posted @ 2020-01-09 09:00 创新创造学习整合套路 阅读 (26) 评论 (0) 编辑