delphiÈçºÎµ÷ÓÃdllÎļþÖеÄexe
Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿
ÎÞÈ˻شð£¿
×ö³É×ÊÔ´Îļþ£¿ÎÊʲôҪÕâô×öÄØ£¿
ËäÈ»²»Ì«Àí½âLZΪʲôѡÔñÕâÖÖ·½Ê½£¬µ«ÊÇ¿ÉÒÔÕâÑù×öÊÔÊÔ¿´£º
1¡¢ÔÚ123.dllÖе¼³öÒ»¸öº¯Êý£¬¸Ãº¯ÊýÔÚ±»µ÷ÓõÄʱºò°´Ãû³Æ¶ÔÖ¸¶¨µÄ×ÊÔ´½øÐвéÕÒ£¬²¢½«¸Ã×ÊԴдµ½Ò»¸öLZÈÏΪ±È½ÏºÏÊʵÄλÖ㬾ßÌåµÄAPI¼Ç²»Çå³þÁË£¬Óкü¸¸ö£¬ÆäÖÐÒ»¸öºÃÏñÊÇFindResource¡£
2¡¢Í¨¹ý123.dll»òÕßA.exeµ÷ÓÃCreateProcess
3¡¢Èç¹ûÖ´ÐйýºóÐèÒª°ÑÄǸö×ÊÔ´EXEÎļþɾµôµÄ»°£¬ÔòÇåÀíÖ®¡£
Ïà¹ØÎÊ´ð£º
ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ
ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......
Delphi ÏñÍö¹úµÄÄÏËΣ¬ÊÔÎÊÕâÓïÑÔ»¹ÓÐǰ;Âð£¿
Win32¿ª·¢²»ÈçC#£»
ÃæÏñ¶ÔÏñ¿ª·¢²»ÈçJAVA£»
ϵͳ¿ª·¢²»ÈçVC++6.0£»
ÄÜÓÃÐÔ²»ÈçVB6.0£»
²»Ö§³ÖWeb¿ª·¢¡£¡£¡£
³ö¸öDelphi 2010Ãâ·ÑÒ»Äê»áÓÐÈËÓÃÂð£¿
......
ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£
ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Âð£¿
¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£
µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË
ɶɶÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......
Delphi(Pascal) code:
procedure Tpaigon.N2Click(Sender: TObject);
var
j,col:integer;
filename:string;
MSExcel,xlsheet,xlBook:Variant; //ole ComObj
begin
IF DBGrid1.Fields[0].AsString=' ......
×ÜÖ®£¬Õâ¸öÓ¦¸ÃÊǸöСBUG¡£
Ëæ±ã½¨¸ötxtÎĵµ
µÚÒ»ÐÐ68¸ös¼ÓÒ»¸ö»Ø³µ
µÚ¶þÐÐ98¸ös¼ÓÒ»¸ö»Ø³µ
µÚÈýÐÐ17¸ös¼ÓÒ»¸ö»Ø³µ
×ܹ²183¸ös¼ÓÈý¸ö»»ÐУ¬´óС189×Ö½Ú¡£
½Ó×ÅÓÃFileOpenºÍFileRead°ÑÎļþ ......