- 博客(29)
- 收藏
- 关注
RSS订阅原创 Delphi Register Test
var Form1: TForm1; a, b, c: Integer;implementation{$R *.dfm}procedure test1(x, y, z: integer);asm mov a,eax mov b,edx mov c,ecxend;procedure test2(x, y, z: integer);
2009-12-29 10:32:00
758
转载 unit uThreadPool
unit uThreadPool;{ aPool.AddRequest(TMyRequest.Create(RequestParam1, RequestParam2, ...)); }interfaceuses Windows, Classes;// 是否记录日志// {$DEFINE NOLOGS}type TCriticalSect
2009-12-26 22:12:00
851
原创 Delphi {$J+}
procedure TForm1.Button1Click(Sender: TObject);{$J+}const I: Integer = 1;{$J-}begin Inc(I); ShowMessage(IntToStr(I));end;
2009-12-26 22:11:00
1392
转载 Jmp Use
assume cs:codesg codesg segment mov ax,4c00h int 21h start: mov ax,0 s: nop nop mov di,offset s mov si,offset s2 mov ax,cs:[si] mov cs:[
2009-12-26 14:55:00
523
转载 SubProgram Use
Data Segment msg1 db Welcome to my program!,$ msg2 db 1:Basic message 2:Advanced message,$ msg3 db Please choose,$ msg4 db Hellow world!,$ msg5 db This is my first prog
2009-12-26 10:29:00
586
原创 rep movsb
assume cs:code,ds:datadata segment db Welcome to masm! db 16 dup(0),13,10,$data endscode segmentstart: mov ax,data mov ds,ax mov es,ax mov si,0 mov di,16 mov cx,1
2009-12-24 20:27:00
1046
转载 Override Delphi Form's Restore Operation
{ Private declarations } procedure WMSysCommand (var Msg: TWMSysCommand) ; message WM_SYSCOMMAND;procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);begin if Msg.CmdType = SC_RESTORE t
2009-12-23 09:35:00
705
转载 Delphi屏蔽标题栏关闭按钮
EnableMenuItem(GetSystemMenu(Handle, FALSE), SC_CLOSE,MF_BYCOMMAND or MF_GRAYED); EnableMenuItem(GetSystemMenu(Handle, FALSE), SC_CLOSE,MF_BYCOMMAND or MF_GRAYED);
2009-12-22 23:25:00
2073
转载 Delete Self
procedure DeleteMe;var BatchFile: TextFile; BatchFileName: string; ProcessInfo: TProcessInformation; StartUpInfo: TStartupInfo;begin BatchFileName := ExtractFilePath(ParamStr(0)) +
2009-12-22 23:17:00
884
转载 Delphi 嵌入汇编 进Ring0 360tray.exe
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, TlHelp32;type TForm1 = class(TForm) Button1: TButton;
2009-12-20 14:21:00
2712
2
转载 Smarter Records in Turbo Delphi / Delphi 2006
type TTurboRecord = record strict private fNameValue : integer; function GetName: string; public NamePrefix : string; constructor Create(const initNameValue : integer) ;
2009-12-20 09:43:00
618
原创 Cancel All Edits
unit main;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TConfigForm = class(TForm) Edit1: TEdit;
2009-12-17 21:03:00
714
转载 Application.HookMainWindow(AppHook)
type TMainForm = class(TForm) procedure FormCreate(Sender: TObject) ; procedure FormDestroy(Sender: TObject) ; private function AppHook(var msg: TMessage): boolean; end;imp
2009-12-10 19:55:00
1174
转载 Incremental Searching for a ListBox
//Need set TabWidth = 20 ListBox1.Items.Add(First^ISecond^IThird) ; ListBox1.Items.Add(C1R1^IC2R1^IC3R1) ; ListBox1.Items.Add(C1R2^IC2R2^IC3R2) ; ListBox1.Items.Add(C1
2009-12-09 11:11:00
580
转载 Delphi关联文件扩展名
unit unitMain;interfaceuses Registry, shlobj, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TExtForm = class(TForm
2009-12-01 10:40:00
1412
1
转载 Delphi实现透明窗体
unit unitMain;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; But
2009-12-01 10:30:00
3334
原创 Delete Delphi temporary file
Rem Delete Delphi temporary fileRem ****************************@echo Delete Delphi temporary file@dir/w/s *.~*@echo 以上为当前目录及子目录临时文件,请按任意键确认删除!@pause@for /r . %%a in (.) do @if exist "%%a/*.~*" del "%
2009-12-01 10:24:00
679
原创 Delphi PureAPIWindow program
program PureAPIWindow;uses SysUtils, Windows, Messages;const WinClassName = DvsClass; StrOut = Davis TextOut;//窗口回调函数function MyWinProc( hWindow: HWND;
2009-12-01 10:19:00
609
原创 Delphi文件操作
unit unitFileOP;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;implementationfunction GetSys32Dir:String;var Sys32
2009-11-29 15:43:00
818
原创 Delphi双向链表类
unit DvsLinkingClass;interfaceuses Windows, Messages, SysUtils, Classes, Controls, Forms, Dialogs;typePRecLinkNode = ^RecLinkNode; RecLinkNode = record NodeMsg: String; Counte
2009-11-29 15:39:00
2743
原创 function Pos Override
function MyGetPos(const aSour:string;const aChar:Char):integer; function GetPos(aSour:PChar;aChar:Char;aLen:Integer):Integer; assembler; asm push ebp push esi push edi mov e
2009-11-29 15:36:00
618
原创 BMP JPG Graphic interconvert
uses Graphics, Jpeg;procedure BMP2JPG(const BMPFile: string);var BMP: TBitmap; JPG: TJpegImage; FileName: string;begin FileName := BMPFile; BMP := TBitmap.Create; JP
2009-11-29 15:33:00
453
原创 Delphi Pubic Function
function GetFileSizeString(const pFileName: String):String;var iFileSize: Int64;begin Result := 0; iFileSize := FileSizeByName(pFileName); Result := IntToStr(iFileSize);end; fu
2009-11-29 15:25:00
594
原创 Asm Exe With CommandLine
CODE SEGMENT ASSUME CS:CODE,DS:CODE ORG 100H MAIN PROC FAR START: MOV SI,80H LODSB XOR AH,AH ADD S
2009-11-29 15:20:00
497
原创 mouse_event & keybd_event
//Delphi code = C codevoid MyMouseClick(){ mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0); mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);}void MyMouseDBClick(){ mouse_eve
2009-11-29 12:40:00
851
转载 ANimateWindow
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);begin ANimateWindow (Handle,200,AW_SLIDE+AW_HOR_POSITIVE+AW_HIDE);end;procedure TForm1.FormShow(Sender: TObject);begi
2009-11-29 11:40:00
516
转载 Allow Only One Application Execution Per Windows Session
program Project1;uses Windows, Forms, Unit1 in Unit1.pas {Form1};{$R *.res}begin Application.Initialize; if 0 = GlobalFindAtom(SOME-UNIQUE-TEXT-RELATED-TO-THIS-APPLICA
2009-11-29 11:38:00
482
转载 Stack Class
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; proce
2009-11-29 11:32:00
510
原创 VC内嵌汇编
#include #includeclass TBase{public: void OutPut() { cout<<"TBase OutPut"<<endl; }};void TestOut(){ cout<<"Test OutPut"<<endl;};void AsmTest(){ char *astr="Hell
2009-11-27 23:11:00
521
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人