ÇóÖúÒ»¸öDelphiÊý×ÖÓÎÏ·´úÂë
Çë´ó¼Ò°ïæ ллÁË ÓÃDelphi±àдһ¸öƽÐÐËıßÐÎ
1
111
11111
111
1
¾ÍÊÇÕâ¸öÑù× ÔÚÕâÀïллÁË
ƽÐÐËıßÐÎ,ÄãÊÇÒªÇó»Í¼»¹ÊÇÊý×ÖÅÅÁÐ?
ÊÇÊý×Ö ÅÅÁÐ ²»Êǻͼ лл´ó¸ç°ï°ïæ
ÄãÄǸöÊÇÁâÐΰ¡,Õâ¸ö²»ÄÑʵÏÖ,Ê×Ïȶ¨ÒåÒ»¸ö
Delphi(Pascal) code:
function HuaLingXing(const MaxA):string;
var
i:integer;
begin
i:=1;
while i<=MaxA do
begin
result:=result+'#13#10' + '1';
i:=i+2;
end;
end;
ÄãÕâ¸öÊÇ¿ØÖÆÌ¨³ÌÐòÂ𣿠ÎÒÏëµÄÊÇÔÚMemoÉÏÏÔʾµÄ
²»ÒªÒâ˼ÉÏÃæÓеãС´íÎó
Delphi(Pascal) code:
function HuaLingXing(const MaxA:integer):string;
var
i:integer;
function LXLine(const ALine:integer):string;
var
j:integer
begin
for j:=1 to ALine do
result:= result + '1';
end;
begin
i:=1;
while i<=MaxA do
begin
result:=result+'#13#10' + LXLine(i);
i:=i+2;
end;
end;
ÕâÊǺ¯Êý,·µ»ØµÄ¾ÍÊÇÄãÐèÒªµÄͼÐÎÁË,²ÎÊý¾ÍÊÇÖмä×î´óµÄÄÇÐеĸöÊý,ÎÒûÓе÷ÊÔÄã¿ÉÒÔÊÔÊÔ
ÄãÄܰÑÄãQQ¸æËßÎÒÂð ÎÒÏëÏòÄãÇë½Ì¼¸¸öÎÊÌâ ÎÒQQ342273794 Óм¸¸öµØ·½²»Ã÷°× ллÁË
ÕâÊÇÒ»¸ö¿ØÖÆÌ¨³ÌÐòÂð£¿
º¯Êý¾ÍÊǺ¯Êý,ÔÚ¿ØÖÆÌ¨¿ÉÒÔÓÃ,ÔÚ·Ç¿ØÖÆÌ¨Ò²¿ÉÒÔÓÃ.¿´À´²»»ù´¡²»Àΰ¡
лл°¡ ¸Õ²ÅÕæ
Ïà¹ØÎÊ´ð£º
Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿
ÎÞÈ˻شð£¿
×ö³É×ÊÔ´Î ......
·µ»ØµÄÄÚÈÝÊÇÈçÏ´úÂë,ÔõôÄÜÇþµÀ2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......
¾ßÌåÒªÇóÓ뱨³êQQ729851670
771234717
¡°Æ´Òô±à³Ì¡±ÊÇʲôÒâ˼
ÒýÓÃ
¡°Æ´Òô±à³Ì¡±ÊÇʲôÒâ˼
1.¸øÒ»¸ö×Ö¿ÉÒÔÏÔʾƴÒô£¬¶àÒô×ֵϰÄÜÏÔʾ¶ÔÓ¦µÄ¶à¸öÆ´Òô
2.¶Ô°üº¬¶àÒô×ֵĴÊÓïÖÇÄÜʶ±ð¸ø³öÆ´Òô¡£
3.¶ÔÒ»¶Î ......
delphi 數據類ÐÍ ¶¨義A~Z 為ÓÐÐòÐÍ£¬A為×îС£¬Z×î´ó¡£
Delphi(Pascal) code:
var
arr:array ['A'..'Z'] of Char;
Óü¯ºÏ¸ã¶¨
Ôõ麼È¥運ËãÄØ£¿inc() ......
ÇëÎÊÄÄλ´óÉñÄܰïÎÒ¿´¿´ÎÒÕâ¾äתµÃ¶Ô²»¶Ô ÀÏÊÇ»á³ö´í¡£
±àÒëûÌáʾ´íÎó µ«ÊÇÔËÐгÌÐòµÄ»°»á³ö´í
ÎÒÓÃAPI HOOKÀ¹½ØÁËdr0-dr3 È»ºó·¢ÏÖ¼ÙÈçÎÒdr0:=$123456
¶øÆäËûdr1-dr3ÎÒ¶¼²»ÉèÖà µ«ÊÇÀ¹½Øµ½Ö®ºóÈ´·¢ÏÖdr0:=$1234 ......