delphi³ÌÐòÖÐÎÄÂÒÂëµÄÎÊÌâ
ÎÒÓõÄdelphi7£¬ÏµÍ³ÊÇxp sp3£¬ÎªÊ²Ã´ÏÖÔÚÓÃdelphiд³ÌÐò£¬Ö»Òª³ÌÐòÀï°üº¬ÖÐÎÄ£¬Ò»ÔËÐÐÖÐÎľͳÉÂÒÂëÁËÄØ£¬Éè¼ÆÊ±ºò»¹ºÃºÃµÄ¡£¹òÇó´ð°¸¡£
лл¥ÉϵĻشð¡£
ÎÒÕÒµ½ÔÒòÁË£¬ÊÇÒòΪÎÒ°²×°ÁËcnpack¡£ÎÒ°ÑËûÐ¶ÔØÁ˾ͳöÏÖÂÒÂëµÄbugÁË£¬°ÑcnpackÖØÐ°²×°ÁË£¬¾ÍûbugÁË¡£°¥£¬±»cnpack¸ø°ó¼ÜÁË¡£
Ïà¹ØÎÊ´ð£º
ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ
ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......
ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£
ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Âð£¿
¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£
µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË
ɶɶÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall;¡¡//ÕâÀï¸ù¾ÝDLLÀïÃæº¯ÊýµÄÉùÃ÷ÐÞ¸Ä
var
......
Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿
ÎÞÈ˻شð£¿
×ö³É×ÊÔ´Î ......
ÎҵĴúÂëÈçÏÂ,Ôõô×ÜÌáʾÁ¬²»³É¹¦:
type
GUID = record //ÉêÃ÷µ÷ÓÃRAS£¨´´½¨VPNÁ¬½ÓÓ㩺¯ÊýËùÐè½á¹¹Ìå
Data1: integer;
Data2: Shortint;
Data3: Shortint;
......