¹ØÓÚ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.
 
Ïà¹ØÎÊ´ð£º
¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
ÒªÇóÄÜʵÏÖ¶þÈËÔŲ́ͬµçÄÔÉ϶ÔÕ½µÄ ²»ÓÃÌ«»¨ÉÚ ×îºÃ»¹¼ÓÉÏÈË»ú¶ÔÕ½µÄ ¼±Ðè ˰ïÏÂæ°¡Ñ½!!!!!!!!
up
baidu£¬google
up
http://www.codepub.com/software/view-software-4061.html
ÍøÕ¾ÉÏÓÐ
......
delphiÈçºÎ»ñÈ¡ÍøÒ³µÄ·µ»Ø×´Ì¬£¬¾ÍÏñä¯ÀÀÆ÷Öзµ»ØµÄhttp 500´íÎó£¬404´íÎóµÈ
ÁíÍâÄܲ»ÄÜ»ñÈ¡µ½´ò¿ªÒ»¸öÍøÒ³µÄ·´Ó¦Ê±¼ä£¬¿ÉÒÔ´óÖ²ο¼ÍøÒ³´ò¿ªµÄËÙ¶È
лл£¡
¶¼¿ÉÒÔʵÏֵ쬾ßÌåµÄÄ㻹ÊDzé×ÊÁϰɣ¡
×Ô¼º ......
(¼±)ÎÒÏëÓÃUDPʵÏÖ¿Í»§¶ËÓë·þÎñÆ÷Ö®¼äµÄÐÅÏ¢·¢ËÍ¡£¼´£¬¿Í»§¶Ë·¢ÐÅÏ¢¸ø·þÎñÆ÷¶Ë£¬·þÎñÆ÷ÄÜÕý³£µÄ½ÓÊÜ£¬²¢ÇÒÊǰ´Ë³Ðò½ÓÊܵġ£Èç¿Í»§¶Ë·¢ËÍEdit1,Edit2,Edit3,Edit4....ºó£¬ÔÚ·þÎñÆ÷µÄEdit1,Edit2,Edit3,Edit4....ÒÀ´Î¶ ......
function myfun:integer;
var b:pointer;
begin
b:=pointer($6Bc3C6);
asm
mov eax,[eax]
xor eax,[ecx+4]
cmp eax,0
je @b
end;
ÕâÑùд±àÒë²»¹ýÈ¥¡£ÇëÎÊÈçºÎ² ......