DelphiÖеÄÊý×é
²»ÂÛÊý×éÔªËØÊÇʲôÀàÐÍ£¬¾²Ì¬Êý×éµÄ¾Ö²¿±äÁ¿×Ü»áÔÚÕ»ÉÏ·ÖÅä¡£Èç¹û¶ÑÕ»´óС²»¹»½«»áµ¼ÖÂÒì³£¡£ÏÂÀý°µ²Ø×ÅÒ»¸öΣÏÕµÄbug
procedure stackover;
var
s:array [0..4100] of string[255];
begin
end;
delphiĬÈÏÕ»×î´óΪ$100000×Ö½Ú£¬ÉÏÀýÖеÄÕ»ÉÏ·ÖÅäµÄ´óÏÀΪ256*4100>$10000¡£²âÊÔ±ØÈ»»á³öÏÖÒì³£Stack overflow
Ó뾲̬Êý×鲻ͬ£¬¶¯Ì¬Êý×é±äÁ¿Ö»Õ¼4¸ö×Ö½Ú¡£
¼Ç¼ÀàÐÍ×ÜÊÇ·ÖÅäÔÚÄÚ´æÖУ¬Òò´ËÓ뾲̬Êý×ÖÓæÑô£¬ÔÚÀý³ÌÖж¨Òå¹ý´óµÄ¼Ç¼ÀàÐ͵ľֲ¿±äÁ¿Ê±£¬Ò²¿ÉÄܳöÏÖµ¼ÖÂÕ»Òç³ö¡£
ÒÔÉÏ˵µÄÊǾùÊÇÖ¸¾Ö²¿±äÁ¿£¬È«¾Ö±äÁ¿ÔÚ¶ÑÉÏ·ÖÅ䣬ËùÊÜÓ°Ïì½ÏÉÙ£¡
Ïà¹ØÎĵµ£º
delphi dll ʵÀý Óë dll´°ÌåʵÀý
±¾¶¯Ì¬Á´½Ó¿â·½·¨ÓÐ
Min,Max,SynAPP,ShowForm,showmyform
dll¹¤³ÌÎļþ
Library Project1;
uses
dllUnit1 in 'dllUnit1.pas' {Form1};
function Min(X, Y: Integer): Integer; export;
begin
if X < Y then Min := X else Min := Y;
end;
function Max(X, Y: Integer): ......
ÎÒµÄDelphi¿ª·¢¾Ñé̸
×÷ÕߣºIcebird
--------
¿ª·¢»·¾³
--------
Delphi
7ÊÇÒ»¸öºÜ¾µäµÄ°æ±¾£¬ÔÚWin2000/XPÏÂÍÆ¼ö°²×°Delphi 7À´¿ª·¢Èí¼þ£¬ÔÚVistaÏÂÍÆ¼öʹÓÃDelphi 2007¿ª·¢Èí¼þ¡£°²×°ºÃDelphi
7ºó£¬Ó¦Á¢¼´°²×°Delphi 7 Update Pack 1£¬Delphi
2007Ôò½¨Ò龡Á¿°²×°×îР......
´ËÎÄÊǸù¾Ý°éË®ÀÏ´óµÄʵÀý×öµÄСÐ޸ģ¡
ÒÔÏÂÊǸöÈ˼û½â£¬ÈçÓдíÎóÇëÖ¸Õý:)
ÒªÏë¿ç½ø³Ì·ÃÎÊDBGRID£¬Ã²ËÆÖ»ÄÜÓÃHOOK£¬Ð´Ò»¸öDLLÏë°ì·¨×¢È뵽Ŀ±ê½ø³Ì¡£×¢Èë³É¹¦ºó£¬Ê¹DLLÓëÄ¿±ê½ø³ÌÔÚͬһ½ø³Ì¿Õ¼äÖÐ(ÆäÄÚÓÐһЩϸ½ÚÎÊÌ⣬Çë²Î¼û´úÂë)£¬Õâʱ¿ÉÒÔ·ÃÎÊÄ¿±ê½ø³ÌµÄVCL×é¼þ¡£²¢°ÑVCL×é¼þµÄÊý¾Ýͨ¹ ......
DELPHI
//////////////////////////////////
Function EncrypKey (Src:String; Key:String):string;
var
idx :integer;
KeyLen :Integer;
KeyPos :Integer; &nbs ......