01 2015 档案

Delphi Memory-Mapped File简单示例

摘要：{Copyright ?1999 by Delphi 5 Developer's Guide - Xavier Pacheco and Steve Teixeira}unit MainFrm;interfaceuses Windows, Messages, SysUtils, Classes, G... 阅读全文

posted @ 2015-01-31 01:35 庚武阅读(996) 评论(0) 推荐(0) 编辑

Delphi HOOK示例

摘要：本应用程序的Hook:unit UFrmMain;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = c... 阅读全文

posted @ 2015-01-30 18:05 庚武阅读(3898) 评论(0) 推荐(0) 编辑

DLL共享节

该文被密码保护。

posted @ 2015-01-30 17:30 庚武阅读(2) 评论(0) 推荐(0) 编辑

Delphi调用约定

摘要：Register Calling ConventionOjbect Pascal的默认调用约定为register,寄存器调用约定会将前三个参数依次放入eax,edx,ecx,返回值是eax(根据类型不同有差别).function Add3Int(i,j,k:integer): integer;//i... 阅读全文

posted @ 2015-01-29 15:58 庚武阅读(676) 评论(0) 推荐(1) 编辑

Delphi只允许运行一个实例

该文被密码保护。

posted @ 2015-01-29 12:14 庚武阅读(1) 评论(0) 推荐(0) 编辑

Delphi根据进程名取得进程ID

该文被密码保护。

posted @ 2015-01-28 18:17 庚武阅读(2) 评论(0) 推荐(0) 编辑

Delphi FindowWindow,FindowWindowEx

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

posted @ 2015-01-28 16:00 庚武阅读(504) 评论(0) 推荐(0) 编辑

Delphi自定义窗口过程WinProc

摘要：unit ScWndProc;interfaceuses Forms, Messages;const DDGM_FOOMSG = WM_USER; //自定义消息implementationuses windows,sysutils,Dialogs;var WProc : Pointe... 阅读全文

posted @ 2015-01-27 14:22 庚武阅读(1250) 评论(0) 推荐(0) 编辑

Delphi Dll示例

摘要：//MyInt.pasunit MyInt;interface{$IFNDEF MYLIB}function MyAdd(a,b:integer):integer ;stdcall;{$ENDIF}implementation{$IFNDEF MYLIB}function MyAdd; extern... 阅读全文

posted @ 2015-01-26 11:54 庚武阅读(259) 评论(0) 推荐(0) 编辑

Emacs gdb调试

该文被密码保护。

posted @ 2015-01-23 11:02 庚武阅读(1) 评论(0) 推荐(0) 编辑

Delphi映射模式实验

摘要：unit FrmMappingMode;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TFrmMM = class(TForm) ... 阅读全文

posted @ 2015-01-14 17:18 庚武阅读(596) 评论(0) 推荐(0) 编辑

Delphi 全局画点TCanvas.Pixels[X,Y]

摘要：procedure TForm1.btnChangePixelClick(Sender: TObject);var baseX : integer ; baseY : integer ; i,j : integer; c : TCanvas;begin baseX :=... 阅读全文

posted @ 2015-01-14 12:05 庚武阅读(1799) 评论(0) 推荐(0) 编辑

sql server 列修改null 变成not null

摘要：ALTER TABLE [table_name] ALTER COLUMN [column_name] [datetime] NOT NULL--datetime是列的类型阅读全文

posted @ 2015-01-07 12:16 庚武阅读(2593) 评论(0) 推荐(0) 编辑

Delphi记录record中的变体

摘要：program Day4;{$APPTYPE CONSOLE}uses SysUtils, Util in 'Util.pas';type TPerson = packed record ID : integer; case IsFullJob : Boolea... 阅读全文

posted @ 2015-01-06 12:02 庚武阅读(579) 评论(0) 推荐(0) 编辑

delphi无边框可拖动窗体

摘要：unit UFrmModless;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TFrmModeless = cla... 阅读全文

posted @ 2015-01-04 18:39 庚武阅读(483) 评论(0) 推荐(0) 编辑

意志力

该文被密码保护。

posted @ 2015-01-04 11:41 庚武阅读(1) 评论(0) 推荐(0) 编辑