delphi ÃüÃû³åÍ»ÎÊÌâ
ÓÃdelphiдһ¿ª·¢Æ½Ì¨
ÓÃÆ½Ì¨¿ª·¢³ÌÐò¡£
¹¤³ÌAÓд°Ìå1£¬ÀàTfrom1.ÀàΪ×Ô¶¯Éú³É¡£
¹¤³ÌBÓд°Ìå1£¬ÀàTfrom1.ÀàΪ×Ô¶¯Éú³É¡£
ÏÖÔÚÔÚ¹¤³ÌAÖд°Ìå1ÉÏÌí¼ÓÒ»°´Å¥ µã»÷µ¯³ö¹¤³ÌBµÄ´°Ìå1.
uses
VT5004Unit2
procedure Button1Click(Sender: TObject);
var
nForm:TForm1;
begin
nForm := TForm1.Create(Application);
nForm.Show;
end;
ÆäÖÐVT5004Unit2Ϊ¹¤³ÌBÎļþ¡£
ÏÖÔÚµÄЧ¹ûÊǵã»÷°´Å¥ µ¯³ö¹¤³ÌAµÄ´°Ìå1
¶øÒªµÄЧ¹ûÓ¦¸ÃÊǵ¯³ö¹¤³ÌBµÄ´°Ìå1
Ó¦¸ÃÔõô°ì
nForm := VT5004Unit2.TForm1.Create(Application);
Delphi(Pascal) code:
procedure Button1Click(Sender: TObject);
var
nForm:TForm1;
begin
nForm := TForm1.Create(Application);
nForm.Show;
end;
ÄãÕâ¸ö¼ÈȻҪµ÷Óù¤³ÌBµÄ´°¿Ú£¬ÎªºÎ»¹Òªµ½ÕâÀﶨÒå1¸önForm¡£Õâ¾ÍÃ÷ÏÔÓÐÎÊÌâÂï¡£ÄãÕâÀïÓ¦¸ÃÊÇ
Òªµ÷Óù¤³ÌBÖж¨ÒåµÄÈ«¾Ö´°¿Ú¶ÔÏó²Å¶Ô°¡¡£
ÄãÒ²¿ÉÒ԰ѹ¤³ÌBµÄ´°¿Ú¶ÔÏóÊÖ¶¯¸ÄΪTForm2£¬ºÇºÇ¡£ÕâÑù¾Í²»»á³öÏÖͬÃûµÄÇé¿öÁË¡£
°ÑÆäÖÐÒ»¸ö¸ÃÆäËûÃû×Ö¾ÍÐÐÁË. ÄãÕâ¸ö³ÌÐòÓÐÁ½¸öProject?
¸ÄÃû×ÖÊÇ¿ÉÒÔ µ
Ïà¹ØÎÊ´ð£º
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£¿´úÂëÓÖ¸ÃÈçºÎд£¿
ÎÞÈ˻شð£¿
×ö³É×ÊÔ´Î ......
Ò»°ã¶¼ÊÇÔõô½Ó»îµÄ£¿
ÊÕÈëÔõôÑù
sohu£¿soho£¿
sohu ¿ÉÄÜÊÇsmall office house unit
С°ì¹«ÊÒ£¬°Ñ¼Ò±ä³Éµ¥Î»¡£
È¥Íþ¿ÍÍø°¡,ºÜ¶à¸öÄØ,»¹ÓÐÍâ°üµÄÍøÕ¾
ѧϰѧϰ¡£
ÏÖÔÚDelphi×ö¶«Î÷²»ÐÐÁË,´¦ÓÚÌÔÌ×´ ......
¼±Óá£ÁªÏµQQ£º8775262£¬Ð»Ð»¡£
ÐèÒª½øÐÐDllImportµÄµØ·½Ö±½ÓдDLLImport.·½·¨Ãû¡£
È磺DLLImport.GlobalAddAtom(¡¡);
Îļþ£ºUShare.pas
Delphi(Pascal) code:
unit UShare;
interface
uses Windows, Me ......