Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

delphiÍç¼²ÊÕ¼¯

delphiÍç¼²ÊÕ¼¯ 

delphi·¢²¼ÒѾ­Ê®¶àÄêÁË£¬ºÜ¶àbug һֱδµÃµ½ÐÞÕý£¬¿´¿´´ó¼Ò¶¼Óöµ½Ê²Ã´Íç¼²


1. delphi7¿ªÊ¼¼Ì³ÐµÄdbgrid²»ÄÜɾ³ýмӵÄÁУ¬Ö±µ½delphi2010 »¹´æÔÚ (±ØÈ»)
2. delphi5¿ªÊ¼Óöµ½ Ôö¼ÓеÄʼþÇý¶¯³ÌÐòºó°Ñ ×îºó µÄ .end ¸ãÂÒÌ×,Ö±µ½delphi2010 »¹´æÔÚ (¾­³£)
¹ÛÍûÒ»ÏÂ

ºÇºÇ£¬ÍæµÄÉÙ¡£»¹²»ÖªµÀÓÐbug¡£
£¨Ò²ÐíÊÇ5ÍæµÄ·½ÏòÓÚbug²Á¼ç¶ø¹ýÁ˰ɣ©

Delphi(Pascal) code:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IniFiles;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
FCacheConfigList: THashedStringlist;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
t: Cardinal;
i: Integer;
begin
t := GetTickCount;
for i := 0 to 10000 do
FCacheConfigList.Add(IntToStr(i + 1));
FCacheConfigList.Sort;{ÎÊÌâÔÚÕâÀµÚÒ»´ÎÅÅÐòºÜ¿ì£¬Èç¹ûÔÙµã»÷Ò»´ÎButton1¾ÍÅÅÐòºÜºÄʱ£¬µÈ´ý´óÔ¼5·ÖÖÓÒÔºóÅÅÐòÍê³É£¬ÔÙµã»÷button1¾ÍûÎÊÌâÁË}
ShowMessage(IntToStr(GetTickCount - t));
ShowMessage(IntToStr(FCacheConfigList.Count));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
FCacheConfigList := THashedStr


Ïà¹ØÎÊ´ð£º

Çë½ÌÏ£¬ÓÃDELPHI×öSOHUµÄ - Delphi / ·Ç¼¼ÊõÇø

Ò»°ã¶¼ÊÇÔõô½Ó»îµÄ£¿
ÊÕÈëÔõôÑù
sohu£¿soho£¿

sohu ¿ÉÄÜÊÇsmall office house unit
С°ì¹«ÊÒ£¬°Ñ¼Ò±ä³Éµ¥Î»¡£

È¥Íþ¿ÍÍø°¡,ºÜ¶à¸öÄØ,»¹ÓÐÍâ°üµÄÍøÕ¾

ѧϰѧϰ¡£

ÏÖÔÚDelphi×ö¶«Î÷²»ÐÐÁË,´¦ÓÚÌÔÌ­×´ ......

ÈçºÎÓÃDelphi¿ØÖÆIEä¯ÀÀÆ÷½ûÓÃJS£¿

Delphi ¿ØÖÆ´ò¿ªÁËÖî¶àÍøÒ³£¬µ«ÊÇÓÐЩÓе¯³ö´°¿Ú£¬Ïë°ÑËûÆÁ±Îµô(½ûÖ¹µ¯´°),Ïëͨ¹ý½ûÓÃIE½Å±¾µÄ·½Ê½´ïµ½Ä¿µÄ£¿ÈçºÎʵÏÖ£¿
£¨¾ÍÏóÎÒÃDzÙ×÷InternetÑ¡ÏîÖУ¬½ûÖ¹ÔËÐл½Å±¾Ò»Ñù£©
ת£º
.¸Ä×¢²á±í£¬googleϺÜÈÝÒ×Ö ......

Delphi Hook

ÇëÎÊÓÃcmd.exe Ö´ÐÐregedit.exe ʱ£¬ÎªÊ²Ã´ÓÃCreateProcess hook²»µ½£¬
°´ctrl+alt+del µÈÒ²hook²»µ½£¬ËûÃDz»Êǵ÷ÓÃCreateProcess Âð£¿
ÊÔÊÔ¼àÊÓShellexecute£¬ÓÃShell¹³×Ó

function NewShellExecuteW(hwnd:H ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ