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

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ÕâÖÖÇé¿öÔõô°ì£¿ - Delphi / Windows SDK/API

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

ÕâÓïÑÔºÃÄѰ¡ ѧdelphi¼òµ¥ ¿Þ

ÕâÓïÑÔºÃÄѰ¡  ѧdelphi¼òµ¥ ¿Þ
Ò»¸ödll ºÍÒ»¸ö Ö¸Õ뺯Êýµ÷Óà ¸ãÁËÎÒ2Àñ°Ý »¹ÊÇÔÚÎÒÓÐdelphi»ù´¡µÄÇé¿öÏ ¿Þ
ÄÑ¶È ±È delphi ¸ßºÜ¶à¡£¼ÌÐøÅ¬Á¦Ñ§°¡¡£
ºÃÏñÒ²²¢²»±ÈdelphiÄѶàÉÙ°É

Ö÷Òª´úÂë ²»Ö±¹ÛÁË¡ ......

delphi Òì²½Ïß³Ì

delphi Òì²½Ïß³ÌÔõôÔõôʵÏÖ£¿
Çë¸÷λ´óÀаïæ£¡
×îºÃÓиöʵÀý£¡
¶àл

Ä㲻ͬ²½¾ÍÊÇÒì²½ÁË,»¹Ð´É¶

ĬÈÏÇé¿öÏ£¬Ï߳̾ÍÊÇÒì²½µÄ¡­¡­¡­¡­*^_^*

¹À¼ÆÂ¥Ö÷ͬ²½ºÍÒì²½¸ÅÄûŪÇå

ÕæÎÞÓï¡£¡£¿É ......

delphi¶¯Ì¬Êý×éÈçºÎÈ¥µôÒ»¸öÔªËØ

procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 ¸ö×ֽڵij¤ÕûÐÎÖ¸Õë
begin
P:=PLongint(A);// È¡µÄ A µÄ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ