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

¹ØÓÚDelphiµÄ .exe ¼ÓÃܵÄÒ»¸öÎÊÌ⣬¸÷λ¼òµ¥¿´ÏÂ

1¡¢Ð´ÁËÒ»¸öСÈí¼þ£¬Óà Delphi µÄ Ado£¬SQLServer Êý¾Ý¿â£¬³ÌÐòûÓдò°ü£¬ .exe ºÍ Êý¾Ý¿âÎļþÖ±½Ó¸øÁ˿ͻ§

2¡¢µ«ÊÇÎÒ²»ÏëÈÿͻ§ËæÒâ´«²¥£¬ÎÒÏë¶Ô .exe ×ö¸ö¼ÓÃÜÏÞÖÆ£¬ÒªÉÔ΢ºÃÒ»µãµÄ£¬²»Òª×¢²á±í¡¢iniÎļþÖ®ÀàµÄ

    ÀýÈ磺ֱ½Ó¸´ÖÆ .exe µ½±ðµÄ»úÆ÷Éϲ»ÄÜÓÃ

3¡¢×îºÃ²»Òª×¢²á±íÖ®ÀàµÄ£¬dll µ¹ÊÇ¿ÉÒÔ£¬´ó¼Ò¶¼ÓÐʲôºÃµÄ°ì·¨£¬×îºÃÄÜÓвÎÕÕµÄÀý×Ó´úÂ룬¼òµ¥µÄ¾ÍÐÐ
Äã¿ÉÒÔ×Ô¼º×öÒ»¸ökeyÎļþ£¬È±ÉÙÕâ¸ökey¾Í²»ÄÜÔËÐУ¬ÀàËÆÓÚ¼ÓÃܹ·£¬²»¹ý¼ÓÃÜÇ¿¶ÈÒÀÈ»ºÜÈõ

¶ÁȡӲ¼þID
ÈçÓ²ÅÌID

function GetIdeSerialNumber: pchar;
const IDENTIFY_BUFFER_SIZE = 512;
type
  TIDERegs = packed record
    bFeaturesReg: BYTE; // Used for specifying SMART "commands".
    bSectorCountReg: BYTE; // IDE sector count register
    bSectorNumberReg: BYTE; // IDE sector number register
    bCylLowReg: BYTE; // IDE low order cylinder value
    bCylHighReg: BYTE; // IDE high order cylinder value
    bDriveHeadReg: BYTE; // IDE drive/head register
    bCommandReg: BYTE; // Actual IDE command.
    bReserved: BYTE; // reserved for future use. Must be zero.
  end;
  TSendCmdInParams = packed record
    // Buffer size in bytes
    cBufferSize: DWORD;
    // Structure with drive register values.
   


Ïà¹ØÎÊ´ð£º

DELPHIÕâÖÖÇé¿öÔõô°ì£¿ - Delphi / Windows SDK/API

¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......

ÇódelphiºÚ°×Æå´úÂë

ÒªÇóÄÜʵÏÖ¶þÈËÔŲ́ͬµçÄÔÉ϶ÔÕ½µÄ ²»ÓÃÌ«»¨ÉÚ ×îºÃ»¹¼ÓÉÏÈË»ú¶ÔÕ½µÄ ¼±Ðè Ë­°ïÏÂæ°¡Ñ½!!!!!!!!
up

baidu£¬google

up

http://www.codepub.com/software/view-software-4061.html 
ÍøÕ¾ÉÏÓÐ
......

delphiÈçºÎ»ñÈ¡ÍøÒ³µÄhttp·µ»Ø×´Ì¬¼°·´Ó¦Ê±¼ä

delphiÈçºÎ»ñÈ¡ÍøÒ³µÄ·µ»Ø×´Ì¬£¬¾ÍÏñä¯ÀÀÆ÷Öзµ»ØµÄhttp 500´íÎó£¬404´íÎóµÈ 
ÁíÍâÄܲ»ÄÜ»ñÈ¡µ½´ò¿ªÒ»¸öÍøÒ³µÄ·´Ó¦Ê±¼ä£¬¿ÉÒÔ´óÖ²ο¼ÍøÒ³´ò¿ªµÄËÙ¶È
лл£¡
¶¼¿ÉÒÔʵÏֵ쬾ßÌåµÄÄ㻹ÊDzé×ÊÁϰɣ¡

×Ô¼º ......

delphi UDPÎÊÌâ

(¼±)ÎÒÏëÓÃUDPʵÏÖ¿Í»§¶ËÓë·þÎñÆ÷Ö®¼äµÄÐÅÏ¢·¢ËÍ¡£¼´£¬¿Í»§¶Ë·¢ÐÅÏ¢¸ø·þÎñÆ÷¶Ë£¬·þÎñÆ÷ÄÜÕý³£µÄ½ÓÊÜ£¬²¢ÇÒÊǰ´Ë³Ðò½ÓÊܵġ£Èç¿Í»§¶Ë·¢ËÍEdit1,Edit2,Edit3,Edit4....ºó£¬ÔÚ·þÎñÆ÷µÄEdit1,Edit2,Edit3,Edit4....ÒÀ´Î¶ ......

jmp,je,jnzÔÚdelphiÖеÄд·¨

function myfun:integer;
var b:pointer;
begin
b:=pointer($6Bc3C6);
asm
  mov eax,[eax]
  xor eax,[ecx+4]
  cmp eax,0
  je @b
 end;
ÕâÑùд±àÒë²»¹ýÈ¥¡£ÇëÎÊÈçºÎ² ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ