delphiÖÐÔõÑùÕýÈ·µ÷ÓÃunicode°æº¯ÊýºÍ·Çunicode°æº¯Êý
Ò»¸öc++±àдµÄdllÖÐ,ÓÐÁ½¸ö°æ±¾µÄº¯Êý,Ò»¸öÊÇGetTextA,Ò»¸öÊÇGetTextW,ÎÒÏÖÔÚÏëÒ»¸öGetTextÕýÈ·µ÷ÓÃÕâÁ½¸öº¯Êý
ÔÚc++ÖпÉÒÔ
#ifdef unicode
#define GetText GetTextW
#else
#define GetText GetText A
ÔÚdelphiÖÐÔõÑù¸ã?
delphi ÓÖ²»ÄÜÒ»¸ö±àÒëÆ÷ͬʱ±àÒë unicode ºÍ·Ç unicode °æµÄ³ÌÐò£¬Õâ¶Ô delphi À´ËµÃ»É¶ÒâÒå
procedure GetText;stdcall ;external 'ABC.dll';
µ«ÎÒÕâôд:Function GetText(hdc:HDC;rect:PRECT;Astr:Pchar):Boolean;stdcall;external 'EDRLIB.DLL';
³öÏÖÎÞ·¨¶¨Î»µ½GetTextÓÚ¶¯Ì¬Á´½Ó¿âEdrlib.dllÉϵĴíÎó°¡..
¼ì²é'EDRLIB.DLL'ÊÇ·ñµ¼³öGetTextº¯Êý£¡
Èç2LËù˵£¬ÁíÍâÒ²¿ÉÒÔÖ±½Óloadlibrary¶¯Ì¬µ÷ÓÃDLLµ±Öеĺ¯Êý
c++µÄdllµÄµ¼³öº¯ÊýÊÇÎÒ˵µÄÓÐÁ½¸ö°¡,Ò»¸öÊÇGetTextA,ÁíÒ»¸öÊÇGetTextW,ÔÚdelphiµ÷ÓÃʱ,
Function GetTextA(hdc:HDC;rect:PRECT;Astr:Pchar):Boolean;stdcall;external 'EDRLIB.DLL';
ÎÒÊÔ¹ýÕâÑùÊÇÄÜÕýÈ·µ÷ÓõÄ
ÎÒÖ»ÊDz»ÏëÓÃGetTextAº¯ÊýÃû,ÏëÓÃGetText×÷Ϊº¯ÊýÃû
Ïà¹ØÎÊ´ð£º
Delphi ÏñÍö¹úµÄÄÏËΣ¬ÊÔÎÊÕâÓïÑÔ»¹ÓÐǰ;Âð£¿
Win32¿ª·¢²»ÈçC#£»
ÃæÏñ¶ÔÏñ¿ª·¢²»ÈçJAVA£»
ϵͳ¿ª·¢²»ÈçVC++6.0£»
ÄÜÓÃÐÔ²»ÈçVB6.0£»
²»Ö§³ÖWeb¿ª·¢¡£¡£¡£
³ö¸öDelphi 2010Ãâ·ÑÒ»Äê»áÓÐÈËÓÃÂð£¿
......
ÎÒдÁ˸öС³ÌÐò£¬ÉÏÃæÌí¼ÓÁËÒ»¸öshockwaveflash¿Ø¼þ£¬È»ºóÔÚmovieÀïдÈëswfÎļþµÄ·¾¶£¬È»ºóÖ´ÐÐûÓÐÎÊÌâ¡£
µ±ÎÒ°ÑÕâ¸ö³ÌÐò×ªÒÆµ½Áíһ̨µçÄÔÖ´ÐÐʱ£¬ shockwaveflash ¿Ø¼þÏÔʾ¿Õ°×¡£Ò²¾ÍÊÇûÓмÓÔØÄǸöswfÎļþ¡£ ......
ÓÉÓÚ¿Í戶¶ËÓеÄÎļþ經³£¸üУ¨遠³ÌµÄ£¬²»ÊǾÖÓò網£©£¬
ËùÒÔÏë寫個×Ô動¸üÐ嵀 ³ÌÐò¡£
¿´網É쵀 ·½·¨資ÁÏ£¬ÖªµÀЩ·½·¨£¬µ«²»ÖªµÀ¾ß體Ôõô寫¡£
......
Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿
ÎÞÈ˻شð£¿
×ö³É×ÊÔ´Î ......
procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 ¸ö×ֽڵij¤ÕûÐÎÖ¸Õë
begin
P:=PLongint(A);// È¡µÄ A µÄ ......