随笔分类 - 01.Pascal / Delphi
摘要:procedure TForm1.btnHttpGetClick(Sender: TObject);begin idtcpclnt1.Host := '192.168.10.88'; idtcpclnt1.Port := 80; idtcpclnt1.Connect(); t...
阅读全文
摘要:{Copyright ?1999 by Delphi 5 Developer's Guide - Xavier Pacheco and Steve Teixeira}unit MainFrm;interfaceuses Windows, Messages, SysUtils, Classes, G...
阅读全文
摘要:本应用程序的Hook:unit UFrmMain;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = c...
阅读全文
摘要:Register Calling ConventionOjbect Pascal的默认调用约定为register,寄存器调用约定会将前三个参数依次放入eax,edx,ecx,返回值是eax(根据类型不同有差别).function Add3Int(i,j,k:integer): integer;//i...
阅读全文
摘要:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) ...
阅读全文
摘要:unit ScWndProc;interfaceuses Forms, Messages;const DDGM_FOOMSG = WM_USER; //自定义消息implementationuses windows,sysutils,Dialogs;var WProc : Pointe...
阅读全文
摘要://MyInt.pasunit MyInt;interface{$IFNDEF MYLIB}function MyAdd(a,b:integer):integer ;stdcall;{$ENDIF}implementation{$IFNDEF MYLIB}function MyAdd; extern...
阅读全文
摘要:unit FrmMappingMode;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TFrmMM = class(TForm) ...
阅读全文
摘要:procedure TForm1.btnChangePixelClick(Sender: TObject);var baseX : integer ; baseY : integer ; i,j : integer; c : TCanvas;begin baseX :=...
阅读全文
摘要:program Day4;{$APPTYPE CONSOLE}uses SysUtils, Util in 'Util.pas';type TPerson = packed record ID : integer; case IsFullJob : Boolea...
阅读全文
摘要:unit UFrmModless;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TFrmModeless = cla...
阅读全文
摘要:这是设定系统当前调试器的,你可以在注册表中自己设置一下,位置是:HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\AeDebug,把里面的Debugger键值设置为:C:\ProgramFiles\Borland\Delphi5\Bin\bordbg50.exe"aeargs%ld%ld原为:"c:\WINDOWS\system32\vsjitdebugger.exe" -p %ld -e %ldWindows Registry Editor Version 5.00[HKEY_LOCAL
阅读全文