2020年1月9日
delphi 文本 记录 流式 读写文件
摘要： 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 创新创造学习整合套路 阅读(549) 评论(0) 推荐(0)
delphi save .dfm to .txt
摘要： procedure TForm2.saveDfm; var inStream,outStream:TMemoryStream; begin inStream:=TMemoryStream.Create; outStream:=TMemoryStream.Create; try inStream.Wr 阅读全文
posted @ 2020-01-09 18:42 创新创造学习整合套路 阅读(181) 评论(0) 推荐(0)
delphi xml
摘要： 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 创新创造学习整合套路 阅读(234) 评论(0) 推荐(0)
delphi json
摘要： 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 创新创造学习整合套路 阅读(270) 评论(0) 推荐(0)
delphi http server
摘要： 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 创新创造学习整合套路 阅读(1771) 评论(0) 推荐(0)
dac FDMemTable
摘要： 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 创新创造学习整合套路 阅读(358) 评论(0) 推荐(0)
dac oracle
摘要： 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 创新创造学习整合套路 阅读(249) 评论(0) 推荐(0)
dac mssql server
摘要： 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 创新创造学习整合套路 阅读(222) 评论(0) 推荐(0)
dxSkinController1 皮肤使用
摘要： 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 创新创造学习整合套路 阅读(714) 评论(0) 推荐(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 创新创造学习整合套路 阅读(789) 评论(0) 推荐(0)
c++ socket
摘要： //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 创新创造学习整合套路 阅读(413) 评论(0) 推荐(0)
c++ iocp
摘要： // 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 创新创造学习整合套路 阅读(694) 评论(0) 推荐(0)
c++ 八皇后
摘要： #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 创新创造学习整合套路 阅读(257) 评论(0) 推荐(0)
c++ 排序 冒泡 插入 选择 快速
摘要： //冒泡 #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 创新创造学习整合套路 阅读(228) 评论(0) 推荐(0)
c++ 广度优先搜索
摘要： #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 创新创造学习整合套路 阅读(644) 评论(0) 推荐(0)
c++ 深度优先算法
摘要： #include <iostream> using namespace std; #define VertexNum 9 /*定义顶点数*/ struct Node /*声明图形顶点结构*/ { int Vertex; /*邻接顶点数据*/ struct Node *Next; /*下一个邻接顶点* 阅读全文
posted @ 2020-01-09 13:21 创新创造学习整合套路 阅读(646) 评论(0) 推荐(0)
ADO多线程数据库查询
摘要： {ADO查询多线程单元} unit ADOThread; interface uses Classes,StdCtrls,ADODB; type TADOThread = class(TThread) private { Private declarations } FListBox:TListBo 阅读全文
posted @ 2020-01-09 11:59 创新创造学习整合套路 阅读(264) 评论(0) 推荐(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 创新创造学习整合套路 阅读(154) 评论(0) 推荐(0)
hook截获自定义消息
摘要： 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 创新创造学习整合套路 阅读(377) 评论(0) 推荐(0)
hook鼠标
摘要： library dllMouse; uses SysUtils, Classes, UnitHookDLL in 'UnitHookDLL.pas', UnitHookConst in 'UnitHookConst.pas'; {$R *.res} { function StartHook(send 阅读全文
posted @ 2020-01-09 11:35 创新创造学习整合套路 阅读(261) 评论(0) 推荐(0)
hook鼠标键盘记录和回放
摘要： 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 创新创造学习整合套路 阅读(412) 评论(0) 推荐(0)
hook键盘钩子 带dll
摘要： 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 创新创造学习整合套路 阅读(277) 评论(0) 推荐(0)
hook键盘钩子_非dll
摘要： 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 创新创造学习整合套路 阅读(273) 评论(0) 推荐(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 创新创造学习整合套路 阅读(168) 评论(0) 推荐(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 创新创造学习整合套路 阅读(327) 评论(0) 推荐(0)
两个exe共享内存数据
摘要： 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 创新创造学习整合套路 阅读(519) 评论(0) 推荐(0)
Api_hook 拦截 messageBox 等函数
摘要： 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 创新创造学习整合套路 阅读(404) 评论(0) 推荐(0)
dll hook 共享内存数据
摘要： 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 创新创造学习整合套路 阅读(552) 评论(0) 推荐(0)
indy tcpclient tcpServer
摘要： procedure TForm1.FormCreate(Sender: TObject); begin IdTCPServer1.DefaultPort := 7200; IdTCPServer1.Active := True; end; procedure TForm1.IdTCPServer1C 阅读全文
posted @ 2020-01-09 10:18 创新创造学习整合套路 阅读(292) 评论(0) 推荐(0)
Delphi生成即调用带窗体的Dll
摘要： 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 创新创造学习整合套路 阅读(482) 评论(0) 推荐(0)
本地同步到网络时间
摘要： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, IdBaseComponent, IdComponent, 阅读全文
posted @ 2020-01-09 10:08 创新创造学习整合套路 阅读(196) 评论(0) 推荐(0)
tfield的字段名和显示名
摘要： 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 创新创造学习整合套路 阅读(418) 评论(0) 推荐(0)
Delphi流的操作_文件合并
摘要： 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 创新创造学习整合套路 阅读(541) 评论(0) 推荐(0)
Delphi7 流操作_压缩
摘要： 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 创新创造学习整合套路 阅读(374) 评论(0) 推荐(0)
delphi内嵌汇编
摘要： { 前面知道了一个汇编的赋值指令(MOV), 再了解一个加法指令(ADD), 就可以做个例子了. 譬如: ADD AX,BX; 这相当于 Delphi 中的 AX := AX + BX; 另外提前来个列表 - Delphi 可以用汇编管理以下寄存器: 32 位寄存器: EAX EBX ECX EDX 阅读全文
posted @ 2020-01-09 09:36 创新创造学习整合套路 阅读(330) 评论(0) 推荐(0)
给rar文件加个自定义头
摘要： 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 创新创造学习整合套路 阅读(260) 评论(0) 推荐(0)
网页嵌 activeXForm 中显示fastReport
摘要： 阅读全文
posted @ 2020-01-09 09:30 创新创造学习整合套路 阅读(279) 评论(0) 推荐(0)
fastreport小入门
摘要： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, frxBarcode, D 阅读全文
posted @ 2020-01-09 09:04 创新创造学习整合套路 阅读(422) 评论(0) 推荐(0)
delphi 单例模式
摘要： unit Singleton; (* 单例模式适用于辅助类, 一般伴随于单元的生命周期 *) interface uses SysUtils; type TSingleton = class public class function NewInstance : TObject; override; 阅读全文
posted @ 2020-01-09 09:00 创新创造学习整合套路 阅读(507) 评论(0) 推荐(0)
idHttpServer接收类型
摘要： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, IdBaseComponent, IdComponent, 阅读全文
posted @ 2020-01-09 08:52 创新创造学习整合套路 阅读(574) 评论(0) 推荐(0)
idtcp实现文件下载和上传
摘要： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdBaseComponent, IdComponent, IdTCPConn 阅读全文
posted @ 2020-01-09 08:46 创新创造学习整合套路 阅读(315) 评论(0) 推荐(0)
delphi控制word 标题 字符和位置
摘要： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls ,OleCtnrs,comobj,Word2000, Ole 阅读全文
posted @ 2020-01-09 08:42 创新创造学习整合套路 阅读(439) 评论(0) 推荐(0)
delphi实现FTP上传与下载
摘要： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, IdBaseComponent, IdComponent, 阅读全文
posted @ 2020-01-09 08:32 创新创造学习整合套路 阅读(2987) 评论(0) 推荐(0)
idhttp文件的上传和下载
摘要： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, IdBaseComponent, IdComponent, IdTCPConn 阅读全文
posted @ 2020-01-09 08:26 创新创造学习整合套路 阅读(1136) 评论(0) 推荐(0)
自定义的listbox支持拖放
摘要： unit unit2; interface uses Classes, Controls, StdCtrls; type TListBox2 = class(TCustomListBox) protected procedure DragOver(Source: TObject; X: Intege 阅读全文
posted @ 2020-01-09 08:18 创新创造学习整合套路 阅读(199) 评论(0) 推荐(0)