Ò»¶ÎDelphi´úÂë ´ó¼Ò°ïÎÒ¿´ÏÂÓÐÎÊÌâÂð£¿ÇëÖ¸Õý
a:=Ta.Create(application);
try
a.ShowModal;
finally
a.Free;
a:=nil;
end;
´ó¼Ò¾õµÃÕâ¶Î´úÂëÓÐÎÊÌâÂ𣿰ïæ·Òëһϡ£
×Ô¼º¶¥Ò»¸ö£¬¹þ¹þ
ÊÇ´°Ì壿ûÎÊÌâ
×Ô¶¨Òå´°Ì壬ÏȽ¨Á¢ºóÊÍ·Å¡£Ã»ÎÊÌâ¡£
ûÎÊÌâ
a:=Ta.Create(application); //´´½¨
try
a.ShowModal; //show³öÀ´
finally
a.Free; //ÊÍ·Å
a:=nil; //½«a±äÁ¿Öÿգ¬±ÜÃâÒ°Ö¸Õë
end;
1. ±àÂë·ç¸ñ²»·ûºÏDelphi±àÂë¹æ·¶
2. ÀàÃüÃû²»Äܱí´ïÀàµÄÓÃ; £¨Ta£©
3. ²ÎÊýÃüÃû²»Äܱí´ï²ÎÊýÓÃ; (a)
ÐÞ¸ÄÈçÏ£º
a := Ta.Create(application);
try
a.ShowModal;
finally
a.Free;
a := nil;
end;
ÇëÔÁ£¬ÎÒ¿´Á˼¸±é£¬Ó²ÊÇ¿´²»³öºÍÂ¥Ö÷ÓÐʲÃ
Ïà¹ØÎÊ´ð£º
½ÓÊÕµ½µÄÎı¾ÄÚÈÝÊÇucs2±àÂë¸ñʽ£¬ÇëÎÊÔõÑùת»»³ÉÖÐÎÄ
°´ÎÒµÄÀí½â£¬UCS-2ÊÇ×Ö·û¼¯£¬¾ßÌåµÄ±àÂëÓÐUTF-8£¬UTF-16 (LE/BE)µÈ¡£
Èç¹ûÄãÓÃDelphi 2009¼°ÒÔÉϰ汾£¬¿ÉÒÔ¿´¿´TEncodingÀà¡£
btw. Äã˵µÄת»»³ÉÖÐÎÄÊÇɶÒâË ......
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall;¡¡//ÕâÀï¸ù¾ÝDLLÀïÃæº¯ÊýµÄÉùÃ÷ÐÞ¸Ä
var
......
·µ»ØµÄÄÚÈÝÊÇÈçÏ´úÂë,ÔõôÄÜÇþµÀ2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......
¼±Óá£ÁªÏµQQ£º8775262£¬Ð»Ð»¡£
ÐèÒª½øÐÐDllImportµÄµØ·½Ö±½ÓдDLLImport.·½·¨Ãû¡£
È磺DLLImport.GlobalAddAtom(¡¡);
Îļþ£ºUShare.pas
Delphi(Pascal) code:
unit UShare;
interface
uses Windows, Me ......